From 4082dbd4d3c80282c43b2c41b7e5dae41ba56e94 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 15 Aug 2005 18:47:02 +0000 Subject: [PATCH] r10646: updates --- logger.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/logger.lisp b/logger.lisp index 6585a0f..b242f5a 100644 --- a/logger.lisp +++ b/logger.lisp @@ -645,7 +645,8 @@ (add-private-log-entry nil "Calling create-logger [add-logger].~%") (let ((logger (do ((new-logger - (mp:with-timeout (*timeout* nil) + (#-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 @@ -653,7 +654,8 @@ :unknown-log unknown-log :formats formats :async async)) - (mp:with-timeout (*timeout* nil) + (#-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 -- 2.34.1