[git] CMU Common Lisp branch master updated. snapshot-2013-12-a-37-gb3b6dce

Raymond Toy rtoy at common-lisp.net
Mon Dec 23 06:59:50 UTC 2013

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  b3b6dce07ceb5538e89ce8c49a8bd1fe2d6a15d1 (commit)
       via  6b8ebd981528242319eeb8d8ef931df8ceaaefe5 (commit)
      from  4e3589d9d175382fe85b6efe2e3e94ccf598a88e (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit b3b6dce07ceb5538e89ce8c49a8bd1fe2d6a15d1
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Dec 22 22:59:37 2013 -0800

    Fix test trac.69:  Move the setting of the logical pathname
    translation outside of the test.

diff --git a/tests/trac.lisp b/tests/trac.lisp
index a2a1e35..64cbe81 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"))))

commit 6b8ebd981528242319eeb8d8ef931df8ceaaefe5
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Dec 22 22:53:24 2013 -0800

    Fix typo.

diff --git a/tests/trac.lisp b/tests/trac.lisp
index 2f9a4ae..a2a1e35 100644
--- a/tests/trac.lisp
+++ b/tests/trac.lisp
@@ -157,7 +157,7 @@
 	      (dotimes (i 300)
 		(let ((ch (read-char s nil nil)))
 		  (unless (= i (char-code ch))
-		    (push (list i ch (char-code ch)) faillures)))))
+		    (push (list i ch (char-code ch)) failures)))))
        (delete-file path)))))


Summary of changes:
 tests/trac.lisp |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

CMU Common Lisp

More information about the cmucl-cvs mailing list