From 49c59321a22fef0700a774e972017cb4f90477a4 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Mon, 10 Feb 1997 23:18:05 +0000
Subject: [PATCH] Partial fix for get-top-level-form reading and evaluating #.
 macros in source.

---
 compiler/disassem.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp
index 64b8d77c3..9d0c60d27 100644
--- a/compiler/disassem.lisp
+++ b/compiler/disassem.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.25 1994/10/31 04:27:28 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.26 1997/02/10 23:18:05 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2666,7 +2666,8 @@
 				  (warn "Source file ~s has been modified; ~@
 					 Using form offset instead of file index"
 					name)
-				  (dotimes (i local-tlf-index) (read f))))
+				  (let ((*read-suppress* t))
+				    (dotimes (i local-tlf-index) (read f)))))
 			   (read f)
 			   ))))))))
       ((:lisp :stream)
-- 
GitLab