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