From 7abded836658981b5042b6f4527190f3cfbdfa88 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 5 Nov 1990 19:10:18 +0000
Subject: [PATCH] Fixed ftype proclaim of defprinter-prin[1c] to allow nil for
 the indent.

---
 compiler/macros.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/macros.lisp b/compiler/macros.lisp
index 0dcbd0f9f..d4f6aef99 100644
--- a/compiler/macros.lisp
+++ b/compiler/macros.lisp
@@ -733,7 +733,7 @@
 ;;;    These functions are called by the expansion of the Defprinter
 ;;; macro to do the actual printing.
 ;;;
-(proclaim '(ftype (function (symbol t stream fixnum) void)
+(proclaim '(ftype (function (symbol t stream (or null fixnum)) void)
 		  defprinter-prin1 defprinter-princ))
 (defun defprinter-prin1 (name value stream indent)
   (if *defprint-pretty*
-- 
GitLab