Index: /trunk/ccl/compiler/nx1.lisp
===================================================================
--- /trunk/ccl/compiler/nx1.lisp	(revision 5340)
+++ /trunk/ccl/compiler/nx1.lisp	(revision 5341)
@@ -208,7 +208,4 @@
 (defnx1 nx1-ccEQ-unaryop ((characterp)  (endp) (consp) (base-char-p)) (arg)
   (make-acode (%nx1-default-operator) (nx1-immediate :EQ) (nx1-form arg)))
-
-
-
 
 
@@ -595,5 +592,5 @@
   (let* ((op *nx-sfname*)
          (both-fixnums (nx-binary-fixnum-op-p num1 num2 env t))
-	 (both-natural (nx-binary-natural-op-p num1 num2 env ))
+         (both-natural (nx-binary-natural-op-p num1 num2 env ))
          (both-double-floats
           (let* ((dfloat-1 (nx-form-typep num1 'double-float env))
@@ -613,9 +610,9 @@
        (if both-fixnums
          (%nx1-operator %i<>)
-	 (if both-natural
-	   (%nx1-operator %natural<>)
-	   (if both-double-floats
-	     (%nx1-operator double-float-compare)
-	     (%nx1-operator short-float-compare))))
+         (if both-natural
+           (%nx1-operator %natural<>)
+           (if both-double-floats
+             (%nx1-operator double-float-compare)
+             (%nx1-operator short-float-compare))))
        (make-acode
         (%nx1-operator immediate)
@@ -629,5 +626,16 @@
        (nx1-form num1)
        (nx1-form num2))
-      (nx1-treat-as-call whole))))
+      (make-acode (%nx1-operator numcmp)
+                  (make-acode
+                   (%nx1-operator immediate)
+                   (if (eq op '<-2)
+                     :LT
+                     (if (eq op '>=-2)
+                       :GE
+                       (if (eq op '<=-2)
+                         :LE
+                         :GT))))
+                  (nx1-form num1)
+                  (nx1-form num2)))))
 
 (defnx1 nx1-num= ((=-2) (/=-2)) (&whole whole &environment env num1 num2 )
@@ -673,5 +681,12 @@
 	   (nx1-form num1)
 	   (nx1-form num2))
-	  (nx1-treat-as-call whole))))))
+          (make-acode (%nx1-operator numcmp)
+                      (make-acode
+                       (%nx1-operator immediate)     
+                       (if (eq op '=-2)
+                         :EQ
+                         :NE))
+                      (nx1-form num1)
+                      (nx1-form num2)))))))