Ignore:
Timestamp:
09/17/11 20:36:41 (10 years ago)
Author:
ehuelsmann
Message:

When an error function is passed into PARSE-DEFMACRO-LAMBDA-LIST,
call it (at run time) instead of always calling ERROR. (To be used
in my next commit.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/destructuring-bind.lisp

    r13595 r13596  
    305305                     (verify-keywords ,rest-name ',keys ',allow-other-keys-p)
    306306                   (when ,problem
    307 ;;                   (,error-fun
    308 ;;                    'defmacro-lambda-list-broken-key-list-error
    309 ;;                    :kind ',error-kind
    310 ;;                    ,@(when name `(:name ',name))
    311 ;;                    :problem ,problem
    312 ;;                    :info ,info)
    313                      (error 'program-error "Unrecognized keyword argument ~S" (car ,info)))
    314                      )
     307                     ,(if (eq error-fun 'error)
     308                          `(error 'program-error
     309                                  "Unrecognized keyword argument ~S"
     310                                  (car ,info))
     311                          `(,error-fun
     312                           'defmacro-lambda-list-broken-key-list-error
     313                           :kind ',error-kind
     314                           ,@(when name `(:name ',name))
     315                           :problem ,problem
     316                           :info ,info))))
    315317                *arg-tests*)))
    316318    (values env-arg-used minimum (if (null restp) maximum nil))))
Note: See TracChangeset for help on using the changeset viewer.