Ignore:
Timestamp:
Jun 16, 2008, 6:12:06 PM (11 years ago)
Author:
gz
Message:

don't block the real lambda list error

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r9665 r9763  
    13231323    (with-program-error-handler
    13241324        (lambda (c)
    1325           (setf (afunc-acode p) (nx1-lambda () `(,(runtime-program-error-form c)) nil)))
     1325          (setf (afunc-acode p) (nx1-lambda '(&rest args) `(args ,(runtime-program-error-form c)) nil)))
    13261326      (handler-bind ((warning (lambda (c)
    13271327                                (nx1-whine :program-error c)
Note: See TracChangeset for help on using the changeset viewer.