From b3b6dce07ceb5538e89ce8c49a8bd1fe2d6a15d1 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sun, 22 Dec 2013 22:59:37 -0800
Subject: [PATCH] Fix test trac.69:  Move the setting of the logical pathname
 translation outside of the test.

---
 tests/trac.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tests/trac.lisp b/tests/trac.lisp
index a2a1e35dd..64cbe81a2 100644
--- a/tests/trac.lisp
+++ b/tests/trac.lisp
@@ -207,10 +207,11 @@
 				    (replace s s :start2 100 :end2 105)))
 			 (copy-seq "1234567890"))))
 
+(setf (logical-pathname-translations "trac69")
+      '(("**;*.*.*" "/tmp/**/*.*")))
+
 (define-test trac.69
   (:tag :trac)
-  (setf (logical-pathname-translations "trac69")
-	'(("**;*.*.*" "/tmp/**/*.*")))
   (assert-error 'lisp::namestring-parse-error
 		(let ((*default-pathname-defaults* #p"trac69:"))
 		  (pathname "/tmp/bar.lisp"))))
-- 
GitLab