From 770d20838f383c43532f3ff466a656657f8717ad Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 14 Mar 1993 12:12:21 +0000
Subject: [PATCH] Moved print-function into basic-structure-class.

---
 code/class.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/code/class.lisp b/code/class.lisp
index baa9f4508..c1af8c6a6 100644
--- a/code/class.lisp
+++ b/code/class.lisp
@@ -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,
-- 
GitLab