Changeset 9764 for branches

Timestamp:

Jun 16, 2008, 11:16:20 AM (16 years ago)

Author:

gz

Message:

don't block the real lambda list error

File:

• branches/working-0711/ccl/compiler/nx0.lisp (modified) (1 diff)

branches/working-0711/ccl/compiler/nx0.lisp

@@ -1359 +1359 @@
     (with-program-error-handler
         (lambda (c)
-          (setf (afunc-acode p) (nx1-lambda () `(,(runtime-program-error-form c)) nil)))
+          (setf (afunc-acode p) (nx1-lambda '(&rest args) `(args ,(runtime-program-error-form c)) nil)))
       (handler-bind ((warning (lambda (c)
                                 (nx1-whine :program-error c)