blob: c7b41e35b0c1a89d3dac97622332bf748b9dc215 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
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
|
GitWeb
