diff -ur irc-logger-0.9.2.orig/irc-logger.asd irc-logger-0.9.2/irc-logger.asd
--- irc-logger-0.9.2.orig/irc-logger.asd	2004-01-07 07:29:43.000000000 -0600
+++ irc-logger-0.9.2/irc-logger.asd	2004-10-14 16:18:08.815459400 -0500
@@ -7,7 +7,7 @@
 (in-package irc-logger-system)
 
 (defsystem irc-logger
-    :depends-on (cl-irc cl-ppcre)
+    :depends-on (cl-irc cl-ppcre acl-compat)
     :components ((:file "package")
 		 (:file "logger" :depends-on ("package"))))
 
Only in irc-logger-0.9.2: logger.fas
Only in irc-logger-0.9.2: logger.fasl
Only in irc-logger-0.9.2: logger.lib
diff -ur irc-logger-0.9.2.orig/logger.lisp irc-logger-0.9.2/logger.lisp
--- irc-logger-0.9.2.orig/logger.lisp	2004-07-12 23:36:02.000000000 -0500
+++ irc-logger-0.9.2/logger.lisp	2004-10-14 16:36:22.202239344 -0500
@@ -641,7 +641,7 @@
   (add-private-log-entry nil "Calling create-logger [add-logger].~%")
   (let ((logger
 	 (do ((new-logger 
-	       (mp:with-timeout (*timeout* nil)
+	       (with-timeout (*timeout* nil)
 		 (create-logger nick server :channels channels :output output
 				:logging-stream logging-stream :password password
 				:realname realname :username username
@@ -649,7 +649,7 @@
 				:unknown-log unknown-log 
 				:formats formats
 				:async async))
-	       (mp:with-timeout (*timeout* nil)
+	       (with-timeout (*timeout* nil)
 		 (create-logger nick server :channels channels :output output
 				:logging-stream logging-stream :password password
 				:realname realname :username username
@@ -750,14 +750,12 @@
 
 
 (defun is-connected (logger)
-  #-allegro (%is-connected logger)
-  #+allegro (mp:with-timeout (*timeout* nil)
-	      (%is-connected logger)))
+  (with-timeout (*timeout* nil)
+    (%is-connected logger)))
 
 (defun quit-with-timeout (connection msg)
-  #-allegro (quit connection msg)
-  #+allegro (mp:with-timeout (*timeout* nil)
-	      (quit connection msg)))
+  (with-timeout (*timeout* nil)
+    (quit connection msg)))
 
 (defun %is-connected (logger)
   (when (ignore-errors (ping (connection logger) (server logger)))
Only in irc-logger-0.9.2: logger.lisp~
Only in irc-logger-0.9.2: logger.x86f
Only in irc-logger-0.9.2: package.fas
Only in irc-logger-0.9.2: package.fasl
Only in irc-logger-0.9.2: package.lib
diff -ur irc-logger-0.9.2.orig/package.lisp irc-logger-0.9.2/package.lisp
--- irc-logger-0.9.2.orig/package.lisp	2004-03-16 19:10:25.000000000 -0600
+++ irc-logger-0.9.2/package.lisp	2004-10-14 16:31:07.262117520 -0500
@@ -5,7 +5,7 @@
 (in-package #:cl-user)
 
 (defpackage #:irc-logger
-  (:use #:common-lisp #:irc #:cl-ppcre)
+  (:use #:common-lisp #:irc #:cl-ppcre #:acl-compat.mp)
   (:export #:add-logger
 	   #:remove-logger
 	   #:add-channel-logger
Only in irc-logger-0.9.2: package.x86f