From a03b7716749e9fb997d99659967aa49ae6ca1569 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 7 Mar 2011 05:49:53 +0000
Subject: 	* interp/sys-utility.boot (getSystemModulePath): Use 
 systemAlgebraDirectory. 	* interp/database.boot (pathToDatabase): Use
 systemDatabaseDirectory. 	* algebra/integer.spad.pamphlet (Integer)
 [latex]: Tidy. 	* algebra/string.spad.pamphlet (Character) [latex]:
 Likewise. 	* algebra/Makefile.in: Rework bootstrapping set up. 
 (COMPILE_LISP): Remove. 	(axiom_algebra_layer_strap): Likewise. 
 (axiom_algebra_layer_strap_objects): Likewise. 
 (axiom_algebra_bootstrap): Likewise. 	(oa_strap_0_fasls): New. 
 (oa_strap_1_fasls): Likewise. 	(oa_strap_2_fasls): Likewise. 
 (oa_strap_0_sources): Likewise. 	(oa_strap_1_sources): Likewise. 
 (oa_strap_2_sources): Likewise. 	* src/algerab/strap: Remove.

---
 src/algebra/strap/ABELSG-.lsp | 35 -----------------------------------
 1 file changed, 35 deletions(-)
 delete mode 100644 src/algebra/strap/ABELSG-.lsp

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

diff --git a/src/algebra/strap/ABELSG-.lsp b/src/algebra/strap/ABELSG-.lsp
deleted file mode 100644
index c901d63f..00000000
--- a/src/algebra/strap/ABELSG-.lsp
+++ /dev/null
@@ -1,35 +0,0 @@
-
-(/VERSIONCHECK 2) 
-
-(DECLAIM (FTYPE (FUNCTION ((|%IntegerSection| 1) |%Thing| |%Shell|)
-                    |%Thing|)
-                |ABELSG-;*;Pi2S;1|)) 
-
-(DEFUN |ABELSG-;*;Pi2S;1| (|n| |x| $)
-  (SPADCALL |n| |x| (|shellEntry| $ 9))) 
-
-(DEFUN |AbelianSemiGroup&| (|#1|)
-  (LET* ((|dv$1| (|devaluate| |#1|))
-         (|dv$| (LIST '|AbelianSemiGroup&| |dv$1|)) ($ (|newShell| 11))
-         (|pv$| (|buildPredVector| 0 0 NIL)))
-    (SETF (|shellEntry| $ 0) |dv$|)
-    (SETF (|shellEntry| $ 3) |pv$|)
-    (|stuffDomainSlots| $)
-    (SETF (|shellEntry| $ 6) |#1|)
-    (COND
-      ((|HasCategory| |#1| '(|Ring|)))
-      (T (SETF (|shellEntry| $ 10)
-               (CONS (|dispatchFunction| |ABELSG-;*;Pi2S;1|) $))))
-    $)) 
-
-(MAKEPROP '|AbelianSemiGroup&| '|infovec|
-    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|PositiveInteger|)
-             (|RepeatedDoubling| 6) (0 . |double|) (6 . *))
-          '#(* 12) 'NIL
-          (CONS (|makeByteWordVec2| 1 'NIL)
-                (CONS '#()
-                      (CONS '#()
-                            (|makeByteWordVec2| 10
-                                '(2 8 6 7 6 9 2 0 0 7 0 10 2 0 0 7 0
-                                  10)))))
-          '|lookupComplete|)) 
-- 
cgit v1.2.3