From: Christophe Rhodes <csr21@cantab.net>
Date: Thu, 20 Sep 2012 15:55:40 +0000 (+0100)
Subject: one more stray GENSYM leading to fasl differences
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=8ea7b1a452fc87f91273c96bead8aa862bbc8b98;p=sbcl.git

one more stray GENSYM leading to fasl differences
---

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 90036a6..fd7e630 100644
--- 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