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