Changeset 13204

Timestamp:

Nov 13, 2009, 9:18:19 AM (15 years ago)

Author:

gz

Message:

Test for bad lambda list in defmethod (r13202)

File:

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

trunk/source/lib/macros.lisp

@@ -1812 +1812 @@
          (record-function-info ',(maybe-setf-function-name name)
                                ',(multiple-value-bind (bits keyvect) (encode-lambda-list lambda-list t)
+                                   (unless bits ;; verify failed
+                                     (signal-program-error "Invalid lambda list ~s" (car args)))
                                    (%cons-def-info 'defmethod bits keyvect nil specializers qualifiers))
                                ,env))