Changeset 9849 for release/1.2/source

Timestamp:

Jun 30, 2008, 7:06:35 AM (13 years ago)

Author:

gz

Message:

bug #294: Make program-errors signal an immediate error

File:

• release/1.2/source/compiler/nx0.lisp (modified) (1 diff)

release/1.2/source/compiler/nx0.lisp

@@ -1328 +1328 @@
                                 (muffle-warning c)))
                      (program-error (lambda (c)
-                                      (when (typep c 'compile-time-program-error)
-                                        (setq c (make-condition 'simple-program-error
-                                                  :format-control (simple-condition-format-control c)
-                                                  :format-arguments (simple-condition-format-arguments c))))
-                                      (nx1-whine :program-error c)
-                                      (throw 'program-error-handler c))))
+                                      (cerror "continue compilation ignoring this form" c)
+                                      (when (typep c 'compile-time-program-error)
+                                        (setq c (make-condition 'simple-program-error
+                                                                :format-control (simple-condition-format-control c)
+                                                                :format-arguments (simple-condition-format-arguments c))))
+                                      (throw 'program-error-handler c))))
         (multiple-value-bind (body decls)
             (with-program-error-handler (lambda (c) (runtime-program-error-form c))