Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/home/bmastenbrook/cl-irc/example

Modified Files: cliki.lisp Log Message: Remove a temp function

Date: Tue Jul 27 13:51:56 2004 Author: bmastenbrook

Index: cl-irc/example/cliki.lisp diff -u cl-irc/example/cliki.lisp:1.16 cl-irc/example/cliki.lisp:1.17 --- cl-irc/example/cliki.lisp:1.16 Tue Jul 27 13:51:24 2004 +++ cl-irc/example/cliki.lisp Tue Jul 27 13:51:56 2004 @@ -1,4 +1,4 @@ -;;;; $Id: cliki.lisp,v 1.16 2004/07/27 20:51:24 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.17 2004/07/27 20:51:56 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $

;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -181,11 +181,6 @@ (setf *advice-db* (read ad)))) (or (cddr (assoc num *advice-db*)) "You can't just make up advice numbers and expect a response."))) - -(defun fix-advice () - (mapc #'(lambda (e) - (setf (cdr e) - (cddr e))) *advice-db*))

(defun random-advice () (let ((item (random-element *advice-db*)))