X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fc-call.lisp;h=cef3b3bb7b0d8b057a43563dc3648612027eb246;hb=8a8568603cc7cacd188fe1cac18824a69bece6af;hp=c37991e7bf36a91adc0c94c0559f90fa58e55596;hpb=bf2b6cff3719215f964f51667cdf6fcbdf43f8dc;p=sbcl.git

diff --git a/src/compiler/mips/c-call.lisp b/src/compiler/mips/c-call.lisp
index c37991e..cef3b3b 100644
--- a/src/compiler/mips/c-call.lisp
+++ b/src/compiler/mips/c-call.lisp
@@ -1,3 +1,14 @@
+;;;; VOPs and other machine-specific support routines for call-out to C
+
+;;;; This software is part of the SBCL system. See the README file for
+;;;; more information.
+;;;;
+;;;; This software is derived from the CMU CL system, which was
+;;;; written at Carnegie Mellon University and released into the
+;;;; public domain. The software is in the public domain and is
+;;;; provided with absolutely no warranty. See the COPYING and CREDITS
+;;;; files for more information.
+
 (in-package "SB!VM")
 
 (defun my-make-wired-tn (prim-type-name sc-name offset)
@@ -76,7 +87,6 @@
                              'single-int-carg-reg
                              (+ stack-frame-size 4))))))
 
-
 (defstruct result-state
   (num-results 0))
 
@@ -133,12 +143,11 @@
 					(alien-fun-type-result-type type)
 					(make-result-state))))))
 
-
 (define-vop (foreign-symbol-address)
   (:translate foreign-symbol-address)
   (:policy :fast-safe)
   (:args)
-  (:arg-types (:constant simple-base-string))
+  (:arg-types (:constant simple-string))
   (:info foreign-symbol)
   (:results (res :scs (sap-reg)))
   (:result-types system-area-pointer)