X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fpathnames.impure.lisp;h=4afbba068fe602d06f40b2f16e2525202ed61ce0;hb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;hp=e9867e88bd10d75502ff0376849110082fa3fff5;hpb=1ff04b3ba4e6f3a0fc6ceea524e98720ecea7888;p=sbcl.git

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index e9867e8..4afbba0 100644
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@ -56,7 +56,7 @@
 ;;; handle the following case exactly (otherwise we get an error:
 ;;; "#'IDENTITY CALLED WITH 2 ARGS."
 (setf (logical-pathname-translations "demo2")
-        '(("test;**;*.*" "/tmp/demo2/test/")))
+        '(("test;**;*.*" "/tmp/demo2/test")))
 (enough-namestring "demo2:test;foo.lisp")
 
 ;;; When a pathname comes from a logical host, it should be in upper
@@ -126,4 +126,3 @@
 
 ;;; success
 (quit :unix-status 104)
-(in-package :cl-user)