Changeset 11512
- Timestamp:
- Dec 12, 2008, 4:11:59 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tests/ansi-tests/ccl.lsp
r11492 r11512 692 692 (type-error () :type-error)) 693 693 :type-error) 694 695 (deftest ccl.49462 696 (let ((file (test-source-file "(defun ccl.49462-fn (x) x) 697 (defmacro ccl.49462-macro (x) (error \"(macro ~~s)\" x)) 698 (ccl.49462-macro 1)"))) 699 (handler-case 700 (with-compilation-unit (:override t) 701 (handler-bind ((error (lambda (c) 702 (declare (ignore c)) 703 (with-open-file (f file :direction :output) 704 (format f "(defun ccl.49462-fn (x) x)")) 705 (invoke-restart 'ccl::retry-compile-file)))) 706 (test-compile file :hide-warnings t)) 707 nil) 708 (warning (c) c))) 709 nil) 694 710 695 711 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset
for help on using the changeset viewer.