Changeset 9666 for release/1.2/source
- Timestamp:
- Jun 3, 2008, 5:54:15 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.2/source/compiler/nx0.lisp
r9200 r9666 1264 1264 (,handler (catch 'program-error-handler (return-from ,tag (progn ,@body))))))) 1265 1265 1266 (defun runtime-program-error-form (c) 1267 `(signal-program-error "Invalid program: ~a" ,(princ-to-string c))) 1268 1266 1269 (defun nx1-compile-lambda (name lambda-form &optional 1267 1270 (p (make-afunc)) … … 1320 1323 (with-program-error-handler 1321 1324 (lambda (c) 1322 (setf (afunc-acode p) (nx1-lambda () `( (error ',c)) nil)))1325 (setf (afunc-acode p) (nx1-lambda () `(,(runtime-program-error-form c)) nil))) 1323 1326 (handler-bind ((warning (lambda (c) 1324 1327 (nx1-whine :program-error c) … … 1332 1335 (throw 'program-error-handler c)))) 1333 1336 (multiple-value-bind (body decls) 1334 (with-program-error-handler (lambda (c) `(error ',c))1337 (with-program-error-handler (lambda (c) (runtime-program-error-form c)) 1335 1338 (parse-body (%cddr lambda-form) *nx-lexical-environment* t)) 1336 1339 (setf (afunc-acode p) (nx1-lambda (%cadr lambda-form) body decls))))) … … 1618 1621 (let ((form (with-program-error-handler 1619 1622 (lambda (c) 1620 (nx-transform `(error ',c) env))1623 (nx-transform (runtime-program-error-form c) env)) 1621 1624 (nx-transform original env)))) 1622 1625 (nx1-transformed-form form env)))
Note: See TracChangeset
for help on using the changeset viewer.