Changeset 13236

Timestamp:

Nov 30, 2009, 7:55:19 AM (15 years ago)

Author:

gz

Message:

Fix error message in defmethod

File:

• branches/working-0711/ccl/lib/macros.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/macros.lisp

@@ -1813 +1813 @@
                                ',(multiple-value-bind (bits keyvect) (encode-lambda-list lambda-list t)
                                    (unless bits ;; verify failed
-                                     (signal-program-error "Invalid lambda list ~s" (car args)))
+                                     (signal-program-error "Invalid lambda list ~s"
+                                                           (find-if #'listp args)))
                                    (%cons-def-info 'defmethod bits keyvect nil specializers qualifiers))
                                ,env))