Function: take-while--anon-cmacro

take-while--anon-cmacro is a function defined in subr.el.gz.

Signature

(take-while--anon-cmacro FORM PRED LIST)

Source Code

;; Defined in /usr/src/emacs/lisp/subr.el.gz
;; Could not find source code, showing raw function object.
#[(form pred list)
  ((ignore pred list)
   (let* ((tail (make-symbol "tail")) (r (make-symbol "r")))
     (if (not (internal--effect-free-fun-arg-p pred)) form
       `(let ((,r nil) (,tail ,list))
	  (while (and ,tail (funcall ,pred (car ,tail)))
	    (push (car ,tail) ,r) (setq ,tail (cdr ,tail)))
	  (nreverse ,r)))))
  (t)]