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

Locally untabify.

File:
1 edited

Legend:

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

    r11391 r13595  
    300300            *arg-tests*))
    301301    (if keys
    302   (let ((problem (gensym "KEY-PROBLEM-"))
    303         (info (gensym "INFO-")))
    304     (push `(multiple-value-bind (,problem ,info)
    305          (verify-keywords ,rest-name ',keys ',allow-other-keys-p)
    306        (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)
     302        (let ((problem (gensym "KEY-PROBLEM-"))
     303              (info (gensym "INFO-")))
     304          (push `(multiple-value-bind (,problem ,info)
     305                     (verify-keywords ,rest-name ',keys ',allow-other-keys-p)
     306                   (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)
    313313                     (error 'program-error "Unrecognized keyword argument ~S" (car ,info)))
    314314                     )
    315     *arg-tests*)))
     315                *arg-tests*)))
    316316    (values env-arg-used minimum (if (null restp) maximum nil))))
    317317
Note: See TracChangeset for help on using the changeset viewer.