From: David Vázquez <davazp@gmail.com>
Date: Thu, 25 Apr 2013 17:18:36 +0000 (+0100)
Subject: Fix bug compiling funcalls
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c2f126dd3b87463c1144663ba072f6abb4815e1c;p=jscl.git

Fix bug compiling funcalls
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index a59dc3a..5cabe76 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1,6 +1,6 @@
 ;;; compiler.lisp --- 
 
-;; Copyright (C) 2012, 2013 David Vazquez
+;; copyright (C) 2012, 2013 David Vazquez
 ;; Copyright (C) 2012 Raimon Grau
 
 ;; This program is free software: you can redistribute it and/or
@@ -1601,6 +1601,10 @@
 (defun compile-funcall (function args)
   (let* ((values-funcs (if *multiple-value-p* "values" "pv"))
          (arglist (concat "(" (join (cons values-funcs (mapcar #'ls-compile args)) ", ") ")")))
+    (unless (or (symbolp function)
+                (and (consp function)
+                     (eq (car function) 'lambda)))
+      (error "Bad function"))
     (cond
       ((translate-function function)
        (concat (translate-function function) arglist))