Lines Matching defs:simple
85 (defconst cl-simple-funcs '(car cdr nth aref elt if and or + - 1+ 1- min max
91 (defun cl-simple-expr-p (x &optional size)
95 (or (memq (car x) cl-simple-funcs)
100 (setq size (cl-simple-expr-p (car x) size))))
104 (defun cl-simple-exprs-p (xs)
105 (while (and xs (cl-simple-expr-p (car xs)))
113 (or (memq (car x) cl-simple-funcs)
236 (header nil) (simple-args nil))
255 (push (pop args) simple-args))
259 (list* nil (nreverse simple-args) (nconc (nreverse header) body))
260 (if (memq '&optional simple-args) (push '&optional args))
261 (cl-do-arglist args nil (- (length simple-args)
262 (if (memq '&optional simple-args) 1 0)))
266 (nconc (nreverse simple-args)
500 (let* ((temp (if (cl-simple-expr-p expr 3) expr (make-symbol "--cl-var--")))
538 (let* ((temp (if (cl-simple-expr-p expr 3) expr (make-symbol "--cl-var--")))
1027 (temp (if (cl-simple-expr-p what) what (make-symbol "--cl-var--")))
1077 (simple (and (eq (car then) t) (eq (car else) t))))
1080 (let ((form (cons (if simple (cons 'progn (nth 1 then)) (nth 2 then))
1081 (if simple (nth 1 else) (list (nth 2 else))))))
1088 (push (if simple (list 'progn form t) form) loop-body))))
1567 well for simple place forms. In the simple `defsetf' form, `setf's of
1879 (cl-setf-simple-store-p (car (nth 2 method))
1881 (simple (and optimize (consp place) (cl-simple-exprs-p (cdr place)))))
1883 (if (or simple (cl-const-expr-p (car values)))
1894 (and (cl-simple-expr-p val) (eq (cl-expr-contains form sym) 1))
1895 (cl-setf-simple-store-p sym form))
1899 (defun cl-setf-simple-store-p (sym form)
1930 (let ((p args) (simple t) (vars nil))
1933 (setq simple nil))
1939 (if simple
1948 (if (cl-simple-expr-p place)
1965 (val-temp (and (not (cl-simple-expr-p place))
2112 (if (and (cl-safe-expr-p arg1) (cl-simple-expr-p place) (symbolp func))
2439 (let* ((temp (if (cl-simple-expr-p form 3)
2541 (defun cl-defsubst-expand (argns body simple whole unsafe &rest argvs)
2543 (if (cl-simple-exprs-p argvs) (setq simple t))
2547 (if (or simple (cl-const-expr-p argv))
2571 ((cl-simple-expr-p a 5)
2576 (cl-simple-expr-p b 5))
2601 (if (and (cl-simple-expr-p a) (cl-simple-expr-p list)
2622 (cl-simple-expr-p val)) res