From: David Vázquez <davazp@gmail.com>
Date: Sun, 12 May 2013 19:50:15 +0000 (+0100)
Subject: typo
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=688c94d1fbf39ff477ab442f62db9056955f5af4;p=jscl.git

typo
---

diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp
index 5751344..d66a3df 100644
--- a/experimental/compiler.lisp
+++ b/experimental/compiler.lisp
@@ -561,7 +561,7 @@
       (setq args-lvars (reverse args-lvars))
       ;; Funcall
       (if (find-primitive function)
-          (insert-node (make-primitive
+          (insert-node (make-primitive-call
                         :function (find-primitive function)
                         :arguments args-lvars
                         :lvar result))