home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / src-16f.lha / compiler / type-init.lisp < prev    next >
Encoding:
Text File  |  1991-11-06  |  1.6 KB  |  43 lines
  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. ;;; If you want to use this code or any part of CMU Common Lisp, please contact
  7. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
  8. ;;;
  9. (ext:file-comment
  10.   "$Header: type-init.lisp,v 1.4 91/02/20 14:59:54 ram Exp $")
  11. ;;;
  12. ;;; **********************************************************************
  13. ;;;
  14. ;;; $Header: type-init.lisp,v 1.4 91/02/20 14:59:54 ram Exp $
  15. ;;;
  16. ;;;    This file precomputes the translations for commonly used type specifiers
  17. ;;; when it is loaded.  This stuff is split off from the other type stuff to
  18. ;;; get around problems with everything needing to be loaded before everything
  19. ;;; else.  This is the first file which really exercises the type stuff.  This
  20. ;;; stuff is also somewhat implementation-dependent in that implementations may
  21. ;;; want to precompute other types which are important to them.
  22. ;;;
  23. ;;; Written by Rob MacLachlan
  24. ;;;
  25. (in-package "KERNEL")
  26.  
  27. (export '*null-type*)
  28.  
  29.  
  30. ;;; Numeric types...
  31.  
  32. (precompute-types '((mod 2) (mod 4) (mod 16) (mod #x100) (mod #x10000)
  33.             (mod #x100000000)
  34.             (unsigned-byte 1) (unsigned-byte 2) (unsigned-byte 4)
  35.             (unsigned-byte 8) (unsigned-byte 16) (unsigned-byte 32)
  36.             (signed-byte 8) (signed-byte 16) (signed-byte 32)))
  37.  
  38. ;;; Builtin symbol type specifiers:
  39.  
  40. (precompute-types type-specifier-symbols)
  41.  
  42. (defparameter *null-type* (specifier-type 'null))
  43.