[Cl-irc-cvs] CVS update: cl-irc/example/cliki.lisp

[Brian Mastenbrook]

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*)))