one more stray GENSYM leading to fasl differences

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 90036a6..fd7e630 100644 (file)
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -1183,7 +1183,7 @@ many elements are copied."
                 ;; from the old seq.lisp into target-seq.lisp.
                 (define-compiler-macro ,name (pred first-seq &rest more-seqs)
                   (let ((elements (make-gensym-list (1+ (length more-seqs))))
-                        (blockname (gensym "BLOCK")))
+                        (blockname (sb!xc:gensym "BLOCK")))
                     (once-only ((pred pred))
                       `(block ,blockname
                          (map nil