From eenge at common-lisp.net Mon Jan 5 14:12:04 2004 From: eenge at common-lisp.net (Erik Enge) Date: Mon, 05 Jan 2004 09:12:04 -0500 Subject: [Cl-irc-cvs] CVS update: Module imported: public_html Message-ID: Update of /project/cl-irc/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv21888 Log Message: initial import Status: Vendor Tag: eenge Release Tags: init N public_html/index.html N public_html/style.css N public_html/valid-xhtml11.png N public_html/vcss.png No conflicts created by this import Date: Mon Jan 5 09:12:04 2004 Author: eenge New module public_html added From eenge at common-lisp.net Mon Jan 5 14:13:05 2004 From: eenge at common-lisp.net (Erik Enge) Date: Mon, 05 Jan 2004 09:13:05 -0500 Subject: [Cl-irc-cvs] CVS update: Module imported: cl-irc Message-ID: Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/tmp/cvs-serv24322 Log Message: initial import Status: Vendor Tag: eenge Release Tags: init N cl-irc/Makefile N cl-irc/CREDITS N cl-irc/LICENSE N cl-irc/cl-irc.asd N cl-irc/README N cl-irc/TODO N cl-irc/command.lisp N cl-irc/event.lisp N cl-irc/package.lisp N cl-irc/parse-message.lisp N cl-irc/protocol.lisp N cl-irc/utility.lisp N cl-irc/variable.lisp N cl-irc/debian/changelog N cl-irc/debian/compat N cl-irc/debian/control N cl-irc/debian/copyright N cl-irc/debian/postinst N cl-irc/debian/prerm N cl-irc/debian/rules N cl-irc/doc/rfc2810.txt N cl-irc/doc/rfc2811.txt N cl-irc/doc/rfc2812.txt N cl-irc/doc/rfc2813.txt N cl-irc/doc/user-guide.txt N cl-irc/example/Mop_Sym.txt N cl-irc/example/clhs.lisp N cl-irc/example/cliki.lisp N cl-irc/test/cl-irc-test.asd N cl-irc/test/irc-messages.txt N cl-irc/test/package.lisp N cl-irc/test/test-parse-message.lisp N cl-irc/test/test-protocol.lisp No conflicts created by this import Date: Mon Jan 5 09:13:05 2004 Author: eenge New module cl-irc added From eenge at common-lisp.net Mon Jan 5 14:18:07 2004 From: eenge at common-lisp.net (Erik Enge) Date: Mon, 05 Jan 2004 09:18:07 -0500 Subject: [Cl-irc-cvs] CVS update: cl-irc/test/test-parse-message.lisp cl-irc/test/test-protocol.lisp Message-ID: Update of /project/cl-irc/cvsroot/cl-irc/test In directory common-lisp.net:/tmp/cvs-serv18020/test Modified Files: test-parse-message.lisp test-protocol.lisp Log Message: fixing in-package (using old package name) Date: Mon Jan 5 09:18:07 2004 Author: eenge Index: cl-irc/test/test-parse-message.lisp diff -u cl-irc/test/test-parse-message.lisp:1.1.1.1 cl-irc/test/test-parse-message.lisp:1.2 --- cl-irc/test/test-parse-message.lisp:1.1.1.1 Mon Jan 5 09:13:05 2004 +++ cl-irc/test/test-parse-message.lisp Mon Jan 5 09:18:07 2004 @@ -1,9 +1,9 @@ -;;;; $Id: test-parse-message.lisp,v 1.1.1.1 2004/01/05 14:13:05 eenge Exp $ +;;;; $Id: test-parse-message.lisp,v 1.2 2004/01/05 14:18:07 eenge Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/test/test-parse-message.lisp,v $ ;;;; See the LICENSE file for licensing information. -(in-package :net-nittin-irc-test) +(in-package :cl-irc-test) (defvar *msg1* (format nil ":kire!~~eenge at 216.248.178.227 PRIVMSG cl-irc :heyhey!~A" #\Return)) (defvar *msg2* (format nil ":tolkien.freenode.net 372 cl-irc :-~A" #\Return)) Index: cl-irc/test/test-protocol.lisp diff -u cl-irc/test/test-protocol.lisp:1.1.1.1 cl-irc/test/test-protocol.lisp:1.2 --- cl-irc/test/test-protocol.lisp:1.1.1.1 Mon Jan 5 09:13:05 2004 +++ cl-irc/test/test-protocol.lisp Mon Jan 5 09:18:07 2004 @@ -1,9 +1,9 @@ -;;;; $Id: test-protocol.lisp,v 1.1.1.1 2004/01/05 14:13:05 eenge Exp $ +;;;; $Id: test-protocol.lisp,v 1.2 2004/01/05 14:18:07 eenge Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/test/test-protocol.lisp,v $ ;;;; See the LICENSE file for licensing information. -(in-package :net-nittin-irc-test) +(in-package :cl-irc-test) (defvar *nick1* "kire") (defvar *nick2* "k|[]re") From eenge at common-lisp.net Mon Jan 5 14:19:49 2004 From: eenge at common-lisp.net (Erik Enge) Date: Mon, 05 Jan 2004 09:19:49 -0500 Subject: [Cl-irc-cvs] CVS update: cl-irc/doc/user-guide.txt Message-ID: Update of /project/cl-irc/cvsroot/cl-irc/doc In directory common-lisp.net:/tmp/cvs-serv31776 Modified Files: user-guide.txt Log Message: package rename Date: Mon Jan 5 09:19:49 2004 Author: eenge Index: cl-irc/doc/user-guide.txt diff -u cl-irc/doc/user-guide.txt:1.1.1.1 cl-irc/doc/user-guide.txt:1.2 --- cl-irc/doc/user-guide.txt:1.1.1.1 Mon Jan 5 09:13:05 2004 +++ cl-irc/doc/user-guide.txt Mon Jan 5 09:19:49 2004 @@ -1,8 +1,8 @@ -$Id: user-guide.txt,v 1.1.1.1 2004/01/05 14:13:05 eenge Exp $ +$Id: user-guide.txt,v 1.2 2004/01/05 14:19:49 eenge Exp $ $Source: /project/cl-irc/cvsroot/cl-irc/doc/user-guide.txt,v $ -A user's guide to net-nittin-irc. The user is thought of as a Common -Lisp programmer using the library in his own code. +A user's guide to cl-irc. The user is thought of as a Common Lisp +programmer using the library in his own code. Introduction to IRC @@ -13,7 +13,7 @@ About this library - net-nittin-irc is an implementation of the client-side protocol. + cl-irc is an implementation of the client-side protocol. It is not impossible to add the server-side but it has simple not been done yet (and the current authors have no plans of doing so, although patches are certainly welcome). @@ -48,7 +48,7 @@ An example - * (require :net-nittin-irc) + * (require :cl-irc) * (in-package :irc) @@ -74,4 +74,4 @@ Feedback - Please direct any feedback to net-nittin-irc-devel at common-lisp.net + Please direct any feedback to cl-irc-devel at common-lisp.net From eenge at common-lisp.net Mon Jan 5 14:22:39 2004 From: eenge at common-lisp.net (Erik Enge) Date: Mon, 05 Jan 2004 09:22:39 -0500 Subject: [Cl-irc-cvs] CVS update: public_html/index.html Message-ID: Update of /project/cl-irc/cvsroot/public_html In directory common-lisp.net:/home/eenge/tmp/cl-irc Modified Files: index.html Log Message: package rename and minor changes Date: Mon Jan 5 09:22:39 2004 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.1.1.1 public_html/index.html:1.2 --- public_html/index.html:1.1.1.1 Mon Jan 5 09:12:04 2004 +++ public_html/index.html Mon Jan 5 09:22:39 2004 @@ -27,7 +27,7 @@

News

-
  • Version 0.5.0 released ()
    • +
  • Version 0.5.0 released (package rename and minor changes)
  • Version 0.4.0 released (some documentation, beginnings of a test suite, better performance)
    • @@ -110,4 +110,4 @@ - \ No newline at end of file + From bmastenbrook at common-lisp.net Mon Jan 5 14:53:15 2004 From: bmastenbrook at common-lisp.net (Brian Mastenbrook) Date: Mon, 05 Jan 2004 09:53:15 -0500 Subject: [Cl-irc-cvs] CVS update: cl-irc/example/clhs.lisp cl-irc/example/cliki.lisp Message-ID: Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/tmp/cvs-serv11520 Modified Files: clhs.lisp cliki.lisp Log Message: s/net-nittin/cl/ Date: Mon Jan 5 09:53:15 2004 Author: bmastenbrook Index: cl-irc/example/clhs.lisp diff -u cl-irc/example/clhs.lisp:1.1.1.1 cl-irc/example/clhs.lisp:1.2 --- cl-irc/example/clhs.lisp:1.1.1.1 Mon Jan 5 09:13:05 2004 +++ cl-irc/example/clhs.lisp Mon Jan 5 09:53:15 2004 @@ -1,9 +1,9 @@ -;;;; $Id: clhs.lisp,v 1.1.1.1 2004/01/05 14:13:05 eenge Exp $ +;;;; $Id: clhs.lisp,v 1.2 2004/01/05 14:53:15 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/clhs.lisp,v $ -;;;; clhs.lisp - an example IRC bot for net-nittin-irc +;;;; clhs.lisp - an example IRC bot for cl-irc -;;; clhs is an example IRC bot for net-nittin-irc. It runs on +;;; clhs is an example IRC bot for cl-irc. It runs on ;;; irc.freenode.net in the channels #lisp and #clhs (preferred for ;;; testing). It responds to queries of the form "clhs symbol" for ;;; symbols in the spec, "clhs 3.1.2.1.2.1" for sections, and "clhs @@ -12,7 +12,7 @@ ;;; unpacked. You should also check out Mop_Sym.txt and put it in the ;;; directory where you will be running the bot from. -;;; To use it, load the net-nittin-irc system, load clhs.lisp, and +;;; To use it, load the cl-irc system, load clhs.lisp, and ;;; invoke (clhs::start-clhs-bot "desirednickname" "desiredserver" ;;; "#channel1" "#channel2" "#channel3" ...) Index: cl-irc/example/cliki.lisp diff -u cl-irc/example/cliki.lisp:1.1.1.1 cl-irc/example/cliki.lisp:1.2 --- cl-irc/example/cliki.lisp:1.1.1.1 Mon Jan 5 09:13:05 2004 +++ cl-irc/example/cliki.lisp Mon Jan 5 09:53:15 2004 @@ -1,9 +1,9 @@ -;;;; $Id: cliki.lisp,v 1.1.1.1 2004/01/05 14:13:05 eenge Exp $ +;;;; $Id: cliki.lisp,v 1.2 2004/01/05 14:53:15 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $ ;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. -;;; To use it, load the net-nittin-irc and cl-ppcre systems, load +;;; To use it, load the cl-irc and cl-ppcre systems, load ;;; cliki.lisp, and invoke (cliki::start-cliki-bot "desirednickname" ;;; "desiredserver" "#channel1" "#channel2" "#channel3" ...) From bmastenbrook at common-lisp.net Mon Jan 5 14:56:18 2004 From: bmastenbrook at common-lisp.net (Brian Mastenbrook) Date: Mon, 05 Jan 2004 09:56:18 -0500 Subject: [Cl-irc-cvs] CVS update: cl-irc/debian/copyright Message-ID: Update of /project/cl-irc/cvsroot/cl-irc/debian In directory common-lisp.net:/tmp/cvs-serv992 Modified Files: copyright Log Message: s/net-nittin/cl/g Date: Mon Jan 5 09:56:18 2004 Author: bmastenbrook Index: cl-irc/debian/copyright diff -u cl-irc/debian/copyright:1.1.1.1 cl-irc/debian/copyright:1.2 --- cl-irc/debian/copyright:1.1.1.1 Mon Jan 5 09:13:04 2004 +++ cl-irc/debian/copyright Mon Jan 5 09:56:18 2004 @@ -1,7 +1,7 @@ Debian Copyright Section ======================== -Upstream Source URL: http://common-lisp.net/projects/net-nittin-irc +Upstream Source URL: http://common-lisp.net/projects/cl-irc Upstream Authors: Erik Enge and Brian Mastenbrook Debian Maintainer: Kevin M. Rosenberg From krosenberg at common-lisp.net Wed Jan 7 12:55:13 2004 From: krosenberg at common-lisp.net (Kevin Rosenberg) Date: Wed, 07 Jan 2004 07:55:13 -0500 Subject: [Cl-irc-cvs] CVS update: cl-irc/debian/changelog Message-ID: Update of /project/cl-irc/cvsroot/cl-irc/debian In directory common-lisp.net:/tmp/cvs-serv32533/debian Modified Files: changelog Log Message: Automated commit for Debian build of cl-irc Date: Wed Jan 7 07:55:13 2004 Author: krosenberg Index: cl-irc/debian/changelog diff -u cl-irc/debian/changelog:1.1.1.1 cl-irc/debian/changelog:1.2 --- cl-irc/debian/changelog:1.1.1.1 Mon Jan 5 09:13:04 2004 +++ cl-irc/debian/changelog Wed Jan 7 07:55:12 2004 @@ -1,3 +1,9 @@ +cl-irc (0.5-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Wed, 7 Jan 2004 05:57:55 -0700 + cl-irc (0.0+cvs.2003.12.16-1) unstable; urgency=low * Initial upload From krosenberg at common-lisp.net Thu Jan 8 23:11:47 2004 From: krosenberg at common-lisp.net (Kevin Rosenberg) Date: Thu, 08 Jan 2004 18:11:47 -0500 Subject: [Cl-irc-cvs] CVS update: cl-irc/protocol.lisp Message-ID: Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/tmp/cvs-serv21472 Modified Files: protocol.lisp Log Message: intern based on symbol-name to support case sensitive lisps Date: Thu Jan 8 18:11:47 2004 Author: krosenberg Index: cl-irc/protocol.lisp diff -u cl-irc/protocol.lisp:1.1.1.1 cl-irc/protocol.lisp:1.2 --- cl-irc/protocol.lisp:1.1.1.1 Mon Jan 5 09:13:04 2004 +++ cl-irc/protocol.lisp Thu Jan 8 18:11:47 2004 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.1.1.1 2004/01/05 14:13:04 eenge Exp $ +;;;; $Id: protocol.lisp,v 1.2 2004/01/08 23:11:47 krosenberg Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/protocol.lisp,v $ ;;;; See LICENSE for licensing information. @@ -520,14 +520,23 @@ (defclass irc-error-reply (irc-message) ()) +(defun intern-message-symbol (prefix name) + "Intern based on symbol-name to support case-sensitive mlisp" + (intern + (concatenate 'string + (symbol-name prefix) + "-" + (symbol-name name) + "-" + (symbol-name '#:message)))) + (defmacro define-irc-message (command) - (let ((*print-case* :upcase)) - (let ((name (intern (format nil "IRC-~A-MESSAGE" command)))) - `(progn - (defmethod find-irc-message-class ((type (eql ,command))) - (find-class ',name)) - (export ',name) - (defclass ,name (irc-message) ()))))) + (let ((name (intern-message-symbol :irc command))) + `(progn + (defmethod find-irc-message-class ((type (eql ,command))) + (find-class ',name)) + (export ',name) + (defclass ,name (irc-message) ())))) (defun create-irc-message-classes (class-list) (dolist (class class-list) @@ -570,13 +579,12 @@ (defclass standard-ctcp-message (ctcp-mixin message) ()) (defmacro define-ctcp-message (ctcp-command) - (let ((*print-case* :upcase)) - (let ((name (intern (format nil "CTCP-~A-MESSAGE" ctcp-command)))) - `(progn - (defmethod find-ctcp-message-class ((type (eql ,ctcp-command))) - (find-class ',name)) - (export ',name) - (defclass ,name (ctcp-mixin irc-message) ()))))) + (let ((name (intern-message-symbol :ctcp ctcp-command))) + `(progn + (defmethod find-ctcp-message-class ((type (eql ,ctcp-command))) + (find-class ',name)) + (export ',name) + (defclass ,name (ctcp-mixin irc-message) ())))) (defun create-ctcp-message-classes (class-list) (dolist (class class-list) From bmastenbrook at common-lisp.net Sat Jan 17 19:06:32 2004 From: bmastenbrook at common-lisp.net (Brian Mastenbrook) Date: Sat, 17 Jan 2004 14:06:32 -0500 Subject: [Cl-irc-cvs] CVS update: cl-irc/.cvsignore Message-ID: Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/home/bmastenbrook/cl-irc Added Files: .cvsignore Log Message: It needs one Date: Sat Jan 17 14:06:32 2004 Author: bmastenbrook From bmastenbrook at common-lisp.net Sat Jan 17 19:07:25 2004 From: bmastenbrook at common-lisp.net (Brian Mastenbrook) Date: Sat, 17 Jan 2004 14:07:25 -0500 Subject: [Cl-irc-cvs] CVS update: cl-irc/.cvsignore Message-ID: Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/home/bmastenbrook/cl-irc Modified Files: .cvsignore Log Message: Changed for cl-irc Date: Sat Jan 17 14:07:25 2004 Author: bmastenbrook Index: cl-irc/.cvsignore diff -u cl-irc/.cvsignore:1.1 cl-irc/.cvsignore:1.2 --- cl-irc/.cvsignore:1.1 Sat Jan 17 14:06:32 2004 +++ cl-irc/.cvsignore Sat Jan 17 14:07:25 2004 @@ -1 +1 @@ -*.fasl pastes.lisp-expr \ No newline at end of file +*.fasl sd.lisp-expr From bmastenbrook at common-lisp.net Sat Jan 17 19:19:55 2004 From: bmastenbrook at common-lisp.net (Brian Mastenbrook) Date: Sat, 17 Jan 2004 14:19:55 -0500 Subject: [Cl-irc-cvs] CVS update: cl-irc/example/cliki-bot.asd cl-irc/example/eliza-rules.lisp cl-irc/example/mp2eliza.lisp cl-irc/example/cliki.lisp Message-ID: Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/home/bmastenbrook/cl-irc/example Modified Files: cliki.lisp Added Files: cliki-bot.asd eliza-rules.lisp mp2eliza.lisp Log Message: Commit latest cliki bot Date: Sat Jan 17 14:19:55 2004 Author: bmastenbrook Index: cl-irc/example/cliki.lisp diff -u cl-irc/example/cliki.lisp:1.2 cl-irc/example/cliki.lisp:1.3 --- cl-irc/example/cliki.lisp:1.2 Mon Jan 5 09:53:15 2004 +++ cl-irc/example/cliki.lisp Sat Jan 17 14:19:55 2004 @@ -1,13 +1,14 @@ -;;;; $Id: cliki.lisp,v 1.2 2004/01/05 14:53:15 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.3 2004/01/17 19:19:55 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $ ;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. -;;; To use it, load the cl-irc and cl-ppcre systems, load +;;; To use it, load the net-nittin-irc and cl-ppcre systems, load ;;; cliki.lisp, and invoke (cliki::start-cliki-bot "desirednickname" ;;; "desiredserver" "#channel1" "#channel2" "#channel3" ...) -(defpackage :cliki (:use :common-lisp :irc :sb-bsd-sockets :cl-ppcre)) +(defpackage :cliki (:use :common-lisp :irc :sb-bsd-sockets :cl-ppcre) + (:export :start-cliki-bot)) (in-package :cliki) (defvar *small-definitions* nil) @@ -98,7 +99,8 @@ (setf url (cdr (assoc :location headers)))))) (unwind-protect (if (not (eql response 200)) - (format nil "The term ~A was not found in CLiki." term) + nil + ;;(format nil "The term ~A was not found in CLiki." term) (let ((first-line "")) (loop for i from 1 to 5 do ;; scan the first 5 lines (progn @@ -131,7 +133,7 @@ (symbol-macrolet ((it ,test)) ,else)))) -(defparameter *cliki-attention-prefix* "minion: ") +(defparameter *cliki-attention-prefix* "") (defparameter *cliki-bot-help* "The minion bot supplies small definitions and performs lookups on CLiki. To use it, try ``minion: term?''. To add a term for IRC, try saying ``minion: add \"term\" as: definition'' or ``minion: alias \"term\" as: term''; otherwise, edit the corresponding CLiki page.") @@ -149,24 +151,42 @@ (defn (regex-replace "^alias \"[^\"]+\" as: (.+)$" first-pass "\\1"))) (add-small-definition term (list defn)) "OK, done.") + (progn + (setf first-pass (regex-replace-all "(:|/|\\\\|\\#)" first-pass "")) (or (if (string-equal first-pass "help") *cliki-bot-help*) - (if (scan "^(?i)do my bidding!*$" first-pass) "Yes, my master.") - (concatenate 'string first-pass ": " - (or (let ((term (cdr (assoc first-pass *small-definitions* :test #'string-equal)))) - (if term (if (stringp term) term (cliki-lookup (car term))))) - (cliki-first-sentence first-pass)))))))) + (if (scan "^(?i)hello(\\s|$)" first-pass) "what's up?") + (if (scan "^(?i)hi(\\s|$)" first-pass) "what's up?") + (if (scan "^(?i)yo(\\s|$)" first-pass) "what's up?") + (if (scan "^(?i)(?i)do my bidding!*$" first-pass) "Yes, my master.") + (aif (or (let ((term (cdr (assoc first-pass *small-definitions* :test #'string-equal)))) + (if term (if (stringp term) term (cliki-lookup (car term))))) + (cliki-first-sentence first-pass)) (concatenate 'string first-pass ": " it)) + (if (scan "(!|\\.|\\s.+\\?|\\)|\\()\\s*$" term-with-question) + ;;(generate-text (+ 20 (random 6))) + (ignore-errors (eliza::eliza first-pass)) + ) + (format nil "Sorry, I couldn't find anything in the database for ``~A''.~A" first-pass (if (scan " " first-pass) " Maybe you meant to end with punctuation?" "")) + )))))) (defun valid-cliki-message (message) (eql (search *cliki-attention-prefix* (trailing-argument message) :test #'char-equal) 0)) +(defparameter *respond-to-hello* nil) + +(defun anybody-here (string) + (or (scan "(?i)(anybody|aynbody|any body|anyone|aynone|any one|ne1|any1|n e 1|ne 1) (here|awake|there|home|know).*\\?*" string) + (scan "^(?i)\\s*(hello|hi|yo)\\s*(channel|room|people|ppl|all|peeps|)\\s*$" string))) + (defun msg-hook (message) (if (string-equal (first (arguments message)) *cliki-nickname*) (if (valid-cliki-message message) (privmsg *cliki-connection* (source message) (cliki-lookup (subseq (trailing-argument message) (length *cliki-attention-prefix*)))) (privmsg *cliki-connection* (source message) (cliki-lookup (trailing-argument message)))) (if (valid-cliki-message message) - (privmsg *cliki-connection* (first (arguments message)) (cliki-lookup (subseq (trailing-argument message) (length *cliki-attention-prefix*))))))) + (privmsg *cliki-connection* (first (arguments message)) (cliki-lookup (subseq (trailing-argument message) (length *cliki-attention-prefix*)))) + (if (and *respond-to-hello* (anybody-here (trailing-argument message))) + (privmsg *cliki-connection* (first (arguments message)) (format nil "~A: hello." (source message))))))) (defvar *cliki-nickserv-password* "") @@ -178,6 +198,7 @@ (defun start-cliki-bot (nick server &rest channels) (read-small-definitions) (setf *cliki-nickname* nick) + (setf *cliki-attention-prefix* (format nil "~A: " nick)) (setf *cliki-connection* (connect :nickname *cliki-nickname* :server server)) (mapcar #'(lambda (channel) (join *cliki-connection* channel)) channels) (add-hook *cliki-connection* 'irc::irc-privmsg-message 'msg-hook) From bmastenbrook at common-lisp.net Thu Jan 22 20:51:16 2004 From: bmastenbrook at common-lisp.net (Brian Mastenbrook) Date: Thu, 22 Jan 2004 15:51:16 -0500 Subject: [Cl-irc-cvs] CVS update: cl-irc/example/clhs.lisp Message-ID: Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/home/bmastenbrook/cl-irc/example Modified Files: clhs.lisp Log Message: Cristophe can't add Date: Thu Jan 22 15:51:16 2004 Author: bmastenbrook Index: cl-irc/example/clhs.lisp diff -u cl-irc/example/clhs.lisp:1.2 cl-irc/example/clhs.lisp:1.3 --- cl-irc/example/clhs.lisp:1.2 Mon Jan 5 09:53:15 2004 +++ cl-irc/example/clhs.lisp Thu Jan 22 15:51:16 2004 @@ -1,4 +1,4 @@ -;;;; $Id: clhs.lisp,v 1.2 2004/01/05 14:53:15 bmastenbrook Exp $ +;;;; $Id: clhs.lisp,v 1.3 2004/01/22 20:51:16 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/clhs.lisp,v $ ;;;; clhs.lisp - an example IRC bot for cl-irc @@ -20,7 +20,7 @@ (in-package :clhs) ;;; CLHS. This will be the default lookup. -(defparameter *hyperspec-pathname* #p"/Users/chandler/Sites/HyperSpec/") +(defparameter *hyperspec-pathname* #p"/home/bmastenbrook/HyperSpec/") (defparameter *hyperspec-map-file* (merge-pathnames "Data/Map_Sym.txt" *hyperspec-pathname*)) @@ -55,23 +55,23 @@ ;; Yuk. I know. Fixes welcome. (loop for section from 0 to 27 do (add-clhs-section-to-table section) - do (loop named s for s1 from 1 to 17 + do (loop named s for s1 from 1 to 26 unless (valid-target section s1) do (return-from s nil) do (add-clhs-section-to-table section s1) - do (loop named ss for s2 from 1 to 17 + do (loop named ss for s2 from 1 to 26 unless (valid-target section s1 s2) do (return-from ss nil) do (add-clhs-section-to-table section s1 s2) - do (loop named sss for s3 from 1 to 17 + do (loop named sss for s3 from 1 to 26 unless (valid-target section s1 s2 s3) do (return-from sss nil) do (add-clhs-section-to-table section s1 s2 s3) - do (loop named ssss for s4 from 1 to 17 + do (loop named ssss for s4 from 1 to 26 unless (valid-target section s1 s2 s3 s4) do (return-from ssss nil) do (add-clhs-section-to-table section s1 s2 s3 s4) - do (loop named sssss for s5 from 1 to 17 + do (loop named sssss for s5 from 1 to 26 unless (valid-target section s1 s2 s3 s4 s5) do (return-from sssss nil) do (add-clhs-section-to-table section s1 s2 s3 s4 s5)))))))) From krosenberg at common-lisp.net Sat Jan 31 19:06:32 2004 From: krosenberg at common-lisp.net (Kevin Rosenberg) Date: Sat, 31 Jan 2004 14:06:32 -0500 Subject: [Cl-irc-cvs] CVS update: cl-irc/debian/changelog cl-irc/debian/control Message-ID: Update of /project/cl-irc/cvsroot/cl-irc/debian In directory common-lisp.net:/tmp/cvs-serv26112/debian Modified Files: changelog control Log Message: Automated commit for Debian build of cl-irc Date: Sat Jan 31 14:06:32 2004 Author: krosenberg Index: cl-irc/debian/changelog diff -u cl-irc/debian/changelog:1.2 cl-irc/debian/changelog:1.3 --- cl-irc/debian/changelog:1.2 Wed Jan 7 07:55:12 2004 +++ cl-irc/debian/changelog Sat Jan 31 14:06:32 2004 @@ -1,3 +1,10 @@ +cl-irc (0.5.1-1) unstable; urgency=low + + * New upstream + * Depend on cl-split-sequence + + -- Kevin M. Rosenberg Sat, 31 Jan 2004 12:09:59 -0700 + cl-irc (0.5-1) unstable; urgency=low * New upstream Index: cl-irc/debian/control diff -u cl-irc/debian/control:1.1.1.1 cl-irc/debian/control:1.2 --- cl-irc/debian/control:1.1.1.1 Mon Jan 5 09:13:04 2004 +++ cl-irc/debian/control Sat Jan 31 14:06:32 2004 @@ -7,7 +7,7 @@ Package: cl-irc Architecture: all -Depends: ${shlibs:Depends}, common-lisp-controller (>= 3.37) +Depends: ${shlibs:Depends}, common-lisp-controller (>= 3.37), cl-split-sequence Description: Common Lisp Internet Relay Chat Library cl-irc provides a library for Common Lisp programs to interact with IRC servers. This library has been most tested with SBCL.