Skip to content
Snippets Groups Projects
Commit 770d2083 authored by ram's avatar ram
Browse files

Moved print-function into basic-structure-class.

parent 0a999939
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.17 1993/03/13 17:30:31 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.18 1993/03/14 12:12:21 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -201,12 +201,12 @@
;;; Non-structure "typed" defstructs are a special case, and don't have a
;;; corresponding class.
;;;
(defstruct (basic-structure-class (:include class)))
(defstruct (structure-class (:include basic-structure-class))
(defstruct (basic-structure-class (:include class))
;;
;; Structure print function, or NIL if none.
(print-function nil :type (or function symbol null))
(print-function nil :type (or function symbol null)))
(defstruct (structure-class (:include basic-structure-class))
;;
;; MAKE-LOAD-FORM method, or NIL if none. :J-D-I-N dumps the slots.
;; :IGNORE-IT is used for magic structures which the compiler inserts in IR1,
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment