/[cmucl]/src/code/type-init.lisp
ViewVC logotype

Contents of /src/code/type-init.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3.56.1 - (hide annotations)
Mon Feb 8 17:15:49 2010 UTC (4 years, 2 months ago) by rtoy
Branch: intl-branch
CVS Tags: intl-branch-working-2010-02-19-1000, intl-branch-working-2010-02-11-1000, intl-branch-2010-03-18-1300
Changes since 1.3: +2 -1 lines
Add (intl:textdomain "cmucl") to the files to set the textdomain.
1 ram 1.1 ;;; -*- Package: KERNEL; Log: C.Log -*-
2     ;;;
3     ;;; **********************************************************************
4     ;;; This code was written as part of the CMU Common Lisp project at
5     ;;; Carnegie Mellon University, and has been placed in the public domain.
6     ;;;
7     (ext:file-comment
8 rtoy 1.3.56.1 "$Header: /tiger/var/lib/cvsroots/cmucl/src/code/type-init.lisp,v 1.3.56.1 2010/02/08 17:15:49 rtoy Exp $")
9 ram 1.1 ;;;
10     ;;; **********************************************************************
11     ;;;
12     ;;; This file's top-level forms are run, it precomputes the translations for
13     ;;; commonly used type specifiers. This stuff is split off from the other type
14     ;;; stuff to get around problems with everything needing to be loaded before
15     ;;; everything else. This is the first file which really exercises the type
16     ;;; stuff. This stuff is also somewhat implementation-dependent in that
17     ;;; implementations may want to precompute other types which are important to
18     ;;; them.
19     ;;;
20     ;;; Written by Rob MacLachlan
21     ;;;
22     (in-package "KERNEL")
23 rtoy 1.3.56.1 (intl:textdomain "cmucl")
24 ram 1.1
25     (export '*null-type*)
26    
27     ;;; Built-in classes...
28    
29     (dolist (x built-in-classes)
30     (destructuring-bind (name &key (translation nil trans-p) &allow-other-keys)
31     x
32     (when trans-p
33 ram 1.2 (let ((class (class-cell-class (find-class-cell name)))
34 ram 1.1 (type (specifier-type translation)))
35     (setf (built-in-class-translation class) type)
36     (setf (info type builtin name) type)))))
37    
38     ;;; Numeric types...
39    
40     (precompute-types '((mod 2) (mod 4) (mod 16) (mod #x100) (mod #x10000)
41     (mod #x100000000)
42     (unsigned-byte 1) (unsigned-byte 2) (unsigned-byte 4)
43     (unsigned-byte 8) (unsigned-byte 16) (unsigned-byte 32)
44     (signed-byte 8) (signed-byte 16) (signed-byte 32)))
45    
46     ;;; Builtin symbol type specifiers:
47    
48     (precompute-types type-specifier-symbols)
49    
50     (defparameter *null-type* (specifier-type 'null))

  ViewVC Help
Powered by ViewVC 1.1.5