Changeset 13237


Ignore:
Timestamp:
Nov 30, 2009, 3:56:16 PM (10 years ago)
Author:
gz
Message:

Fix error message in defmethod

Location:
trunk/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source

  • trunk/source/lib/macros.lisp

    r13204 r13237  
    18131813                               ',(multiple-value-bind (bits keyvect) (encode-lambda-list lambda-list t)
    18141814                                   (unless bits ;; verify failed
    1815                                      (signal-program-error "Invalid lambda list ~s" (car args)))
     1815                                     (signal-program-error "Invalid lambda list ~s"
     1816                                                           (find-if #'listp args)))
    18161817                                   (%cons-def-info 'defmethod bits keyvect nil specializers qualifiers))
    18171818                               ,env))
Note: See TracChangeset for help on using the changeset viewer.