From 6ea0a4fb102b1194986298749db241cee1ea55ec Mon Sep 17 00:00:00 2001
From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Wed, 23 May 2012 09:53:34 +0300
Subject: [PATCH] make %COERCE-TO-CALLABLE compilers notes make sense
Get the cause and the problem right.
---
src/compiler/ir1-translators.lisp | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp
index dc47dae..add4fa1 100644
--- a/src/compiler/ir1-translators.lisp
+++ b/src/compiler/ir1-translators.lisp
@@ -604,7 +604,7 @@ be a lambda expression."
(cond (cname
`(global-function ,cname))
(give-up
- (give-up-ir1-transform give-up))
+ (give-up-ir1-transform "not known to be a function"))
(t
`(%coerce-callable-to-fun ,lvar-name))))))
@@ -647,8 +647,9 @@ be a lambda expression."
(define-source-transform funcall (function &rest args)
`(%funcall ,(ensure-source-fun-form function) ,@args))
-(deftransform %coerce-callable-to-fun ((thing) * *)
- (ensure-lvar-fun-form thing 'thing "optimize away possible call to FDEFINITION at runtime"))
+(deftransform %coerce-callable-to-fun ((thing) * * :node node)
+ "optimize away possible call to FDEFINITION at runtime"
+ (ensure-lvar-fun-form thing 'thing t))
(define-source-transform %coerce-callable-to-fun (thing)
(ensure-source-fun-form thing t))
--
1.7.10.4