Skip to content
Snippets Groups Projects
Commit e48e7e82 authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix trac.50 to use princ-to-string.

parent 14783bb3
No related branches found
No related tags found
No related merge requests found
...@@ -59,7 +59,7 @@ ...@@ -59,7 +59,7 @@
(define-test trac.50 (define-test trac.50
(:tag :trac) (:tag :trac)
(assert-equal "#P(:DIRECTORY (:ABSOLUTE \"tmp\" \"\" \"a\" \"\" \"b\"))" (assert-equal "#P(:DIRECTORY (:ABSOLUTE \"tmp\" \"\" \"a\" \"\" \"b\"))"
(princ (make-pathname :directory '(:absolute "tmp" "" "a" "" "b"))))) (princ-to-string (make-pathname :directory '(:absolute "tmp" "" "a" "" "b")))))
(defparameter *trac.70* (make-string 40 :initial-element #\A)) (defparameter *trac.70* (make-string 40 :initial-element #\A))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment