Lines Matching +defs:history +defs:symbol
169 "Generate a new uninterned symbol.
175 (make-symbol (format "%s%d" pfix num))))
178 "Generate a new interned symbol with a unique name.
297 (setq restarg (make-symbol "--cl-rest--"))
359 (let* ((temp (or (nth 2 arg) (make-symbol "--cl-var--")))
382 (let* ((var (make-symbol "--cl-keys--"))
481 (symbol-function 'byte-compile-file-form)))
484 (print set (symbol-value 'outbuffer)))
485 (list 'symbol-value (list 'quote temp)))
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--")))
568 NAME may be any symbol. Code inside the BODY forms can call `return-from'
570 in two respects: First, the NAME is an unevaluated symbol rather than a
571 quoted symbol or other form; and second, NAME is lexically rather than
623 (defvar loop-result-var) (defvar loop-steps) (defvar loop-symbol-macs)
649 (loop-destr-temps nil) (loop-symbol-macs nil))
687 (if loop-symbol-macs
688 (setq body (list (list* 'symbol-macrolet loop-symbol-macs body))))
724 ;; Use `gensym' rather than `make-symbol'. It's important that
725 ;; (not (eq (symbol-name var1) (symbol-name var2))) because
751 (make-symbol "--cl-var--")))
753 (make-symbol "--cl-var--"))))
771 var (make-symbol "--cl-var--"))))
775 (push (list var (list 'car temp)) loop-symbol-macs)
802 (make-symbol "--cl-var--")))
810 (make-symbol "--cl-var--")))
815 (let ((temp-vec (make-symbol "--cl-vec--"))
816 (temp-idx (make-symbol "--cl-idx--")))
823 loop-symbol-macs)
833 (temp-seq (make-symbol "--cl-seq--"))
839 (make-symbol "--cl-idx--"))))
843 (let ((temp-len (make-symbol "--cl-len--")))
847 loop-symbol-macs)
871 (make-symbol "--cl-var--"))))
877 ((memq word '(symbol present-symbol external-symbol
891 (lambda (,var ,(make-symbol "--cl-var--"))
897 (var1 (make-symbol "--cl-var1--"))
898 (var2 (make-symbol "--cl-var2--")))
922 (make-symbol "--cl-var--"))))
931 (let ((temp (make-symbol "--cl-var--")))
943 (temp (make-symbol "--cl-var--")))
977 (let ((temp (make-symbol "--cl-var--")))
1027 (temp (if (cl-simple-expr-p what) what (make-symbol "--cl-var--")))
1029 (func (intern (substring (symbol-name word) 0 3)))
1051 (or loop-finish-flag (setq loop-finish-flag (make-symbol "--cl-flag--")))
1056 (or loop-finish-flag (setq loop-finish-flag (make-symbol "--cl-flag--")))
1062 (or loop-finish-flag (setq loop-finish-flag (make-symbol "--cl-flag--")))
1063 (or loop-result-var (setq loop-result-var (make-symbol "--cl-var--")))
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--")))
1118 (let ((temp (make-symbol "--cl-var--")))
1128 (make-symbol "--cl-var--")))
1152 (push (list (list (setq loop-accum-var (make-symbol "--cl-var--")) def))
1223 (let ((temp (make-symbol "--cl-dolist-temp--")))
1240 (let ((temp (make-symbol "--cl-dotimes-temp--")))
1249 Evaluate BODY with VAR bound to each interned symbol, or to each symbol
1281 Each symbol in the first list is bound to the corresponding value in the
1304 (eq (car-safe (symbol-function (car x))) 'macro))
1314 (list (list 'symbol-function (list 'quote (car x))) func))))
1326 ;; Use `gensym' rather than `make-symbol'. It's important that
1327 ;; (not (eq (symbol-name var1) (symbol-name var2))) because these
1358 (defmacro symbol-macrolet (bindings &rest body)
1359 "Make symbol macro definitions.
1365 (list 'symbol-macrolet
1366 (list (car bindings)) (list* 'symbol-macrolet (cdr bindings) body))
1369 (cons (list (symbol-name (caar bindings))
1383 (push (make-symbol (format "--cl-%s--" (car x)))
1392 (list (symbol-name (car x))
1393 (list 'symbol-value (caddr x))
1407 (list 'make-symbol
1413 (list (list 'symbol-value (caddr x)) (cadr x))))
1446 (let ((temp (make-symbol "--cl-var--")) (n -1))
1465 (let* ((temp (make-symbol "--cl-var--")) (n 0))
1483 (defvar cl-proclaim-history t) ; for future compilers
1487 (and hist (listp cl-proclaim-history) (push spec cl-proclaim-history))
1612 (make-symbol ,(format "--cl-%s--" (car p1))))
1622 (make-symbol ,(format "--cl-%s--" store-var)))
1625 (mapcar (lambda (_) (make-symbol "--cl-var--"))
1664 (defsetf symbol-function fset)
1665 (defsetf symbol-plist setplist)
1666 (defsetf symbol-value set)
1799 (n-temp (make-symbol "--cl-nthcdr-n--"))
1800 (store-temp (make-symbol "--cl-nthcdr-store--")))
1812 (tag-temp (make-symbol "--cl-getf-tag--"))
1813 (def-temp (make-symbol "--cl-getf-def--"))
1814 (store-temp (make-symbol "--cl-getf-store--")))
1826 (from-temp (make-symbol "--cl-substring-from--"))
1827 (to-temp (make-symbol "--cl-substring-to--"))
1828 (store-temp (make-symbol "--cl-substring-store--")))
1844 (let ((temp (make-symbol "--cl-setf--")))
1848 (name (symbol-name func))
1866 (symbolp (symbol-function (car place))))
1867 (get-setf-method (cons (symbol-function (car place))
1903 (not (eq (car-safe (symbol-function (car form))) 'macro))))
1951 (temp (make-symbol "--cl-pop--")))
1961 PLACE may be a symbol, or any generalized variable allowed by `setf'.
1964 (tag-temp (and (not (cl-const-expr-p tag)) (make-symbol "--cl-remf-tag--")))
1966 (make-symbol "--cl-remf-place--")))
1982 Each PLACE may be a symbol, or any generalized variable allowed by `setf'.
1997 Each PLACE may be a symbol, or any generalized variable allowed by `setf'.
2008 (temp (make-symbol "--cl-rotatef--"))
2036 (list 'symbol-value (list 'quote (caar rev)))
2040 (save (make-symbol "--cl-letf-save--"))
2041 (bound (and (memq (car place) '(symbol-value symbol-function))
2042 (make-symbol "--cl-letf-bound--")))
2044 (make-symbol "--cl-letf-val--"))))
2049 'symbol-value)
2068 (list (if (eq (car place) 'symbol-value)
2095 FUNC should be an unquoted function name. PLACE may be a symbol,
2115 (temp (and (not (cl-const-expr-p arg1)) (make-symbol "--cl-arg1--")))
2128 (let ((place (make-symbol "--cl-place--")))
2148 (conc-name (concat (symbol-name name) "-"))
2157 (tag-symbol (intern (format "cl-struct-%s-tags" name)))
2176 (symbol-name (car args)) ""))))
2246 (push (list 'defvar tag-symbol) forms)
2255 tag-symbol))
2257 (list 'memq '(car-safe cl-x) tag-symbol)
2260 tag-symbol))))))
2343 (push (list 'setq tag-symbol (list 'list (list 'quote tag))) forms)
2362 (let* ((temp (make-symbol "--cl-x--")) (store (make-symbol "--cl-store--")))
2405 (let* ((name (symbol-name type))
2440 form (make-symbol "--cl-var--")))
2506 (or (not (eq (car-safe (symbol-function func)) 'autoload))
2507 (load (nth 1 (symbol-function func)))))
2508 (setq func (symbol-function func)))
2615 (list 'getf (list 'symbol-plist sym) prop def)
2623 (let ((temp (make-symbol "--cl-var--")))