[403bac]: src / code / class-init.lisp Maximize Restore History

Download this file

class-init.lisp    33 lines (28 with data), 1.3 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
;;;; When this file's top level forms are run, it precomputes the
;;;; translations for built in classes. This stuff is split off from
;;;; the other type stuff to get around problems with everything
;;;; needing to be loaded before everything else. This file is the
;;;; first to exercise the type machinery.
;;;; This software is part of the SBCL system. See the README file for
;;;; more information.
;;;;
;;;; This software is derived from the CMU CL system, which was
;;;; written at Carnegie Mellon University and released into the
;;;; public domain. The software is in the public domain and is
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
(in-package "SB!KERNEL")
;;; built-in classes
(/show0 "beginning class-init.lisp")
(dolist (x *built-in-classes*)
(destructuring-bind (name &key (translation nil trans-p) &allow-other-keys)
x
(/show0 "doing class with NAME=..")
(/primitive-print (symbol-name name))
(when trans-p
(/show0 "in TRANS-P case")
(let ((classoid (classoid-cell-classoid (find-classoid-cell name)))
(type (specifier-type translation)))
(setf (built-in-classoid-translation classoid) type)
(setf (info :type :builtin name) type)))))
(/show0 "done with class-init.lisp")