Steel Bank Common Lisp

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)