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,9 +12,10 @@ ...@@ -12,9 +12,10 @@
(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"))
(*kwd-pkg* (find-package "KEYWORD"))) (*tst-pkg* *package*)
(let ((str (write-to-string s :readably nil :case :upcase :escape nil))) (*kwd-pkg* (find-package "KEYWORD")))
(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("))
(let ((vals (read-from-string (subseq str 2)))) (let ((vals (read-from-string (subseq str 2))))
(assert (listp vals)) (assert (listp vals))
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