Skip to content
Snippets Groups Projects
Commit 3865141a authored by dtc's avatar dtc
Browse files

Fix a typo in the =0/long-float VOP, noted by Raymond Toy.

parent ab11f716
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/x86/float.lisp,v 1.28 1998/03/30 03:05:54 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float.lisp,v 1.29 1998/03/30 03:17:09 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1588,7 +1588,7 @@ ...@@ -1588,7 +1588,7 @@
#-negative-zero-is-not-zero #-negative-zero-is-not-zero
(:arg-types long-float (:constant (long-float 0l0 0l0))) (:arg-types long-float (:constant (long-float 0l0 0l0)))
#+negative-zero-is-not-zero #+negative-zero-is-not-zero
(:arg-types double-float (:constant (long-float -0l0 0l0))) (:arg-types long-float (:constant (long-float -0l0 0l0)))
(:variant #x40)) (:variant #x40))
(define-vop (<0/single-float float-test) (define-vop (<0/single-float float-test)
......
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