X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-alieneval.lisp;h=66a2e56c0d36d49621bdf58527e882f7dde64588;hb=a96369c72588c5457d71d6aaea35f2c450b19ef5;hp=c130387f58d8dd3fb077425037c286797699fa1c;hpb=7cec182a00d4143dc7cfd43fc55c6691e356e609;p=sbcl.git

diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp
index c130387..66a2e56 100644
--- a/src/code/target-alieneval.lisp
+++ b/src/code/target-alieneval.lisp
@@ -663,7 +663,7 @@
 		;; here, so e.g. an alien function of "int" and "char"
 		;; arguments would get Lisp arg types WORD and CHARACTER
 		;; or something. Meanwhile, for now we just punt.
-		(lisp-arg-types (mapcar (constantly t) args))
+		(lisp-arg-types (mapcar (constantly t) (lisp-args)))
 		;; KLUDGE: This is a quick hack to solve bug 133,
 		;; where PROCLAIM trying to translate alien void result
 		;; types would signal an error here ("cannot use values