Changeset 235

Timestamp:

Jan 7, 2004, 3:38:16 PM (21 years ago)

Author:

Gary Byers

Message:

Do an EVAL-REDEF for ASSQ.

File:

• trunk/ccl/lib/level-2.lisp (modified) (1 diff)

trunk/ccl/lib/level-2.lisp

@@ -405 +405 @@
                (%set-double-float p o new))
   (%eval-redef %set-single-float (p o &optional (new (prog1 o (setq o 0))))
-               (%set-single-float p o new))  
+               (%set-single-float p o new))
+  (%eval-redef assq (item list))
 )