Skip to content
Snippets Groups Projects
Commit 81d3b5b0 authored by wlott's avatar wlott
Browse files

Added eval-when compile load eval around remhash of character from

*builtin-types*.
parent 60abcd66
No related branches found
No related tags found
No related merge requests found
...@@ -35,7 +35,8 @@ ...@@ -35,7 +35,8 @@
;;; ### Bootstrap hack: base characters don't exist in the old compiler, ;;; ### Bootstrap hack: base characters don't exist in the old compiler,
;;; so leave characters alone. ;;; so leave characters alone.
(compiler-let ((lisp::*bootstrap-deftype* t)) (compiler-let ((lisp::*bootstrap-deftype* t))
(remhash 'character *builtin-types*) (eval-when (compile eval load)
(remhash 'character *builtin-types*))
(deftype character () 'base-character)) (deftype character () 'base-character))
;;; ;;;
......
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