From 8ea7b1a452fc87f91273c96bead8aa862bbc8b98 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Thu, 20 Sep 2012 16:55:40 +0100 Subject: [PATCH] one more stray GENSYM leading to fasl differences --- src/code/seq.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/code/seq.lisp b/src/code/seq.lisp index 90036a62c..fd7e630a5 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 -- 2.11.4.GIT