Changeset 9849 for release/1.2/source
- Timestamp:
- Jun 30, 2008, 7:06:35 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.2/source/compiler/nx0.lisp
r9792 r9849 1328 1328 (muffle-warning c))) 1329 1329 (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 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)))) 1336 1336 (multiple-value-bind (body decls) 1337 1337 (with-program-error-handler (lambda (c) (runtime-program-error-form c))
Note: See TracChangeset
for help on using the changeset viewer.