Lines Matching refs:var
359 (let* ((temp (or (nth 2 arg) (make-symbol "--cl-var--")))
382 (let* ((var (make-symbol "--cl-keys--"))
385 'while var
388 (list (list 'memq (list 'car var)
390 (list 'setq var (list 'cdr (list 'cdr var))))
395 (list 'setq var nil))
401 (list 'car var)))))))
402 (push (list 'let (list (list var restarg)) check) bind-forms)))
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--")))
618 (defvar args) (defvar loop-accum-var) (defvar loop-accum-vars)
623 (defvar loop-result-var) (defvar loop-steps) (defvar loop-symbol-macs)
645 (loop-result-var nil) (loop-finish-flag nil)
646 (loop-accum-var nil) (loop-accum-vars nil)
674 (if (equal epilogue '(nil)) (list loop-result-var)
676 (progn ,@epilogue) ,loop-result-var)))
678 (if loop-result-var (push (list loop-result-var) loop-bindings))
727 (let ((var (or (pop args) (gensym "--cl-var--"))))
750 (end-var (and (not (cl-const-expr-p end))
751 (make-symbol "--cl-var--")))
752 (step-var (and (not (cl-const-expr-p step))
753 (make-symbol "--cl-var--"))))
756 (push (list var (or start 0)) loop-for-bindings)
757 (if end-var (push (list end-var end) loop-for-bindings))
758 (if step-var (push (list step-var step)
763 var (or end-var end)) loop-body))
764 (push (list var (list (if down '- '+) var
765 (or step-var step 1)))
770 (temp (if (and on (symbolp var))
771 var (make-symbol "--cl-var--"))))
775 (push (list var (list 'car temp)) loop-symbol-macs)
776 (or (eq temp var)
778 (push (list var nil) loop-for-bindings)
779 (push (list var (if on temp (list 'car temp)))
796 (push (list var nil) loop-for-bindings)
799 (push `(,var
802 (make-symbol "--cl-var--")))
803 ,start ,var))
805 (push (list var then) loop-for-steps))
806 (push (list var
810 (make-symbol "--cl-var--")))
822 (push (list var (list 'aref temp-vec temp-idx))
824 (push (list var nil) loop-for-bindings)
825 (push (list var (list 'aref temp-vec temp-idx))
846 (push (list var (list 'elt temp-seq temp-idx))
849 (push (list var nil) loop-for-bindings)
855 (push (list var (list 'if (list 'consp temp-seq)
871 (make-symbol "--cl-var--"))))
873 (setq var (prog1 other (setq other var))))
875 `(maphash (lambda (,var ,other) . --cl-map) ,table))))
881 `(mapatoms (lambda (,var) . --cl-map) ,ob))))
891 (lambda (,var ,(make-symbol "--cl-var--"))
905 (if (and (consp var) (symbolp (car var)) (symbolp (cdr var)))
906 (setq var1 (car var) var2 (cdr var))
907 (push (list var (list 'cons var1 var2)) loop-for-sets))
922 (make-symbol "--cl-var--"))))
924 (setq var (prog1 other (setq other var))))
928 (lambda (,var ,other) . --cl-map) ,map))))
931 (let ((temp (make-symbol "--cl-var--")))
932 (push (list var '(selected-frame))
935 (push (list 'prog1 (list 'not (list 'eq var temp))
936 (list 'or temp (list 'setq temp var)))
938 (push (list var (list 'next-frame var))
943 (temp (make-symbol "--cl-var--")))
944 (push (list var (if scr
949 (push (list 'prog1 (list 'not (list 'eq var temp))
950 (list 'or temp (list 'setq temp var)))
952 (push (list var (list 'next-window var)) loop-for-steps)))
958 (funcall handler var)
977 (let ((temp (make-symbol "--cl-var--")))
983 (var (cl-loop-handle-accum nil 'nreverse)))
984 (if (eq var loop-accum-var)
985 (push (list 'progn (list 'push what var) t) loop-body)
987 (list 'setq var (list 'nconc var (list 'list what)))
992 (var (cl-loop-handle-accum nil 'nreverse)))
994 (list 'setq var
995 (if (eq var loop-accum-var)
1000 var)
1003 var what))) t) loop-body)))
1007 (var (cl-loop-handle-accum "")))
1008 (push (list 'progn (list 'callf 'concat var what) t) loop-body)))
1012 (var (cl-loop-handle-accum [])))
1013 (push (list 'progn (list 'callf 'vconcat var what) t) loop-body)))
1017 (var (cl-loop-handle-accum 0)))
1018 (push (list 'progn (list 'incf var what) t) loop-body)))
1022 (var (cl-loop-handle-accum 0)))
1023 (push (list 'progn (list 'if what (list 'incf var)) t) loop-body)))
1027 (temp (if (cl-simple-expr-p what) what (make-symbol "--cl-var--")))
1028 (var (cl-loop-handle-accum nil))
1030 (set (list 'setq var (list 'if var (list func var temp) temp))))
1063 (or loop-result-var (setq loop-result-var (make-symbol "--cl-var--")))
1065 (list 'not (list 'setq loop-result-var (pop args))))
1083 (let ((temp (make-symbol "--cl-var--")))
1097 (or loop-finish-flag (setq loop-finish-flag (make-symbol "--cl-var--")))
1098 (or loop-result-var (setq loop-result-var (make-symbol "--cl-var--")))
1099 (push (list 'setq loop-result-var (pop args)
1118 (let ((temp (make-symbol "--cl-var--")))
1128 (make-symbol "--cl-var--")))
1145 (let ((var (cl-pop2 args)))
1146 (or (memq var loop-accum-vars)
1147 (progn (push (list (list var def)) loop-bindings)
1148 (push var loop-accum-vars)))
1149 var)
1150 (or loop-accum-var
1152 (push (list (list (setq loop-accum-var (make-symbol "--cl-var--")) def))
1154 (setq loop-result (if func (list func loop-accum-var)
1155 loop-accum-var))
1156 loop-accum-var))))
1329 (let ((var (gensym "--cl-var--")))
1330 (push var vars)
1332 (push var sets)
1334 (list 'list* '(quote funcall) (list 'quote var)
1446 (let ((temp (make-symbol "--cl-var--")) (n -1))
1465 (let* ((temp (make-symbol "--cl-var--")) (n 0))
1588 (store-var (car (prog1 (car args) (setq args (cdr args)))))
1589 (store-temp (intern (format "--%s--temp--" store-var)))
1622 (make-symbol ,(format "--cl-%s--" store-var)))
1625 (mapcar (lambda (_) (make-symbol "--cl-var--"))
1635 (cons (list store-var store-temp)
2440 form (make-symbol "--cl-var--")))
2623 (let ((temp (make-symbol "--cl-var--")))