- (let ((logger (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)))
+ (add-private-log-entry nil "Calling create-logger [add-logger].~%")
+ (let ((logger
+ (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]."))))
+ (add-private-log-entry logger "Pushing newly created logger ~A [add-logger].~%" logger)