From 0f070c375e913e2229b636c07a561b47b6f8fb39 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 5 Mar 1990 11:57:43 +0000 Subject: [PATCH] Fixed merge lossage. --- code/defstruct.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/code/defstruct.lisp b/code/defstruct.lisp index 289d5de4f..7206cbd7e 100644 --- a/code/defstruct.lisp +++ b/code/defstruct.lisp @@ -158,8 +158,7 @@ (setf include args) (let* ((name (car include)) (included-structure - (or (get name '%structure-definition-in-compiler) - (get name '%structure-definition))) + (info type structure-info name)) (included-print-function (if included-structure (dd-print-function included-structure)))) @@ -546,8 +545,7 @@ ;;; desired. This is only called for typed structures, since the default ;;; structure predicate is implemented as a closure. - - **** END OF MERGE LOSSAGE ****(defun define-predicate (defstruct) +(defun define-predicate (defstruct) (let ((name (dd-name defstruct)) (pred (dd-predicate defstruct))) (when (and pred (dd-named defstruct)) -- GitLab