Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
......@@ -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)))
......
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