Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ansi-test
ansi-test
Commits
be8bfe26
Commit
be8bfe26
authored
Dec 30, 2019
by
Marius Gerbershagen
Browse files
Merge branch 'print-structure.1' into 'master'
Fix PRINT-STRUCTURE.1 See merge request
!36
parents
56e3fa15
0ec45541
Changes
1
Hide whitespace changes
Inline
Side-by-side
printer/print-structure.lsp
View file @
be8bfe26
...
@@ -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))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment