diff --git a/tests/trac.lisp b/tests/trac.lisp index 1fd0683595b1cc5c98b8b6fd2fde0a91cfe7c908..dbe874185f860eae6f1ab942a8f6c09da04cf1fd 100644 --- a/tests/trac.lisp +++ b/tests/trac.lisp @@ -59,7 +59,7 @@ (define-test trac.50 (:tag :trac) (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))