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