(dolist (default defaults)
(if (sb!xc:constantp default)
(default-vals default)
- (let ((var (gensym)))
+ (let ((var (sb!xc:gensym)))
(default-bindings `(,var ,default))
(default-vals var))))
(let ((bindings (default-bindings))
:type (leaf-type var)
:where-from (leaf-where-from var))))
- (let* ((n-context (gensym "N-CONTEXT-"))
+ (let* ((n-context (sb!xc:gensym "N-CONTEXT-"))
(context-temp (make-lambda-var :%source-name n-context))
- (n-count (gensym "N-COUNT-"))
+ (n-count (sb!xc:gensym "N-COUNT-"))
(count-temp (make-lambda-var :%source-name n-count
:type (specifier-type 'index))))
;; and take advantage of the base+index+displacement addressing
;; mode on x86oids.)
(when (optional-dispatch-keyp res)
- (let ((n-index (gensym "N-INDEX-"))
- (n-key (gensym "N-KEY-"))
- (n-value-temp (gensym "N-VALUE-TEMP-"))
- (n-allowp (gensym "N-ALLOWP-"))
- (n-lose (gensym "N-LOSE-"))
- (n-losep (gensym "N-LOSEP-"))
+ (let ((n-index (sb!xc:gensym "N-INDEX-"))
+ (n-key (sb!xc:gensym "N-KEY-"))
+ (n-value-temp (sb!xc:gensym "N-VALUE-TEMP-"))
+ (n-allowp (sb!xc:gensym "N-ALLOWP-"))
+ (n-lose (sb!xc:gensym "N-LOSE-"))
+ (n-losep (sb!xc:gensym "N-LOSEP-"))
(allowp (or (optional-dispatch-allowp res)
(policy *lexenv* (zerop safety))))
(found-allow-p nil))
(default (arg-info-default info))
(keyword (arg-info-key info))
(supplied-p (arg-info-supplied-p info))
- (n-value (gensym "N-VALUE-"))
+ (n-value (sb!xc:gensym "N-VALUE-"))
(clause (cond (supplied-p
- (let ((n-supplied (gensym "N-SUPPLIED-")))
+ (let ((n-supplied (sb!xc:gensym "N-SUPPLIED-")))
(temps n-supplied)
(arg-vals n-value n-supplied)
`((eq ,n-key ',keyword)
;; Make up two extra variables, and squirrel them away in
;; ARG-INFO-DEFAULT for transforming (VALUES-LIST REST) into
;; (%MORE-ARG-VALUES CONTEXT 0 COUNT) when possible.
- (let* ((context-name (gensym "REST-CONTEXT"))
+ (let* ((context-name (sb!xc:gensym "REST-CONTEXT-"))
(context (make-lambda-var :%source-name context-name
:arg-info (make-arg-info :kind :more-context)))
- (count-name (gensym "REST-COUNT"))
+ (count-name (sb!xc:gensym "REST-COUNT-"))
(count (make-lambda-var :%source-name count-name
:arg-info (make-arg-info :kind :more-count)
:type (specifier-type 'index))))
(main-vars val-temp)
(bind-vars key)
(cond ((or hairy-default supplied-p)
- (let* ((n-supplied (gensym "N-SUPPLIED-"))
+ (let* ((n-supplied (sb!xc:gensym "N-SUPPLIED-"))
(supplied-temp (make-lambda-var
:%source-name n-supplied)))
(unless supplied-p
(get-defined-fun name (fifth inline-lambda))
(get-defined-fun name))))
(when (boundp '*lexenv*)
- (remhash name *free-funs*)
(aver (fasl-output-p *compile-object*))
(if (member name *fun-names-in-this-file* :test #'equal)
(warn 'duplicate-definition :name name)