From f0b6be21e20a76251afe2bc2ae92800fb267da0b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 30 Apr 2010 14:53:30 +0000
Subject: 	* interp/macros.lisp (|check-subtype|): Return coerced value
 if can. 	(|check-union|): Likewise. 	* interp/compiler.boot
 (coerceSuperset): Tidy.  Generate %Retract 	instruction. 	*
 interp/g-opt.boot (optRetract): New.

---
 src/algebra/strap/NNI.lsp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/algebra/strap/NNI.lsp')

diff --git a/src/algebra/strap/NNI.lsp b/src/algebra/strap/NNI.lsp
index 8ec72966..1288e89c 100644
--- a/src/algebra/strap/NNI.lsp
+++ b/src/algebra/strap/NNI.lsp
@@ -37,9 +37,8 @@
                    ((< |c| 0) (CONS 1 "failed"))
                    ('T
                     (CONS 0
-                          (PROG1 |c|
-                            (|check-subtype| (>= |c| 0)
-                                '(|NonNegativeInteger|) |c|)))))))))) 
+                          (|check-subtype| (>= |c| 0)
+                              '(|NonNegativeInteger|) |c|))))))))) 
 
 (DEFUN |NonNegativeInteger| ()
   (PROG ()
-- 
cgit v1.2.3