Commit 223a2a62 authored by Karl Heuer's avatar Karl Heuer
Browse files


If the function definition is not a lambda, return original FORM
with no error.
parent cd30a521
......@@ -278,8 +278,10 @@
(cons (list 'lambda (aref fn 0)
(list 'byte-code string (aref fn 2) (aref fn 3)))
(cdr form)))
(if (not (eq (car fn) 'lambda)) (error "%s is not a lambda" name))
(cons fn (cdr form)))))))
(if (eq (car-safe fn) 'lambda)
(cons fn (cdr form))
;; Give up on inlining.
;;; ((lambda ...) ...)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment