Changeset 728

Timestamp:

Mar 27, 2004, 2:44:52 AM (21 years ago)

Author:

Gary Byers

Message:

Unknown slot options in DEFCLASS: use CDR, not CADR for option value.

File:

• trunk/ccl/lib/macros.lisp (modified) (1 diff)

trunk/ccl/lib/macros.lisp

@@ -1590 +1590 @@
                     `(:metaclass (find-class ',(cadr option))))
                    (t
-                    (list `',option-name `',(cadr option))))))
+                    (list `',option-name `',(cdr option))))))
              (canonicalize-slot-spec (slot)
                (if (null slot) (signal-program-error "Illegal slot NIL"))