From 50245b95fe39c760c0f57abd2d56b54b805c552c Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 17 Jun 1990 20:20:41 +0000
Subject: [PATCH] typo.

---
 compiler/ir1util.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp
index 7eb27ea12..1acd87229 100644
--- a/compiler/ir1util.lisp
+++ b/compiler/ir1util.lisp
@@ -1200,7 +1200,7 @@
   (let ((*print-level* *error-print-level*)
 	(*print-length* *error-print-length*)
 	(*print-circle* t))
-    (format nil "  ~S~%")))
+    (format nil "  ~S~%" form)))
 
 
 ;;; FIND-ERROR-CONTEXT  --  Interface
-- 
GitLab