collection."
(if objects
(let ((pins (make-gensym-list (length objects)))
- (wpo (gensym "WITH-PINNED-OBJECTS-THUNK")))
+ (wpo (sb!xc:gensym "WITH-PINNED-OBJECTS-THUNK")))
;; BODY is stuffed in a function to preserve the lexical
;; environment.
`(flet ((,wpo () (progn ,@body)))