Commit 4f9bd10a authored by Stas Boukarev's avatar Stas Boukarev
Browse files

Fix identity-test for symbols.

parent 215cbfd5
......@@ -33,6 +33,7 @@
(when (member mode '(:both :write))
(with-io-file (stream *test-file* :direction :output
:size (object-size x))
(setf (fill-pointer *packages*) 0)
(write-object x stream))))
(with-packages
(let ((*packages* (make-s-packages)))
......
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