From 46f3ddccbfcdc61b7da39b3d04ec17fb2dad1a85 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 23 Jun 1990 19:01:03 +0000 Subject: [PATCH] Fixed several proclaims. --- code/pmax-disassem.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/code/pmax-disassem.lisp b/code/pmax-disassem.lisp index ca3ab2184..40fea16ba 100644 --- a/code/pmax-disassem.lisp +++ b/code/pmax-disassem.lisp @@ -1,6 +1,6 @@ ;;; -*- Mode: Lisp; Package: MIPS -*- ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-disassem.lisp,v 1.11 1990/02/24 17:07:35 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-disassem.lisp,v 1.12 1990/06/23 19:01:03 wlott Exp $ ;;; ;;; A simple dissambler for the MIPS R2000. ;;; @@ -261,7 +261,7 @@ (defvar *mips-instructions* (make-array (ash 1 mips-instruction-bits))) -(proclaim '(type *mips-instructions* 'simple-vector)) +(proclaim '(type simple-vector *mips-instructions*)) (defmacro def-mips-instr (name op-code type) `(let ((name ,name) @@ -277,7 +277,7 @@ (defvar *mips-special-instructions* (make-array (ash 1 mips-special-instruction-bits))) -(proclaim '(type *mips-special-instructions* 'simple-vector)) +(proclaim '(type simple-vector *mips-special-instructions*)) (defmacro def-mips-special-instr (name op-code type) `(let ((name ,name) @@ -293,7 +293,7 @@ (defvar *mips-bcond-instructions* (make-array (ash 1 mips-bcond-instruction-bits))) -(proclaim '(type *mips-bcond-instructions* 'simple-vector)) +(proclaim '(type simple-vector *mips-bcond-instructions*)) (defmacro def-mips-bcond-instr (name op-code type) `(let ((name ,name) -- GitLab