Commit 16ad68b1 authored by ram's avatar ram
Browse files

Special-case printing of code pointers, so that we don't choke on internal code

pointers.
parent 003e2bea
......@@ -258,6 +258,11 @@
(character
(output-character object stream))
(vector
#+new-compiler
(if (eql (%primitive get-type object) system:%code-type)
(output-random object stream)
(output-vector object stream))
#-new-compiler
(output-vector object stream))
(array
(output-array object stream (1+ currlevel)))
......
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