0.8.16.25:

[sbcl.git] / src / compiler / generic / genesis.lisp

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 674db25..b1dee69 100644 (file)
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -2106,6 +2106,11 @@ core and return a descriptor to it."
     (read-string-as-bytes *fasl-input-stream* string)
     (base-string-to-core string)))
 
+#!+sb-unicode
+(clone-cold-fop (fop-character-string)
+               (fop-small-character-string)
+  (bug "CHARACTER-STRING dumped by cross-compiler."))
+
 (clone-cold-fop (fop-vector)
                (fop-small-vector)
   (let* ((size (clone-arg))