X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Faliencomp.lisp;h=85f2b1afb3c80bd606f5790348a31cf6b23779a5;hb=1bcf4fb22a25e713a0ab898d78abb97abe94c225;hp=ead78df5e868eca0ab5374ea6b4ddb66d437aa64;hpb=1bfc464c657a8f4ad24ef612f76a38d8f6f1bbad;p=sbcl.git

diff --git a/src/compiler/aliencomp.lisp b/src/compiler/aliencomp.lisp
index ead78df..85f2b1a 100644
--- a/src/compiler/aliencomp.lisp
+++ b/src/compiler/aliencomp.lisp
@@ -68,7 +68,6 @@
 
 (defknown alien-funcall (alien-value &rest *) *
   (any recursive))
-(defknown %alien-funcall (system-area-pointer alien-type &rest *) *)
 
 ;;;; cosmetic transforms
 
@@ -470,7 +469,7 @@
   (let ((alien-node (continuation-use alien)))
     (typecase alien-node
       (combination
-       (extract-function-args alien '%sap-alien 2)
+       (extract-fun-args alien '%sap-alien 2)
        '(lambda (sap type)
 	  (declare (ignore type))
 	  sap))
@@ -582,7 +581,7 @@
 	(unless (and (constant-continuation-p inside-amount)
 		     (not (minusp (continuation-value inside-amount))))
 	  (give-up-ir1-transform)))))
-  (extract-function-args value 'ash 2)
+  (extract-fun-args value 'ash 2)
   '(lambda (value amount1 amount2)
      (ash value (+ amount1 amount2))))