Changeset 14294

Timestamp:

Sep 21, 2010, 4:23:00 PM (14 years ago)

Author:

Gary Byers

Message:

In DEFCLASS: when complaining about an option keyword that's not
present in a vector of such keywords, coerce the vector to a list
for the error message.

File:

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

trunk/source/lib/macros.lisp

@@ -2116 +2116 @@
               (when illegal
                 (signal-program-error "Class option~p~{ ~s~} is not one of ~s"
-                                      (length illegal) illegal keyvect))))
+                                      (length illegal) illegal (coerce keyvect 'list)))))
           `(progn
              (when (memq ',class-name *nx-known-declarations*)