X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fc-call.lisp;h=15cf2c112c2b7b056c1e4d3d98ce6c927a15e250;hb=c0595e94aab165f59454a3a97f06a8bdc22f5bd3;hp=d848a7a61ae991ff8b2dd6bf98cf28ffce8e03a2;hpb=0db7f91050aeb2dc2f98946eefa251ffd6b96402;p=sbcl.git

diff --git a/src/compiler/ppc/c-call.lisp b/src/compiler/ppc/c-call.lisp
index d848a7a..15cf2c1 100644
--- a/src/compiler/ppc/c-call.lisp
+++ b/src/compiler/ppc/c-call.lisp
@@ -240,8 +240,8 @@
 
 #!+darwin
 (deftransform %alien-funcall ((function type &rest args))
-  (assert (sb!c::constant-continuation-p type))
-  (let* ((type (sb!c::continuation-value type))
+  (assert (sb!c::constant-lvar-p type))
+  (let* ((type (sb!c::lvar-value type))
 	 (arg-types (alien-fun-type-arg-types type))
 	 (result-type (alien-fun-type-result-type type)))
     (assert (= (length arg-types) (length args)))