diff --git a/assembly/mips/arith.lisp b/assembly/mips/arith.lisp
index 8ae5d79c72e033d970283e3867861c455f6f9c78..00807df1900615ce63b541e28f230cc9a49a92db 100644
--- a/assembly/mips/arith.lisp
+++ b/assembly/mips/arith.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/arith.lisp,v 1.7 1990/11/23 15:23:44 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/arith.lisp,v 1.8 1991/02/01 18:37:47 ram Exp $
 ;;;
 ;;; Stuff to handle simple cases for generic arithmetic.
 ;;;
@@ -211,9 +211,11 @@
 	  DONE)))
 
   (define-cond-assem-rtn generic-< < two-arg-< (inst slt temp x y) nil)
-  (define-cond-assem-rtn generic-<= <= two-arg-<= (inst slt temp y x) t)
+; <=, >= should never be emitted.
+;  (define-cond-assem-rtn generic-<= <= two-arg-<= (inst slt temp y x) t)
   (define-cond-assem-rtn generic-> > two-arg-> (inst slt temp y x) nil)
-  (define-cond-assem-rtn generic->= >= two-arg->= (inst slt temp x y) t))
+;  (define-cond-assem-rtn generic->= >= two-arg->= (inst slt temp x y) t)
+  )
 
 
 (define-assembly-routine (generic-eql