Changeset 53

Timestamp:

07/27/04 20:51:56 (21 years ago)

Author:

bmastenbrook

Message:

Remove a temp function

File:

• trunk/example/cliki.lisp (modified) (1 diff)

trunk/example/cliki.lisp ¶

@@ -182 +182 @@
     (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 ()