Commit be8bfe26 authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

Merge branch 'print-structure.1' into 'master'


See merge request !36
parents 56e3fa15 0ec45541
...@@ -12,7 +12,8 @@ ...@@ -12,7 +12,8 @@
(deftest print-structure.1 (deftest print-structure.1
(let ((s (make-print-struct-1 :foo 1 :bar 2))) (let ((s (make-print-struct-1 :foo 1 :bar 2)))
(with-standard-io-syntax (with-standard-io-syntax
(let ((*tst-pkg* (find-package "CL-TEST")) (let* ((*package* (find-package "CL-TEST"))
(*tst-pkg* *package*)
(*kwd-pkg* (find-package "KEYWORD"))) (*kwd-pkg* (find-package "KEYWORD")))
(let ((str (write-to-string s :readably nil :case :upcase :escape nil))) (let ((str (write-to-string s :readably nil :case :upcase :escape nil)))
(assert (string= (subseq str 0 3) "#S(")) (assert (string= (subseq str 0 3) "#S("))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment