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/GCDDOM.lsp | 28 ----------------------------
 1 file changed, 28 deletions(-)
 delete mode 100644 src/algebra/strap/GCDDOM.lsp

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

diff --git a/src/algebra/strap/GCDDOM.lsp b/src/algebra/strap/GCDDOM.lsp
deleted file mode 100644
index 51447060..00000000
--- a/src/algebra/strap/GCDDOM.lsp
+++ /dev/null
@@ -1,28 +0,0 @@
-
-(/VERSIONCHECK 2) 
-
-(DEFPARAMETER |GcdDomain;AL| 'NIL) 
-
-(DEFUN |GcdDomain;| ()
-  (LET ((#0=#:G1378
-            (|Join| (|IntegralDomain|)
-                    (|mkCategory| '|domain|
-                        '(((|gcd| ($ $ $)) T)
-                          ((|gcd| ($ (|List| $))) T)
-                          ((|lcm| ($ $ $)) T)
-                          ((|lcm| ($ (|List| $))) T)
-                          ((|gcdPolynomial|
-                               ((|SparseUnivariatePolynomial| $)
-                                (|SparseUnivariatePolynomial| $)
-                                (|SparseUnivariatePolynomial| $)))
-                           T))
-                        NIL
-                        '((|SparseUnivariatePolynomial| $) (|List| $))
-                        NIL))))
-    (SETF (|shellEntry| #0# 0) '(|GcdDomain|))
-    #0#)) 
-
-(DEFUN |GcdDomain| ()
-  (COND (|GcdDomain;AL|) (T (SETQ |GcdDomain;AL| (|GcdDomain;|))))) 
-
-(MAKEPROP '|GcdDomain| 'NILADIC T) 
-- 
cgit v1.2.3