Changeset 9765 for release/1.2/source


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

Propagate r9763 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.2/source/compiler/nx0.lisp

    r9666 r9765  
    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.