From 55eeb0e955622cda76b7eb9d6d10c3bf36b0eb59 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 13 Jul 2009 23:48:52 +0200 Subject: [PATCH] Remove debug statement --- src/cmp/cmpnum.lsp | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/cmp/cmpnum.lsp b/src/cmp/cmpnum.lsp index 1d3b2c31f..66e5e44d6 100644 --- a/src/cmp/cmpnum.lsp +++ b/src/cmp/cmpnum.lsp @@ -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))))