From dffb8d46ed2d7aabb3db49eacb295e3e50cae33b Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 1 Jun 1990 13:46:47 +0000
Subject: [PATCH] Fixed broken arg type declaration for FINISH-DEFPRINTER

---
 compiler/macros.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/macros.lisp b/compiler/macros.lisp
index ca793e2f3..438887352 100644
--- a/compiler/macros.lisp
+++ b/compiler/macros.lisp
@@ -828,13 +828,13 @@
 ;;;
 ;;;    Start and finish the the printing of a defprinter function.
 ;;;
-(proclaim '(ftype (function (symbol stream fixnum t) void)
-		  start-defprinter finish-defprinter))
 (defun start-defprinter (name stream indent object)
+  (declare (symbol name) (stream stream) (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 (ignore name))
   (if *defprint-pretty*
       (format stream ">~%~VT" indent)
-- 
GitLab