Changeset 9764


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

don't block the real lambda list error

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx0.lisp

    r9620 r9764  
    13591359    (with-program-error-handler
    13601360        (lambda (c)
    1361           (setf (afunc-acode p) (nx1-lambda () `(,(runtime-program-error-form c)) nil)))
     1361          (setf (afunc-acode p) (nx1-lambda '(&rest args) `(args ,(runtime-program-error-form c)) nil)))
    13621362      (handler-bind ((warning (lambda (c)
    13631363                                (nx1-whine :program-error c)
Note: See TracChangeset for help on using the changeset viewer.