Skip to content
Snippets Groups Projects
Commit 15d8218f authored by hallgren's avatar hallgren
Browse files

Change eql to = for EQL/{SINGLE,DOUBLE}-FLOAT.

parent edcb2d9c
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/hppa/float.lisp,v 1.2 1992/07/14 03:45:04 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/hppa/float.lisp,v 1.3 1993/07/26 20:06:29 hallgren Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -242,7 +242,7 @@ ...@@ -242,7 +242,7 @@
(:variant ,condition ,complement))))) (:variant ,condition ,complement)))))
(frob < #b01001 #b10101 </single-float </double-float) (frob < #b01001 #b10101 </single-float </double-float)
(frob > #b10001 #b01101 >/single-float >/double-float) (frob > #b10001 #b01101 >/single-float >/double-float)
(frob eql #b00101 #b11001 eql/single-float eql/double-float)) (frob = #b00101 #b11001 eql/single-float eql/double-float))
;;;; Conversion: ;;;; Conversion:
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment