diff options
Diffstat (limited to 'dev-lisp/cl-irc-logger/files/0.9.2-acl-compat-gentoo.patch')
-rw-r--r-- | dev-lisp/cl-irc-logger/files/0.9.2-acl-compat-gentoo.patch | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/dev-lisp/cl-irc-logger/files/0.9.2-acl-compat-gentoo.patch b/dev-lisp/cl-irc-logger/files/0.9.2-acl-compat-gentoo.patch new file mode 100644 index 000000000000..c7b41e35b0c1 --- /dev/null +++ b/dev-lisp/cl-irc-logger/files/0.9.2-acl-compat-gentoo.patch @@ -0,0 +1,73 @@ +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 |