0.8.0.78.vector-nil-string.1:

[sbcl.git] / src / compiler / x86 / vm.lisp

diff --git a/src/compiler/x86/vm.lisp b/src/compiler/x86/vm.lisp
index bc7c86d..97d10f7 100644 (file)
--- a/src/compiler/x86/vm.lisp
+++ b/src/compiler/x86/vm.lisp
@@ -450,7 +450,7 @@
 ;;; The loader uses this to convert alien names to the form they need in
 ;;; the symbol table (for example, prepending an underscore).
 (defun extern-alien-name (name)
-  (declare (type simple-string name))
+  (declare (type simple-base-string name))
   ;; OpenBSD is non-ELF, and needs a _ prefix
   #!+openbsd (concatenate 'string "_" name)
   ;; The other (ELF) ports currently don't need any prefix