From 094e16ae834eaf254a85781d759e0399a9269fb1 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 25 Jun 2010 03:44:16 +0000
Subject: 	* interp/c-util.boot (expandableDefinition?): Try to make it a
 	forwarding function if possible.

---
 src/algebra/strap/SINT.lsp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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

diff --git a/src/algebra/strap/SINT.lsp b/src/algebra/strap/SINT.lsp
index 7aaa1956..4dcb6617 100644
--- a/src/algebra/strap/SINT.lsp
+++ b/src/algebra/strap/SINT.lsp
@@ -278,11 +278,9 @@
 (DECLAIM (FTYPE (FUNCTION (|%Short| |%Shell|) |%Shell|)
                 |SINT;unitNormal;$R;62|)) 
 
-(PUT '|SINT;and;3$;22| '|SPADreplace|
-     '(XLAM (|x| |y|) (LOGAND |x| |y|))) 
+(PUT '|SINT;and;3$;22| '|SPADreplace| 'LOGAND) 
 
-(PUT '|SINT;or;3$;24| '|SPADreplace|
-     '(XLAM (|x| |y|) (LOGIOR |x| |y|))) 
+(PUT '|SINT;or;3$;24| '|SPADreplace| 'LOGIOR) 
 
 (PUT '|SINT;one?;$B;44| '|SPADreplace| '(XLAM (|x|) (|%ieq| |x| 1))) 
 
-- 
cgit v1.2.3