Index: /trunk/ccl/level-0/l0-numbers.lisp
===================================================================
--- /trunk/ccl/level-0/l0-numbers.lisp	(revision 5338)
+++ /trunk/ccl/level-0/l0-numbers.lisp	(revision 5339)
@@ -310,9 +310,11 @@
 
 (defun /=-2 (x y)
-  (not (=-2 x y)))
+  (declare (notinline =-2))
+  (not (= x y)))
 
 
 ; true iff (< x y) is false.
 (defun >=-2 (x y)
+  (declare (notinline <-2))
   (not (< x y)))
 
@@ -320,4 +322,5 @@
 
 (defun <=-2 (x y)
+  (declare (notinline >-2))
   (not (> x y)))