mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 09:20:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

Remove debug statement

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-13 23:48:52 +02:00
parent 7ea5a3c6a3
commit 55eeb0e955
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpnum.lsp
View file

@ -179,8 +179,6 @@
(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))))