From 15d8218f40b2af69b049af99601498b1d6e2c0dd Mon Sep 17 00:00:00 2001 From: hallgren <hallgren> Date: Mon, 26 Jul 1993 20:06:29 +0000 Subject: [PATCH] Change eql to = for EQL/{SINGLE,DOUBLE}-FLOAT. --- compiler/hppa/float.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/hppa/float.lisp b/compiler/hppa/float.lisp index 5be45a695..64944da0f 100644 --- a/compiler/hppa/float.lisp +++ b/compiler/hppa/float.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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 @@ (:variant ,condition ,complement))))) (frob < #b01001 #b10101 </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: -- GitLab