23 Mar
2007
23 Mar
'07
5:18 p.m.
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))