Changeset 13204


Ignore:
Timestamp:
Nov 13, 2009, 5:18:19 PM (10 years ago)
Author:
gz
Message:

Test for bad lambda list in defmethod (r13202)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r13187 r13204  
    18121812         (record-function-info ',(maybe-setf-function-name name)
    18131813                               ',(multiple-value-bind (bits keyvect) (encode-lambda-list lambda-list t)
     1814                                   (unless bits ;; verify failed
     1815                                     (signal-program-error "Invalid lambda list ~s" (car args)))
    18141816                                   (%cons-def-info 'defmethod bits keyvect nil specializers qualifiers))
    18151817                               ,env))
Note: See TracChangeset for help on using the changeset viewer.