From 260ccfb80ab82c50172ef58d965f7ff2dbc73123 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 30 Mar 1990 18:17:56 +0000 Subject: [PATCH] Fixed missing stream arg in OUTPUT-RANDOM. --- code/print.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/print.lisp b/code/print.lisp index fecbfd090..ac33b3ec2 100644 --- a/code/print.lisp +++ b/code/print.lisp @@ -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)) -- GitLab