From 29ebda1ac90ee21c7bd7c199d0e5fb64445ac3e4 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 6 Jun 1990 13:54:09 +0000 Subject: [PATCH] Fixed some broken declarations. --- compiler/macros.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/macros.lisp b/compiler/macros.lisp index 438887352..47ea0157b 100644 --- a/compiler/macros.lisp +++ b/compiler/macros.lisp @@ -829,12 +829,12 @@ ;;; Start and finish the the printing of a defprinter function. ;;; (defun start-defprinter (name stream indent object) - (declare (symbol name) (stream stream) (index indent)) + (declare (symbol name) (stream stream) (type index indent)) (declare (ignore indent)) (format stream "#<~S ~X" name (system:%primitive make-fixnum object))) ;;; (defun finish-defprinter (name stream indent) - (declare (symbol name) (stream stream) (index indent)) + (declare (symbol name) (stream stream) (type index indent)) (declare (ignore name)) (if *defprint-pretty* (format stream ">~%~VT" indent) -- GitLab