Just Launched: You can now import projects and releases from Google Code onto SourceForge
We are excited to release new functionality to enable a 1-click import from Google Code onto the Allura platform on SourceForge. You can import tickets, wikis, source, releases, and more with a few simple steps. Read More
Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv15766/src/compiler
126.96.36.199: ASSOC and MEMBER were broken for :KEY #'IDENTITY
* Regression caused by 188.8.131.52 -- SET where is should have been SETF.
* Add a few test-cases.
RCS file: /cvsroot/sbcl/sbcl/src/compiler/seqtran.lisp,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -d -r1.91 -r1.92
--- seqtran.lisp 3 Mar 2008 01:47:54 -0000 1.91
+++ seqtran.lisp 3 Mar 2008 14:21:51 -0000 1.92
@@ -315,7 +315,7 @@
(setf test nil))
;; Ditto for KEY IDENTITY.
(when (and key (lvar-for-named-function key 'identity))
- (set key nil))
+ (setf key nil))
;; Key can legally be NIL, but if it's NIL for sure we pretend it's
;; not there at all. If it might be NIL, make up a form to that
;; ensures it is a function.