X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fc-call.lisp;h=c37991e7bf36a91adc0c94c0559f90fa58e55596;hb=b4831dc945c0754b3ba77881e67c8ea4d0a3d905;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)