From 81d3b5b0c263edd69918ac0429fc3f4fd43e9f9e Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 24 Mar 1990 18:52:03 +0000
Subject: [PATCH] Added eval-when compile load eval around remhash of character
 from *builtin-types*.

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

diff --git a/compiler/generic/vm-type.lisp b/compiler/generic/vm-type.lisp
index fee581e61..1d7d9a2b9 100644
--- a/compiler/generic/vm-type.lisp
+++ b/compiler/generic/vm-type.lisp
@@ -35,7 +35,8 @@
 ;;; ### Bootstrap hack: base characters don't exist in the old compiler,
 ;;; so leave characters alone.
 (compiler-let ((lisp::*bootstrap-deftype* t))
-  (remhash 'character *builtin-types*)
+  (eval-when (compile eval load)
+    (remhash 'character *builtin-types*))
   (deftype character () 'base-character))
 
 ;;;
-- 
GitLab