Skip to content
Snippets Groups Projects
Commit 92f2f154 authored by rtoy's avatar rtoy
Browse files

Ticket #11

Add case for double-double-float.
parent 49c13f90
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.62 2007/01/23 16:21:11 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.63 2007/08/28 23:55:46 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1089,6 +1089,8 @@ ...@@ -1089,6 +1089,8 @@
(lambda (x y) (lambda (x y)
(and (eql (numerator x) (numerator y)) (and (eql (numerator x) (numerator y))
(eql (denominator x) (denominator y))))) (eql (denominator x) (denominator y)))))
#+double-double
(double-double-float eql)
(complex (complex
(lambda (x y) (lambda (x y)
(and (eql (realpart x) (realpart y)) (and (eql (realpart x) (realpart y))
......
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