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