Permalink
Browse files

one more stray GENSYM leading to fasl differences

  • Loading branch information...
csrhodes committed Sep 20, 2012
1 parent 2f796d4 commit 8ea7b1a452fc87f91273c96bead8aa862bbc8b98
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/code/seq.lisp
View
@@ -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

0 comments on commit 8ea7b1a

Please sign in to comment.