Update of /project/cl-irc/cvsroot/cl-irc/example
In directory common-lisp.net:/home/bmastenbrook/cl-irc/example
Modified Files:
cliki.lisp specbot.lisp
Log Message:
Update for changes in lisppaste
Date: Wed Oct 20 22:21:33 2004
Author: bmastenbrook
Index: cl-irc/example/cliki.lisp
diff -u cl-irc/example/cliki.lisp:1.26 cl-irc/example/cliki.lisp:1.27
--- cl-irc/example/cliki.lisp:1.26 Thu Aug 12 18:24:54 2004
+++ cl-irc/example/cliki.lisp Wed Oct 20 22:21:33 2004
@@ -1,4 +1,4 @@
- ;;;; $Id: cliki.lisp,v 1.26 2004/08/12 16:24:54 bmastenbrook Exp $
+ ;;;; $Id: cliki.lisp,v 1.27 2004/10/20 20:21:33 bmastenbrook Exp $
;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $
;;;; cliki.lisp - CLiki as an infobot; only works on SBCL.
@@ -545,7 +545,7 @@
channel
(> (length channel) 0)
(char= (elt channel 0) #\#)
- (funcall (intern "SAY-HELP" :lisppaste)
+ (funcall (intern "IRC-SAY-HELP" :lisppaste)
channel))
(return-from cliki-lookup nil))
(or
Index: cl-irc/example/specbot.lisp
diff -u cl-irc/example/specbot.lisp:1.7 cl-irc/example/specbot.lisp:1.8
--- cl-irc/example/specbot.lisp:1.7 Thu Aug 5 18:54:09 2004
+++ cl-irc/example/specbot.lisp Wed Oct 20 22:21:33 2004
@@ -1,4 +1,4 @@
-;;;; $Id: specbot.lisp,v 1.7 2004/08/05 16:54:09 bmastenbrook Exp $
+;;;; $Id: specbot.lisp,v 1.8 2004/10/20 20:21:33 bmastenbrook Exp $
;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/specbot.lisp,v $
;;;; specbot.lisp - an example IRC bot for cl-irc
@@ -137,9 +137,18 @@
(or *load-truename*
*default-pathname-defaults*)))))
+(defparameter *sus-file*
+ (merge-pathnames "sus.lisp-expr"
+ (make-pathname
+ :directory
+ (pathname-directory
+ (or *load-truename*
+ *default-pathname-defaults*)))))
+
(defun start-specbot (nick server &rest channels)
(add-simple-alist-lookup *754-file* 'ieee754 "ieee754" "Section numbers of IEEE 754")
(add-simple-alist-lookup *ppc-file* 'ppc "ppc" "PowerPC assembly mnemonics")
+ (add-simple-alist-lookup *sus-file* 'sus "posix" "Single UNIX Specification")
(setf *nickname* nick)
(setf *connection* (connect :nickname *nickname* :server server))
(mapcar #'(lambda (channel) (join *connection* channel)) channels)
