X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fmips%2Fc-call.lisp;h=c37991e7bf36a91adc0c94c0559f90fa58e55596;hb=4ed3f0d08c3a57a6762018d9622f253ab9d0f2b6;hp=af0d2f8274374f0aea26d1087dca9aab4324a2ab;hpb=4ae1b794a5d6a90794468cf8017f5307f2c30dfe;p=sbcl.git

diff --git a/src/compiler/mips/c-call.lisp b/src/compiler/mips/c-call.lisp
index af0d2f8..c37991e 100644
--- a/src/compiler/mips/c-call.lisp
+++ b/src/compiler/mips/c-call.lisp
@@ -138,7 +138,7 @@
   (:translate foreign-symbol-address)
   (:policy :fast-safe)
   (:args)
-  (:arg-types (:constant simple-string))
+  (:arg-types (:constant simple-base-string))
   (:info foreign-symbol)
   (:results (res :scs (sap-reg)))
   (:result-types system-area-pointer)