From 3de6ae4ee50b7f0a0e0a9c80cda6885ea796131a Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 27 Feb 1990 13:31:57 +0000
Subject: [PATCH] Fixed up handling of default print functions a bit.  Use of
 the default print function is represented by having a NULL value for the
 DD-PRINT-FUNCTION (instead of the highly broken use of the function object
 for DEFAULT-STRUCTURE-PRINT.)

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

diff --git a/code/defstruct.lisp b/code/defstruct.lisp
index 0e72db581..289d5de4f 100644
--- a/code/defstruct.lisp
+++ b/code/defstruct.lisp
@@ -98,7 +98,7 @@
       (setq name-and-options (list name-and-options)))
   (do* ((options (cdr name-and-options) (cdr options))
 	(name (car name-and-options))
-	(print-function #'default-structure-print)
+	(print-function nil)
 	(pf-supplied-p)
 	(conc-name (concat-pnames name '-))
 	(constructor (concat-pnames 'make- name))
@@ -170,7 +170,7 @@
 	       (unless pf-supplied-p
 		 (setf print-function included-print-function))))
 	    (:print-function
-	     (setf print-function (or (car args) #'default-structure-print))
+	     (setf print-function (car args))
 	     (setf pf-supplied-p t))
 	    (:type (setf saw-type t type (car args)))
 	    (:named (error "The Defstruct option :NAMED takes no arguments."))
-- 
GitLab