From d1d62e6e277e4baed59cc424d015076444140cf0 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 2 Sep 1993 15:48:04 +0000
Subject: [PATCH] Fix declaration syntax.

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

diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp
index 32e80e513..7710e5757 100644
--- a/compiler/disassem.lisp
+++ b/compiler/disassem.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.23 1993/09/01 10:00:47 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.24 1993/09/02 15:48:04 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -985,7 +985,7 @@
 		(type instruction inst)
 		(type stream stream)
 		(type disassem-state dstate)
-		#+small (declare (optimize (speed 0) (safety 0) (debug 0))))
+		#+small (optimize (speed 0) (safety 0) (debug 0)))
 
        (macrolet ((local-format-arg (arg fmt)
 		    `(funcall (formatter ,fmt) stream ,arg)))
@@ -1224,7 +1224,7 @@
 			(type dchunk chunk)
 			(type disassem-state dstate)
 			#+small
-			(declare (optimize (speed 0) (safety 0) (debug 0))))
+			(optimize (speed 0) (safety 0) (debug 0)))
 	       (flet ((local-filtered-value (offset)
 			(declare (type filtered-value-index offset))
 			(aref (dstate-filtered-values dstate) offset))
-- 
GitLab