mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-25 05:51:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

The utility functions for ENSURE-*-TYPE returned the argument type in the third and not in the second value (cmpnum.lsp)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-13 11:48:49 +02:00
parent f80bb43e28
commit c8118dd93c
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmpnum.lsp
View file

@ -90,10 +90,10 @@
(maximum-number-type general-type general-type))
(defun ensure-nonrational-type (general-type)
(maximum-number-type 'single-float general-type))
(maximum-number-type general-type 'single-float))
(defun ensure-real-type (general-type)
(maximum-number-type 'integer general-type :only-real))
(maximum-number-type general-type 'integer :only-real))
(defun arithmetic-propagator (op1-type others integer-result)
;; Propagates types for an associative operator (we do not care which one).
@ -179,6 +179,8 @@
(def-type-propagator sqrt (fname arg)
(multiple-value-bind (output arg)
(ensure-nonrational-type arg)
(print arg)
(print (if (type>= '(REAL 0 *) arg) output 'NUMBER))
(values (list arg)
(if (type>= '(REAL 0 *) arg) output 'NUMBER))))