projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.83:
[sbcl.git]
/
src
/
compiler
/
ir1-translators.lisp
diff --git
a/src/compiler/ir1-translators.lisp
b/src/compiler/ir1-translators.lisp
index
ae2acab
..
2cb2295
100644
(file)
--- a/
src/compiler/ir1-translators.lisp
+++ b/
src/compiler/ir1-translators.lisp
@@
-423,7
+423,7
@@
(%funcall ,(if (csubtypep (continuation-type function)
(specifier-type 'function))
'function
(%funcall ,(if (csubtypep (continuation-type function)
(specifier-type 'function))
'function
- '(%coerce-callable-to-function function))
+ '(%coerce-callable-to-fun function))
,@arg-names))))
(def-ir1-translator %funcall ((function &rest args) start cont)
,@arg-names))))
(def-ir1-translator %funcall ((function &rest args) start cont)
@@
-441,9
+441,9
@@
`(%funcall ,function ,@args)
(values nil t)))
`(%funcall ,function ,@args)
(values nil t)))
-(deftransform %coerce-callable-to-function ((thing) (function) *
- :when :both
- :important t)
+(deftransform %coerce-callable-to-fun ((thing) (function) *
+ :when :both
+ :important t)
"optimize away possible call to FDEFINITION at runtime"
'thing)
\f
"optimize away possible call to FDEFINITION at runtime"
'thing)
\f
@@
-885,7
+885,7
@@
(ir1-convert start fun-cont
(if (and (consp fun) (eq (car fun) 'function))
fun
(ir1-convert start fun-cont
(if (and (consp fun) (eq (car fun) 'function))
fun
- `(%coerce-callable-to-function ,fun)))
+ `(%coerce-callable-to-fun ,fun)))
(setf (continuation-dest fun-cont) node)
(assert-continuation-type fun-cont
(specifier-type '(or function symbol)))
(setf (continuation-dest fun-cont) node)
(assert-continuation-type fun-cont
(specifier-type '(or function symbol)))