[elephant-cvs] CVS elephant/src/elephant

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/elephant
In directory clnet:/tmp/cvs-serv18996

Modified Files:
	collections.lisp 
Log Message:
Doesn't work for different numeric types

--- /project/elephant/cvsroot/elephant/src/elephant/collections.lisp	2007/03/23 16:10:42	1.17
+++ /project/elephant/cvsroot/elephant/src/elephant/collections.lisp	2007/03/23 16:18:59	1.18
@@ -343,7 +343,6 @@
 	   (funcall fn k v))))))
 
 (defun lisp-compare<= (a b)
-  (assert (eq (type-of a) (type-of b)))
   (etypecase a
     (number (<= a b))
     (string (string<= a b))