From 8bdf9f4ac226e97c12d76c2e52e6b301d18be3af Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 8 Feb 1993 22:06:57 +0000 Subject: [PATCH] Make type compiler-layout default to the current layout. --- compiler/globaldb.lisp | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp index 7509f0fb2..341f88ce3 100644 --- a/compiler/globaldb.lisp +++ b/compiler/globaldb.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.26.1.3 1993/02/04 22:39:17 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.26.1.4 1993/02/08 22:06:57 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1105,10 +1105,6 @@ ;;; Expander function for a defined type. (define-info-type type expander (or function null) nil) -;;; Layout for this type being used by the compiler. -;;; -(define-info-type type compiler-layout (or layout null) nil) - (define-info-type type documentation (or string null)) ;;; Function that parses type specifiers into CTYPE structures. @@ -1128,6 +1124,12 @@ ;;; (define-info-type type class (or class null) nil) +;;; Layout for this type being used by the compiler. +;;; +(define-info-type type compiler-layout (or layout null) + (let ((class (info type class name))) + (when class (class-layout class)))) + #+ns-boot (define-info-type type printer (or function symbol null) nil) #+ns-boot -- GitLab