Changeset 9849


Ignore:
Timestamp:
Jun 30, 2008, 7:06:35 AM (11 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

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

    r9792 r9849  
    13281328                                (muffle-warning c)))
    13291329                     (program-error (lambda (c)
    1330                                       (when (typep c 'compile-time-program-error)
    1331                                         (setq c (make-condition 'simple-program-error
    1332                                                   :format-control (simple-condition-format-control c)
    1333                                                   :format-arguments (simple-condition-format-arguments c))))
    1334                                       (nx1-whine :program-error c)
    1335                                       (throw 'program-error-handler c))))
     1330                                      (cerror "continue compilation ignoring this form" c)
     1331                                      (when (typep c 'compile-time-program-error)
     1332                                        (setq c (make-condition 'simple-program-error
     1333                                                                :format-control (simple-condition-format-control c)
     1334                                                                :format-arguments (simple-condition-format-arguments c))))
     1335                                      (throw 'program-error-handler c))))
    13361336        (multiple-value-bind (body decls)
    13371337            (with-program-error-handler (lambda (c) (runtime-program-error-form c))
Note: See TracChangeset for help on using the changeset viewer.