[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv16015

Modified Files:
	more-macros.lisp 
Log Message:
Fixed bug in member compiler-macro: Order of arguments to test was reversed.


--- /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp	2006/05/02 20:03:47	1.33
+++ /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp	2006/05/05 18:33:08	1.34
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Jun  7 15:05:57 2002
 ;;;;                
-;;;; $Id: more-macros.lisp,v 1.33 2006/05/02 20:03:47 ffjeld Exp $
+;;;; $Id: more-macros.lisp,v 1.34 2006/05/05 18:33:08 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -155,14 +155,14 @@
       `(do ((item ,item)
 	    (p ,list (cdr p)))
 	   ((endp p) nil)
-	 (when (,test (car p) item)
+	 (when (,test item (car p))
 	   (return p))))
      ((and test (symbolp test)
 	   key (symbolp key))
       `(do ((item ,item)
 	    (p ,list (cdr p)))
 	   ((endp p) nil)
-	 (when (,test (car p) (,key item))
+	 (when (,test (,key item) (car p))
 	   (return p))))
      (t form))))