Raymond Toy pushed to branch issue-333-load-if-does-not-exist at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • tests/issues.lisp
    ... ... @@ -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)))