(%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)
`(%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
(when (or (atom def) (< (length def) 2))
(compiler-error "The ~S definition spec ~S is malformed." context def))
- (let ((name (check-function-name (first def))))
+ (let ((name (first def)))
+ (check-fun-name name)
(names name)
(multiple-value-bind (forms decls) (sb!sys:parse-body (cddr def))
(defs `(lambda ,(second def)
,@decls
- (block ,(function-name-block-name name)
+ (block ,(fun-name-block-name name)
. ,forms))))))
(values (names) (defs))))
(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)))
((nil))
(:function
(remhash name *free-functions*)
- (undefine-function-name name)
+ (undefine-fun-name name)
(compiler-warning
"~S is being redefined as a macro when it was ~
previously ~(~A~) to be a function."