- (do ((new-logger
- (#-sbcl mp:with-timeout #-sbcl (*timeout* nil)
- #+sbcl sb-ext:with-timeout #+sbcl *timeout*
- (create-logger nick server :channels channels :output output
- :logging-stream logging-stream :password password
- :realname realname :username username
- :private-log private-log
- :unknown-log unknown-log
- :formats formats
- :async async))
- (#-sbcl mp:with-timeout #-sbcl (*timeout* nil)
- #+sbcl sb-ext:with-timeout #+sbcl *timeout*
- (create-logger nick server :channels channels :output output
- :logging-stream logging-stream :password password
- :realname realname :username username
- :private-log private-log
- :unknown-log unknown-log
- :formats formats
- :async async))))
- (new-logger
- (progn
- (add-private-log-entry nil "Acquired new logger ~A." new-logger)
- new-logger))
- (add-private-log-entry nil "Timeout trying to create new logger [add-logger]."))))
+ (do ((new-logger
+ (#+allegro mp:with-timeout #+allegro (*timeout* nil)
+ #+sbcl sb-ext:with-timeout #+sbcl *timeout*
+ #+lispworks progn
+ (create-logger nick server :port port :channels channels :output output
+ :logging-stream logging-stream :password password
+ :realname realname :username username
+ :private-log private-log
+ :unknown-log unknown-log
+ :formats formats
+ :async async))
+ (#+allegro mp:with-timeout #+allegro (*timeout* nil)
+ #+sbcl sb-ext:with-timeout #+sbcl *timeout*
+ #+lispworks progn
+ (create-logger nick server :port port :channels channels :output output
+ :logging-stream logging-stream :password password
+ :realname realname :username username
+ :private-log private-log
+ :unknown-log unknown-log
+ :formats formats
+ :async async))))
+
+ (new-logger
+ (progn
+ (add-private-log-entry nil "Acquired new logger ~A." new-logger)
+ new-logger))
+ (add-private-log-entry nil "Timeout trying to create new logger [add-logger]."))))