Lines Matching defs:lambda
93 ;; `callargs' (lambda calls with args that don't
94 ;; match the lambda's definition)
96 ;; a macro to a lambda or vice versa,
137 ;; o Forms like ((lambda ...) ...) are open-coded.
240 (autoload 'byte-compile-unfold-lambda "byte-opt")
373 (lambda (e)
406 (other :tag "Ask" lambda)))
451 ;; (byte-compiler-options . (lambda (&rest forms)
453 (eval-when-compile . (lambda (&rest body)
457 (eval-and-compile . (lambda (&rest body)
898 (lambda (x) (if (symbolp x) (list 'prin1-to-string x) x))
1217 (if (eq 'lambda (car-safe def))
1308 (if (eq 'lambda (car-safe old))
1494 `(let* ((--displaying-byte-compile-warnings-fn (lambda () ,@body))
2232 ;; If there are any (function (lambda ...)) expressions, compile
2237 (setcar tail (byte-compile-lambda (nth 1 (car tail))))
2238 ;; Likewise for a bare lambda.
2240 (eq (car (car tail)) 'lambda))
2241 (setcar tail (byte-compile-lambda (car tail)))))
2323 (if macrop 'lambda 'macro)))
2357 (let* ((new-one (byte-compile-lambda (nthcdr 2 form) t))
2365 (eq 'lambda (car-safe (nth 1 code))))
2451 If FORM is a lambda or a macro, byte-compile it as a function."
2460 (cond ((eq (car-safe fun) 'lambda)
2462 (cons 'macro (byte-compile-lambda fun))
2463 (byte-compile-lambda fun)))
2474 ;; Given a function made by byte-compile-lambda, make a form which produces it.
2478 ;; Return (quote (lambda ...)).
2482 ;; generate-emacs19-bytecodes must be on, otherwise byte-compile-lambda
2483 ;; would have produced a lambda.
2485 ;; b-c-lambda didn't produce a compiled-function, so it's either a trivial
2511 ;; Turn a function into an ordinary lambda. Needed for v18 files.
2514 function;;It already is a lambda.
2516 (nconc (list 'lambda (nth 0 function))
2526 (defun byte-compile-check-lambda-list (list)
2527 "Check lambda-list LIST for errors."
2535 (error "Invalid lambda variable %s" arg))
2540 (error "Garbage following &rest VAR in lambda-list")))
2545 (byte-compile-warn "repeated variable %s in lambda-list" arg))
2551 ;; Byte-compile a lambda-expression and return a valid function.
2553 ;; lambda-expression.
2554 ;; When ADD-LAMBDA is non-nil, the symbol `lambda' is added as head
2558 (defun byte-compile-lambda (fun &optional add-lambda)
2559 (if add-lambda
2560 (setq fun (cons 'lambda fun))
2561 (unless (eq 'lambda (car-safe fun))
2562 (error "Not a lambda list: %S" fun))
2563 (byte-compile-set-symbol-position 'lambda))
2564 (byte-compile-check-lambda-list (nth 1 fun))
2605 (let ((compiled (byte-compile-top-level (cons 'progn body) nil 'lambda)))
2624 (nconc (list 'lambda arglist)
2666 ;; 'lambda -> body of a lambda,
2715 ;; lambda -> never. we used to leave it uncompiled if the body was
2723 (maycall (not (eq output-type 'lambda))) ; t if we may make a funcall.
2727 ((or (eq output-type 'lambda)
2831 (eq (car-safe (car form)) 'lambda))
2834 (not (eq form (setq form (byte-compile-unfold-lambda form)))))
3271 ;; warn about forms like (fset 'foo '(lambda () ...))
3272 ;; (where the lambda expression is non-trivial...)
3276 (eq (car-safe (setq fn (nth 1 fn))) 'lambda))
3284 "A quoted lambda form is the second argument of `fset'. This is probably
3285 not what you want, as that lambda cannot be compiled. Consider using
3286 the syntax (function (lambda (...) ...)) instead.")))))
3290 ;; (mapcar '(lambda (x) ..) ..) ==> (mapcar (function (lambda (x) ..)) ..)
3291 ;; for cases where it's guaranteed that first arg will be used as a lambda.
3295 (eq (car-safe (nth 1 fn)) 'lambda))
3302 ;; (sort ... '(lambda (x) ..)) ==> (sort ... (function (lambda (x) ..)))
3303 ;; for cases where it's guaranteed that second arg will be used as a lambda.
3307 (eq (car-safe (nth 1 fn)) 'lambda))
3323 ;; '(lambda (..) (byte-code ..)) instead of a call to make-byte-code.
3327 (byte-compile-byte-code-unmake (byte-compile-lambda (nth 1 form))))
3328 ((byte-compile-lambda (nth 1 form))))))
3683 `(funcall '(lambda nil
3765 (byte-defop-compiler-1 lambda byte-compile-lambda-form)
3779 (byte-compile-lambda (cdr (cdr form)) t))))
3787 (byte-compile-lambda (cdr (cdr form)) t)))
3796 (byte-compile-lambda (cdr (cdr form)) t))))
3838 `(funcall '(lambda (,tmp) (defconst ,var ,tmp))
3861 (defun byte-compile-lambda-form (form)
3862 (byte-compile-set-symbol-position 'lambda)
3863 (error "`lambda' used as function name is invalid"))
4026 (function (lambda (x y) (< (length (nth 1 x))
4029 (function (lambda (x y) (< (length (nth 2 x))
4032 (function (lambda (x y) (< (+ (length (nth 1 x))
4037 (function (lambda (x y) (string< (car x)
4069 "<compiled lambda>")
4070 ((eq 'lambda (car f))
4259 (mapcar (lambda (x)