From 16979e1df537412a0baba5c95c7d0036bf0ddf9b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 28 Jul 2010 10:41:18 +0000
Subject: 	* interp/sys-globals.boot ($VariableCount): Remove. 	*
 interp/spad.lisp (QUOTIENT2): Remove. 	(REMAINDER2): Likewise. 	*
 algebra/integer.spad.pamphlet (Integer): Use builtin  %idivide. 	*
 algebra/si.spad.pamphlet (SingleInteger): Likewise.

---
 src/algebra/strap/LSAGG-.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra/strap/LSAGG-.lsp')

diff --git a/src/algebra/strap/LSAGG-.lsp b/src/algebra/strap/LSAGG-.lsp
index 747351b5..5599f794 100644
--- a/src/algebra/strap/LSAGG-.lsp
+++ b/src/algebra/strap/LSAGG-.lsp
@@ -405,7 +405,7 @@
            (EXIT (COND
                    ((< |n| 3) |p|)
                    (T (SEQ (LETT |l|
-                                 (LET ((#0=#:G1511 (QUOTIENT2 |n| 2)))
+                                 (LET ((#0=#:G1511 (TRUNCATE |n| 2)))
                                    (|check-subtype| (NOT (MINUSP #0#))
                                     '(|NonNegativeInteger|) #0#))
                                  |LSAGG-;mergeSort|)
-- 
cgit v1.2.3