Skip to content
Snippets Groups Projects
Commit 0f070c37 authored by ram's avatar ram
Browse files

Fixed merge lossage.

parent 16c903cf
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment