Skip to content
Snippets Groups Projects
Commit 8bdf9f4a authored by ram's avatar ram
Browse files

Make type compiler-layout default to the current layout.

parent d3918c49
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/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
......
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