X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Fcore.lisp;h=f5b58efd8bcc7eeff5ca24208c360a5b8b28543f;hb=dc33d6a6b84f8338e603759cec8e25da29055d50;hp=e13513684dcd26b2accaecbb487013805a455f58;hpb=97106bb159710a2e816bf4e72669d6a3818d08aa;p=sbcl.git

diff --git a/src/compiler/generic/core.lisp b/src/compiler/generic/core.lisp
index e135136..f5b58ef 100644
--- a/src/compiler/generic/core.lisp
+++ b/src/compiler/generic/core.lisp
@@ -57,13 +57,13 @@
 			 (error "undefined assembler routine: ~S" name)))
 		    (:foreign
 		     (aver (stringp name))
-		     ;; FOREIGN-SYMBOL-ADDRESS-AS-INTEGER signals an error
+		     ;; FOREIGN-SYMBOL-ADDRESS signals an error
 		     ;; if the symbol isn't found.
-		     (foreign-symbol-address-as-integer name))
+		     (foreign-symbol-address name))
 		    #!+linkage-table
 		    (:foreign-dataref
 		     (aver (stringp name))
-		     (foreign-symbol-address-as-integer name t))
+		     (foreign-symbol-address name t))
 		    #!+(or x86 x86-64)
 		    (:code-object
 		     (aver (null name))