Changeset 13202


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

Test for bad lambda list in defmethod

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/macros.lisp

    r13192 r13202  
    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.