Commit 5be849e0 authored by Liam Healy's avatar Liam Healy

Restore default equality test (e.g., pdq)

parent 33156b16
;; Generic functions arithmetic functions on generalized numbers
;; Liam Healy Tue Feb 9 1999 - 21:38
;; Time-stamp: <2015-11-15 15:53:03EST generic.lisp>
;; Time-stamp: <2017-09-13 16:42:19CDT generic.lisp>
;; Copyright 2011, 2013, 2014, 2015 Liam M. Healy
;; Copyright 2011, 2013, 2014, 2015, 2017 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -320,6 +320,7 @@
(:documentation "Numeric equal")
(:method ((a number) (b number))
(if (cl:= a b) a))
(:method (a b) (cl:= (numbcomp a) (numbcomp b)))
#+(or)
(:method (a b) (funcall-dyadic '= (numbcomp a) (numbcomp b))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment