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))) |