Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv24214/src/compiler
Modified Files:
seqtran.lisp
Log Message:
1.0.18.5: ADJOIN with constant NIL as second argument
* One more bug in TRANSFORM-LIST-ITEM-SEEK.
Index: seqtran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/seqtran.lisp,v
retrieving revision 1.94
retrieving revision 1.95
diff -u -d -r1.94 -r1.95
--- seqtran.lisp 4 May 2008 15:06:38 -0000 1.94
+++ seqtran.lisp 30 Jun 2008 09:48:27 -0000 1.95
@@ -369,8 +369,10 @@
`(let ,(mapcar (lambda (fun) `(,fun ,(ensure-fun fun))) funs)
,(open-code c-list)))
((and cp (not c-list))
- ;; constant nil list -- nothing to find!
- nil)
+ ;; constant nil list
+ (if (eq name 'adjoin)
+ '(list item)
+ nil))
(t
;; specialized out-of-line version
`(,(specialized-list-seek-function-name name funs c-test)
|