Lines Matching +defs:eval +defs:defun
78 (defun cl-compile-time-init ()
91 (defun cl-simple-expr-p (x &optional size)
104 (defun cl-simple-exprs-p (xs)
110 (defun cl-safe-expr-p (x)
121 (defun cl-const-expr-p (x)
130 (defun cl-const-exprs-p (xs)
135 (defun cl-const-expr-val (x)
138 (defun cl-expr-access-order (x v)
147 (defun cl-expr-contains (x y)
156 (defun cl-expr-contains-any (x y)
161 (defun cl-expr-depends-p (x y)
168 (defun gensym (&optional prefix)
177 (defun gentemp (&optional prefix)
189 (defmacro defun* (name args &rest body)
191 Like normal `defun', except ARGLIST allows full Common Lisp conventions,
196 (form (list* 'defun name (cdr res))))
219 (defun cl-transform-function-property (func prop form)
232 (defun cl-transform-lambda (form bind-block)
264 (list* (and bind-inits (list* 'eval-when '(compile load eval)
281 (defun cl-do-arglist (args expr &optional num) ; uses bind-*
413 (defun cl-arglist-args (args)
434 ;;; The `eval-when' form.
438 (defmacro eval-when (when &rest body)
442 If `eval' is in WHEN, BODY is evaluated when interpreted or at non-top-level.
452 (progn (if comp (eval (cons 'progn body))) nil)))
453 (and (or (memq 'eval when) (memq :execute when))
456 (defun cl-compile-time-too (form)
459 form (cons '(eval-when) byte-compile-macro-environment))))
462 ((eq (car-safe form) 'eval-when)
464 (if (or (memq 'eval when) (memq :execute when))
465 (list* 'eval-when (cons 'compile when) (cddr form))
467 (t (eval form) form)))
486 (list 'quote (eval form))))
583 (defun cl-byte-compile-block (cl-form)
596 (defun cl-byte-compile-throw (cl-form)
610 This is compatible with Common Lisp, but note that `defun' and
691 (defun cl-parse-loop-clause () ; uses args, loop-*
1109 (defun cl-loop-let (specs body par) ; uses loop-*
1143 (defun cl-loop-handle-accum (def &optional func) ; uses args, loop-*
1158 (defun cl-loop-build-ands (clauses)
1196 (defun cl-expand-do-loop (steps endtest body star)
1312 (push (cons (car x) (eval func))
1353 (eval (car res))
1395 (list '(defun . cl-defun-expander))
1428 (defun cl-defun-expander (func &rest rest)
1486 (defun cl-do-proclaim (spec hist)
1556 (append '(eval-when (compile load eval))
1790 (defun cl-setf-make-apply (form func temps)
1839 (defun get-setf-method (place &optional env)
1872 (defun cl-setf-do-modify (place opt-expr)
1890 (defun cl-setf-do-store (spec val)
1899 (defun cl-setf-simple-store-p (sym form)
1947 (defun cl-do-pop (place)
2319 (progn (push (list 'defun copier '(x) '(copy-sequence x)) forms)
2344 (push (list* 'eval-when '(compile load eval)
2361 (defun cl-struct-setf-expander (x name accessor pred-form pos)
2388 (list 'eval-when '(compile load eval)
2392 (defun cl-make-type-test (val type)
2429 (defun typep (object type) ; See compiler macro below.
2432 (eval (cl-make-type-test 'object type)))
2491 (list 'eval-when '(compile load eval)
2500 (defun compiler-macroexpand (form)
2513 (defun cl-byte-compile-compiler-macro (form)
2520 Like `defun', except the function is automatically declared `inline',
2539 (list* 'defun* name args body))))
2541 (defun cl-defsubst-expand (argns body simple whole unsafe &rest argvs)