more restrictive test naming

[sbcl.git] / tests / load.impure.lisp

diff --git a/tests/load.impure.lisp b/tests/load.impure.lisp
index 4eda4e4..ee43f50 100644 (file)
--- a/tests/load.impure.lisp
+++ b/tests/load.impure.lisp
@@ -307,10 +307,10 @@
                (error () nil)))
         (ignore-errors (delete-file pathname)))))
 
-(with-test (:name (load "empty.lisp"))
+(with-test (:name (load :empty.lisp))
   (assert (load-empty-file "lisp")))
 
-(with-test (:name (load "empty.fasl"))
+(with-test (:name (load :empty.fasl))
   (assert (not (load-empty-file "fasl"))))
 
 (with-test (:name :parallel-fasl-load)