Skip to content
Snippets Groups Projects
Commit 17eeccd3 authored by wlott's avatar wlott
Browse files

Make string-chars look like base-characters, but warn the bozos.

parent a85ff7ea
No related branches found
No related tags found
No related merge requests found
......@@ -7,13 +7,15 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.5 1990/03/26 22:01:46 wlott Exp $
;;;
;;; This file contains implementation-dependent parts of the type support
;;; code. This is stuff which deals with the mapping from types defined in
;;; Common Lisp to types actually supported by an implementation.
;;;
;;; Written by Rob MacLachlan
;;;
(in-package 'c)
(in-package "C")
;;;; Implementation dependent deftypes:
......@@ -33,11 +35,14 @@
;;; Character is the same as base-character.
;;; ### Bootstrap hack: base characters don't exist in the old compiler,
;;; so leave characters alone.
;;; so leave characters alone. Also, make string-char look like base-char.
(compiler-let ((lisp::*bootstrap-deftype* t))
(eval-when (compile eval load)
(remhash 'character *builtin-types*))
(deftype character () 'base-character))
(deftype character () 'base-character)
(deftype string-char ()
(warn "Someone used the STRING-CHAR type.")
'base-character))
;;;
;;; An index into an integer.
......
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