Skip to content
Snippets Groups Projects
Commit 260ccfb8 authored by ram's avatar ram
Browse files

Fixed missing stream arg in OUTPUT-RANDOM.

parent 1cde1830
No related branches found
No related tags found
No related merge requests found
......@@ -1256,6 +1256,6 @@
(if (compiled-function-p object)
(output-function-object object stream)
(let ((type (%primitive get-type object)))
(write-string "Pointer into Hell, level ")
(write-string "Pointer into Hell, level " stream)
(sub-output-integer type stream)))
(finish-random object stream))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment