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