Changeset 144

Timestamp:

Dec 19, 2003, 3:44:42 PM (21 years ago)

Author:

Gary Byers

Message:

A little clearer to say OPTION-NAME instead of (CADR OPTION) in DEFCLASS
misc-option case.

File:

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

trunk/ccl/lib/macros.lisp

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