From 688c94d1fbf39ff477ab442f62db9056955f5af4 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 12 May 2013 20:50:15 +0100 Subject: [PATCH] typo --- experimental/compiler.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 1.7.10.4