(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
-
(eval-when (:compile-toplevel :execute)
(defun compute-one-setter (name type)
(res (type-specifier
(single-value-type
(values-specifier-type (third type)))))
- (arglist (loop repeat (1+ (length args)) collect (gensym))))
+ (arglist (make-gensym-list (1+ (length args)))))
(cond
((null (intersection args lambda-list-keywords))
`(defun (setf ,name) ,arglist