From bac5131cbb1b33c544797350f2149783f994751f Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 27 Mar 1990 18:54:23 +0000
Subject: [PATCH] Removed eval-when from around (remhash 'character
 *builtin-types*), 'cause character isn't put in the hash table at compile
 time.

---
 compiler/generic/vm-type.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/compiler/generic/vm-type.lisp b/compiler/generic/vm-type.lisp
index 2c76ca22c..38991ef4f 100644
--- a/compiler/generic/vm-type.lisp
+++ b/compiler/generic/vm-type.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.6 1990/03/27 17:18:50 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.7 1990/03/27 18:54:23 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
@@ -41,8 +41,7 @@
 ;;; ### Bootstrap hack: base characters don't exist in the old compiler,
 ;;; 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*))
+  (remhash 'character *builtin-types*)
   (deftype character () 'base-character)
   (deftype string-char ()
     (warn "Someone used the STRING-CHAR type.")
-- 
GitLab