Raymond Toy pushed to branch issue-333-load-if-does-not-exist at cmucl / cmucl
Commits:
-
91fc1946
by Raymond Toy at 2024-07-08T08:50:34-07:00
1 changed file:
Changes:
| ... | ... | @@ -1111,10 +1111,10 @@ |
| 1111 | 1111 | ;; "unknown.lisp" should be a file that doesn't exist. Verify that
|
| 1112 | 1112 | ;; if :IF-DOES-NOT-EXIST is non-NIL we signal an error from LOAD.
|
| 1113 | 1113 | ;; The first case is the old default value of :ERROR.
|
| 1114 | - (assert-errors 'file-error
|
|
| 1114 | + (assert-error 'file-error
|
|
| 1115 | 1115 | (load "unknown.lisp" :if-does-not-exist :error))
|
| 1116 | 1116 | ;; :IF-DOES-NOT-EXIST is a generalized BOOLEAN, so non-NIL will
|
| 1117 | 1117 | ;; signal an error too.
|
| 1118 | - (assert-errors 'file-error
|
|
| 1118 | + (assert-error 'file-error
|
|
| 1119 | 1119 | (load "unknown.lisp" :if-does-not-exist t))
|
| 1120 | - (assert-faluse (load "unknown.lisp" :if-does-not-exist nil))) |
|
| 1120 | + (assert-false (load "unknown.lisp" :if-does-not-exist nil))) |