From c2f126dd3b87463c1144663ba072f6abb4815e1c Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Thu, 25 Apr 2013 18:18:36 +0100 Subject: [PATCH] Fix bug compiling funcalls --- src/compiler.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4