Skip to content
Snippets Groups Projects
Commit be8bfe26 authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

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

Fix PRINT-STRUCTURE.1

See merge request ansi-test/ansi-test!36
parents 56e3fa15 0ec45541
No related branches found
No related tags found
No related merge requests found
......@@ -12,9 +12,10 @@
(deftest print-structure.1
(let ((s (make-print-struct-1 :foo 1 :bar 2)))
(with-standard-io-syntax
(let ((*tst-pkg* (find-package "CL-TEST"))
(*kwd-pkg* (find-package "KEYWORD")))
(let ((str (write-to-string s :readably nil :case :upcase :escape nil)))
(let* ((*package* (find-package "CL-TEST"))
(*tst-pkg* *package*)
(*kwd-pkg* (find-package "KEYWORD")))
(let ((str (write-to-string s :readably nil :case :upcase :escape nil)))
(assert (string= (subseq str 0 3) "#S("))
(let ((vals (read-from-string (subseq str 2))))
(assert (listp vals))
......
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