mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-19 16:30:37 -07:00
Code Issues Projects Releases Packages Wiki Activity

In cmpnum.lsp, MAXIMUM-NUMBER-TYPE outputs the minimum, not the maximum type.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-08 11:11:46 +02:00
parent 6884850535
commit 6f9d335302
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmpnum.lsp
View file

@ -71,13 +71,11 @@
t)
t1 t2))
(when (and (null t1-eq) (type>= i t1))
(setf t1-eq i)
(if (equalp t1 t2)
(setf t2-eq i))
(setf output t1-eq))
(setf t1-eq i output i))
(when (and (null t2-eq) (type>= i t2))
(setf t2-eq i)
(setf output t1-eq)))))
(setf t2-eq i output i)))))
(defun prod/plus-propagator (op1 op2)
(multiple-value-bind (result-type op1-type op2-type)