From 45d797d567b29b2fd8923be38c99e37c46e2f159 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <>
Date: Fri, 3 May 2002 04:58:49 +0000
Subject: [PATCH] lose the dross

---
 systems/MaiSQL-MySQL.system    |  39 ----------
 systems/MaiSQL.system          |  54 --------------
 systems/XML.system             |  73 -------------------
 systems/araneida.system        |  38 ----------
 systems/cliki.system           |  20 -----
 systems/clorb.system           |  13 ----
 systems/dan-barlow.system      |  10 ---
 systems/db-sockets.system      | 129 ---------------------------------
 systems/dhttp.system           |  16 ----
 systems/http-server.system     |  38 ----------
 systems/imap.system            |   7 --
 systems/istr.system            | 111 ----------------------------
 systems/maisql-mysql.system    |  39 ----------
 systems/maisql.system          |  54 --------------
 systems/net-telent-date.system |   9 ---
 systems/net-telent-pcre.system |  11 ---
 systems/rinaldo.system         | 101 --------------------------
 systems/telentweb.system       |  14 ----
 systems/todo.system            |   9 ---
 systems/xml.system             |   9 ---
 systems/xmltools.system        |   8 --
 21 files changed, 802 deletions(-)
 delete mode 100644 systems/MaiSQL-MySQL.system
 delete mode 100644 systems/MaiSQL.system
 delete mode 100644 systems/XML.system
 delete mode 100644 systems/araneida.system
 delete mode 100644 systems/cliki.system
 delete mode 100644 systems/clorb.system
 delete mode 100644 systems/dan-barlow.system
 delete mode 100644 systems/db-sockets.system
 delete mode 100644 systems/dhttp.system
 delete mode 100644 systems/http-server.system
 delete mode 100644 systems/imap.system
 delete mode 100644 systems/istr.system
 delete mode 100644 systems/maisql-mysql.system
 delete mode 100644 systems/maisql.system
 delete mode 100644 systems/net-telent-date.system
 delete mode 100644 systems/net-telent-pcre.system
 delete mode 100644 systems/rinaldo.system
 delete mode 100644 systems/telentweb.system
 delete mode 100644 systems/todo.system
 delete mode 100644 systems/xml.system
 delete mode 100644 systems/xmltools.system

diff --git a/systems/MaiSQL-MySQL.system b/systems/MaiSQL-MySQL.system
deleted file mode 100644
index b2871a7d..00000000
--- a/systems/MaiSQL-MySQL.system
+++ /dev/null
@@ -1,39 +0,0 @@
-;;; -*- Mode: Lisp -*-
-;;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
-;;;; This is copyrighted software.  See documentation for terms.
-;;;; 
-;;;; MaiSQL.system --- System definition for MaiSQL-MySQL
-;;;; 
-;;;; Checkout Tag: $Name:  $
-;;;; $Id: MaiSQL-MySQL.system,v 1.1 2001/08/01 17:52:50 dan_b Exp $
-
-#+CLISP
-(in-package "USER")
-#-CLISP
-(in-package :CL-USER)
-
-;;; System definition
-
-(defsystem "MaiSQL-MySQL"
-    :source-pathname "onshore:uncommonsql;dbms;mysql"
-    :source-extension "lisp"
-    :binary-pathname nil
-    :binary-extension nil
-    :components
-    ((:file "mysql-package")
-     (:file "mysql-loader"
-	    :depends-on ("mysql-package"))
-     (:file "mysql"
-	    :depends-on ("mysql-package"
-			 "mysql-loader"))
-     (:file "mysql-sql"
-	    :depends-on ("mysql"))
-     )
-    :depends-on ("MaiSQL")
-    )
-
-;(oos "MaiSQL-MySQL" :compile)
-
-
-
-
diff --git a/systems/MaiSQL.system b/systems/MaiSQL.system
deleted file mode 100644
index 1a508f87..00000000
--- a/systems/MaiSQL.system
+++ /dev/null
@@ -1,54 +0,0 @@
-;;; -*- Mode: Lisp -*-
-;;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
-;;;; This is copyrighted software.  See documentation for terms.
-;;;; 
-;;;; MaiSQL.system --- System definition for MaiSQL
-;;;; 
-;;;; Checkout Tag: $Name:  $
-;;;; $Id: MaiSQL.system,v 1.1 2001/08/01 17:52:50 dan_b Exp $
-
-#+CLISP
-(in-package "USER")
-#-CLISP
-(in-package :CL-USER)
-
-;;; System definition for MaiSQL
-
-(mk:defsystem "MaiSQL"
-    :source-pathname "onshore:uncommonsql;"
-    :source-extension "lisp"
-    :binary-pathname nil
-    :binary-extension nil
-    :components ((:file "sql;package")
-		 (:module core
-			  :source-pathname "sql;"
-			  :components ((:file "dbms-interface")
-				       (:file "classes")
-				       (:file "operations"
-					      :depends-on ("classes"))
-				       (:file "syntax")
-				       (:file "sql"
-					      :depends-on ("syntax"
-							   "classes")))
-			  :depends-on ("sql;package"))
-		 (:module syntax
-			  :source-pathname "sql;"
-			  :components ((:file "table")
-				       (:file "conditions")
-				       (:file "recording")
-				       (:file "transaction"))
-			  :depends-on (core))
-		 (:module object
-			  :source-pathname "sql;"
-			  :components ((:file "metaclasses")
-				       (:file "objects"
-					      :depends-on ("metaclasses"))
-                                       (:file "schema"))
-			  :depends-on (syntax))
-		 (:module dbms-load
-			  :source-pathname ""
-			  :components ((:file "dbms-loader"))
-			  :depends-on (core)))
-    :finally-do (pushnew :sql *features*))
-
-
diff --git a/systems/XML.system b/systems/XML.system
deleted file mode 100644
index dccf0539..00000000
--- a/systems/XML.system
+++ /dev/null
@@ -1,73 +0,0 @@
-;;; -*- Syntax: Ansi-Common-Lisp; Base: 10; Mode: lisp; Package: cl-user -*-
-;;; $Id: XML.system,v 1.1 2001/08/01 17:52:50 dan_b Exp $
-
-(in-package :cl-user)
-
-;;
-;; XML parser
-;;
-
-(defsystem "XML"
-    :source-pathname "onshore:uncommonxml;"
-    :source-extension "lisp"
-    :binary-pathname nil
-    :binary-extension nil
-    :components
-    ((:file "application"		; good
-	    :depends-on ("events" "locale"))
-     (:file "ascii-encoding"		; good
-	    :depends-on ("encoding"))	
-     (:file "attribute-definition"	; good
-	    :depends-on ("macros"))	
-     (:file "comment-driver")		; SAX comment driver - commented out.
-     (:file "conditions")		; good
-     (:file "content-token"		; COMPLETE
-	    :depends-on ("token"))
-     (:file "doctype"			; good
-	    :depends-on ("entity-parser"))	 
-     (:file "driver")			; SAX driver - commented out.
-     (:file "dtd")			; 9
-     (:file "element-type"		; good
-	    :depends-on ("macros"))	
-     (:file "encoding"
-	    :depends-on ("encoding-tables"))			;
-     (:file "encoding-tables"		; good
-	    :depends-on ("macros"))
-     (:file "entity-manager")		; good
-     (:file "entity-parser"		; not good
-	    :depends-on ("content-token" "dtd" "events" "prolog-parser"
-					 "string-cache"))
-     (:file "events"			; good
-	    :depends-on ("package"))
-     (:file "internal-encoding")	; 2 - Java-like 16 bit encoding - commented out.
-     (:file "iso8859-1-encoding")	; Latin-1 encoding - commented out.
-     (:file "locale")			; good
-     (:file "locator")			; good
-     (:file "macros"
-	    :depends-on ("string"))			; 8 - good
-     (:file "messages")			; 9 - error messages
-     (:file "normalize")		; 7 - App: write normalized XML doc
-     (:file "open-entity")		; good
-     (:file "package")			; good
-     (:file "parse-location")		; good
-     (:file "parser")			; good
-     (:file "position")			; good
-     (:file "prolog-parser")		;
-     (:file "single-byte-encoding")	; arbitrary single byte encoding
-     (:file "string-cache")		;
-     (:file "string")			; Unicode garbage
-     (:file "test")			; Run the W3C test suite
-     (:file "text-decl")		;
-     (:file "token")			; good
-     (:file "utf16be-encoding")		;
-     (:file "utf16le-encoding")		;
-     (:file "utf8-encoding")		;
-     (:file "xml-decl"
-	    :depends-on ("text-decl"))	;
-     (:file "xml-streams")		;
-     )
-    )
-
-
-
-
diff --git a/systems/araneida.system b/systems/araneida.system
deleted file mode 100644
index 8f54b675..00000000
--- a/systems/araneida.system
+++ /dev/null
@@ -1,38 +0,0 @@
-;;; -*- Lisp -*-
-
-(defsystem araneida
-  :pathname #p"cl-library:araneida;"
-  :depends-on (db-sockets net-telent-date)
-  :components ((:file "defpackage")
-               (:file "macros" :depends-on("defpackage"))
-	       (:file "release")
-               (:module "utility"
-                        :source-pathname "utility;"
-                        :components ((:file "aif")
-                                     (:file "lists")
-                                     (:file "split")
-                                     (:file "seqlet")
-                                     (:file "base64" :depends-on ("seqlet"))
-                                     (:file "strings")))
-               (:file "db-sockets"
-                      :depends-on ("macros"))
-               (:file "araneida" :depends-on  ("db-sockets"))
-               (:file "pmp" :depends-on ("db-sockets"))
-               (:file "html")
-               (:file "url-class")
-               (:file "url" :depends-on ("utility" "url-class"))
-               (:file "server-class")
-               (:file "server" :depends-on ("server-class" "url-class"))
-               (:file "exports"
-                      :depends-on ("defpackage" "utility" "url"))
-               (:file "request-class")
-               (:file "request" :depends-on ("url" "request-class") )
-               (:file "auth" :depends-on ("request"))
-               (:file "file-request" :depends-on ("pmp" "request"))
-               (:file "define-page" :depends-on ("request"))
-               (:file "daemon"
-                      :depends-on
-                      ("url" "pmp" "defpackage" "exports" "request"))
-               (:file "memoization")
-               (:file "pattern-match" :depends-on ("memoization"))))
-
diff --git a/systems/cliki.system b/systems/cliki.system
deleted file mode 100644
index ced266b2..00000000
--- a/systems/cliki.system
+++ /dev/null
@@ -1,20 +0,0 @@
-;;; -*- Lisp -*-
-(in-package :cl-user)
-
-(make:defsystem cliki
-  :depends-on (ARANEIDA xmltools net-telent-date)
-  :source-pathname #p"telent:cliki;"
-  :components ((:file "defpackage")               
-               (:file "indexing" :depends-on ("defpackage"))
-	       (:file "index" :depends-on ("defpackage"))
-               ;(:file "date" :depends-on ("defpackage"))
-               (:file "link-checker" :depends-on ("indexing"))
-               (:file "view" :depends-on ("indexing"))
-               (:file "recent-changes" :depends-on ("defpackage" ))
-               (:file "view-source" :depends-on ("defpackage"))
-               (:file "edit" :depends-on ("indexing" "recent-changes"))
-               (:file "search" :depends-on ("indexing"))
-               (:file "handlers" :depends-on
-                      ("view" "indexing" "view-source" "edit" "search"))))
-
-
diff --git a/systems/clorb.system b/systems/clorb.system
deleted file mode 100644
index 06786d86..00000000
--- a/systems/clorb.system
+++ /dev/null
@@ -1,13 +0,0 @@
-;;; -*- Lisp -*-
-
-(make:defsystem "clorb"
-    :source-extension "lisp"
-    :binary-pathname "bin/"
-    :components ((:file "clorb-pkgdcl")
-                 (:file "clorb-macros"  :depends-on ("clorb-pkgdcl"))
-		 (:file "clorb-options" :depends-on ("clorb-pkgdcl"))
-                 (:file "clorb-supp")
-                 (:file "clorb-basetypes")
-                 (:file "clorb-exceptions")
-                 (:file "dumpir"        :depends-on ("clorb-pkgdcl"))))
-
diff --git a/systems/dan-barlow.system b/systems/dan-barlow.system
deleted file mode 100644
index 5cc80dfe..00000000
--- a/systems/dan-barlow.system
+++ /dev/null
@@ -1,10 +0,0 @@
-;;; -*- Lisp -*-
-(in-package :user)
-(defsystem dan-barlow
-  :source-pathname #p"src:dan-barlow;"
-  :components ((:file "defpackage")
-               (:file "copy-stream" :depends-on ("defpackage"))
-               (:file "lists" :depends-on ("defpackage"))
-               (:file "aif" :depends-on ("defpackage"))               
-               (:file "split" :depends-on ("defpackage"))))
-
diff --git a/systems/db-sockets.system b/systems/db-sockets.system
deleted file mode 100644
index 6ccd2c80..00000000
--- a/systems/db-sockets.system
+++ /dev/null
@@ -1,129 +0,0 @@
-;;; -*-  Lisp -*-
-
-(defpackage #:db-sockets-system (:use #:asdf #:cl))
-(in-package #:db-sockets-system)
-
-;;; constants.lisp requires special treatment
-
-(defclass constants-file (cl-source-file) ())
-
-(defmethod perform ((op compile-op) (component constants-file))
-  ;; we want to generate all our temporary files in the fasl directory
-  ;; because that's where we have write permission.  Can't use /tmp;
-  ;; it's insecure (these files will later be owned by root)
-  (let* ((output-file (car (output-files op component)))
-	 (filename (component-pathname component))
-	 (real-output-file
-	  (if (typep output-file 'logical-pathname)
-	      (translate-logical-pathname output-file)
-	      (pathname output-file)))
-	 (tmp-c-source (merge-pathnames #p"foo.c" real-output-file))
-	 (tmp-a-dot-out (merge-pathnames #p"a.out" real-output-file))
-	 (tmp-constants (merge-pathnames #p"constants.lisp-temp"
-					 real-output-file)))
-    (princ (list filename output-file real-output-file
-		 tmp-c-source tmp-a-dot-out tmp-constants))
-    (terpri)
-    (funcall (intern "C-CONSTANTS-EXTRACT" (find-package "DB-SOCKETS-SYSTEM"))
-	     filename tmp-c-source :sockets-internal)
-    #+nil
-    (c-constants-extract filename tmp-c-source :sockets-internal)
-    (and
-     (= (run-shell-command
-	 "/usr/bin/gcc -o ~S ~S" (namestring tmp-a-dot-out)
-	 (namestring tmp-c-source)) 0)
-     (= (run-shell-command "~A >~A"
-			   (namestring tmp-a-dot-out)
-			   (namestring tmp-constants)) 0)
-     (compile-file tmp-constants :output-file output-file))))
-
-;;; we also have a shared library with some .o files in it
-
-(defclass unix-dso (module) ())
-(defun unix-name (pathname)
-  (namestring 
-   (typecase pathname
-     (logical-pathname (translate-logical-pathname pathname))
-     (t pathname))))
-
-(defmethod output-files ((operation compile-op) (dso unix-dso))
-  (let ((dir (component-pathname dso)))
-    (list
-     (make-pathname :type "so"
-		    :name (car (last (pathname-directory dir)))
-		    :directory (butlast (pathname-directory dir))
-		    :defaults dir))))
-
-(defmethod perform :after ((operation compile-op) (dso unix-dso))
-  (let ((dso-name (unix-name (car (output-files operation dso)))))
-    (unless (zerop
-	     (run-shell-command
-	      "gcc -shared -o ~S ~{~S ~}"
-	      dso-name
-	      (mapcar #'unix-name
-		      (mapcan (lambda (c)
-				(output-files operation c))
-			      (module-components dso)))))
-      (error 'operation-error :operation operation :component dso))))
-
-;; XXX this is overridden later
-(defmethod perform ((operation load-op) (dso unix-dso))
-  (let ((dso-name (unix-name (car (output-files
-				   (make-instance 'compile-op) dso)))))
-    #+sbcl (sb-alien:load-1-foreign dso-name)
-    #+cmu (system::load-object-file dso-name)))
-	
-
-;;; if this goes into the standard asdf, it could reasonably be extended
-;;; to allow cflags to be set somehow
-(defmethod output-files ((op compile-op) (c c-source-file))
-  (list (let ((*default-pathname-defaults* *component-parent-pathname*))
-	  (make-pathname :type "o" :defaults
-			 (component-pathname c)))))
-(defmethod perform ((op compile-op) (c c-source-file))
-  (unless
-      (= 0 (run-shell-command "/usr/bin/gcc -fPIC -o ~S -c ~S"
-			      (unix-name (car (output-files op c)))
-			      (unix-name (component-pathname c))))
-    (error 'operation-error :operation op :component c)))
-
-(defmethod perform ((operation load-op) (c c-source-file))
-  t)
-  
-(defmethod perform ((o load-op) (c unix-dso))
-  (let ((co (make-instance 'compile-op)))
-    (perform co c)
-    (let ((filename (car (output-files co c))))
-      #+cmu (system::load-object-file filename)
-      #+sbcl (sb-alien:load-1-foreign filename))))
-
-(defsystem db-sockets
-    :components ((:file "defpackage" :depends-on ("rt"))
-		 (:file "split" :depends-on ("defpackage"))
-                 (:file "array-data" :depends-on ("defpackage"))
- q		 (:unix-dso "alien"
-			    :pathname "."
-			    :components ((:c-source-file "undefs")
-					 (:c-source-file "get-h-errno")))
-		 (:file "malloc" :depends-on ("defpackage"))
-		 (:file "foreign-glue" :depends-on ("defpackage" "malloc"))
-		 (:constants-file "constants"
-				  :pathname "constants.lisp"
-				  :in-order-to
-				  ((compile-op
-				    (load-op "def-to-lisp"
-						 "defpackage"
-						 "foreign-glue"))))
-		 (:file "sockets"
-			:in-order-to ((compile-op
-				       (load-op "constants"))))
-		 
-		 (:file "sockopt" :depends-on ("sockets"))
-		 (:file "inet" :depends-on ("sockets" "split"  "constants" ))
-		 (:file "unix" :depends-on ("sockets" "split" "constants" ))
-		 (:file "name-service" :depends-on ("sockets" "constants" "alien"))
-		 (:file "misc" :depends-on ("sockets" "constants"))
-		 (:file "rt")
-		 (:file "def-to-lisp")
-		 (:file "tests" :depends-on ("inet" "rt"))))
-
diff --git a/systems/dhttp.system b/systems/dhttp.system
deleted file mode 100644
index 9d49eb59..00000000
--- a/systems/dhttp.system
+++ /dev/null
@@ -1,16 +0,0 @@
-;;; -*- Lisp -*-
-(in-package :user)
-(defsystem dhttp
-  :source-pathname #p"src:dhttp;"
-  :components ((:file "defpackage")
-               (:file "socket")
-               (:file "utilities")
-               (:file "exports" :depends-on ("utilities"))
-               (:file "html") (:file "auth") (:file "session")
-               (:file "request") ;(:file "object-request")
-               (:file "file-request")
-;               (:file "mail-request") 
-               (:file "daemon" :depends-on ("defpackage" "exports")))
-  :depends-on ("dan-barlow"))
-
-
diff --git a/systems/http-server.system b/systems/http-server.system
deleted file mode 100644
index 3a9440cf..00000000
--- a/systems/http-server.system
+++ /dev/null
@@ -1,38 +0,0 @@
-;;; -*- Lisp -*-
-(in-package :user)
-
-(defvar *processor* #+alpha "alpha" #+x86 "i386" nil)
-(defvar *system* "linux")
-(defvar *implementation* "cmucl")
-(defvar *proc-sys-impl*
-  (format nil "~A-~A-~A" *processor* *system* *implementation*))
-(defvar *impl-macros* 
-  (concatenate 'string *implementation* "-macros"))
-
-(defsystem http-server
-  :source-pathname #p"src:http-server;"
-  :components ((:file "defpackage")
-               ;; random convenience stuff
-               (:file "utilities")
-               ;; system dependencies
-               (:file #.*impl-macros*)
-               (:file #.*proc-sys-impl* :depends-on (#.*impl-macros*))
-               (:file #.*implementation*
-                      :depends-on (#.*proc-sys-impl* #.*impl-macros*))
-               (:file "pmp" :depends-on (#.*implementation*))
-               (:file "html")
-               (:file "url-class")
-               (:file "url" :depends-on ("utilities" "url-class"))
-               (:file "server-class")
-               (:file "server" :depends-on ("server-class" "url-class"))
-               (:file "exports"
-                      :depends-on ("defpackage" "utilities" "url"))
-               (:file "session" :depends-on ("request"))
-               (:file "request-class")
-               (:file "request" :depends-on ("url" "request-class") )
-               (:file "file-request" :depends-on ("pmp" "request"))
-               (:file "daemon"
-                      :depends-on ("url" "pmp" "defpackage" "exports" "request")))
-  :depends-on ("dan-barlow"))
-
-
diff --git a/systems/imap.system b/systems/imap.system
deleted file mode 100644
index 3378fcce..00000000
--- a/systems/imap.system
+++ /dev/null
@@ -1,7 +0,0 @@
-;;; -*- Lisp -*-
-(defsystem imap
-  :source-pathname #p"src:imap;"
-  :components ((:file "defpackage")
-               (:file "imap" :depends-on ("defpackage")))
-  :depends-on nil)
-
diff --git a/systems/istr.system b/systems/istr.system
deleted file mode 100644
index 8b9a9c26..00000000
--- a/systems/istr.system
+++ /dev/null
@@ -1,111 +0,0 @@
-;;; -*- Lisp -*-
-(in-package :cl-user)
-
-(load "/home/stargreen-http/src/telent/uncommonsql-1.0.2/dbms/mysql/system.lisp")
-
-(make:defsystem istr
-    :source-pathname #p"stargreen:istr;"
-    :components ((:file "defpackage") 
-                 ;; core
-                 (:file "utilities" :depends-on ("defpackage"))
-                 (:file "smtp")
-                 (:file "uncommonsql" :depends-on ("defpackage"))
-                 (:file "types" :depends-on ("defpackage"))
-                 (:file "istr-instance-class" :depends-on
-                        ("defpackage" "types" "uncommonsql"))
-                 (:file "object-system" :depends-on
-                        ("istr-instance-class" "utilities"))
-                 (:file "searches" :depends-on ("object-system"))
-                 (:file "rewrite-rules" :depends-on ("object-system"))
-                 (:file "pages" :depends-on ("object-system" "rewrite-rules"))
-                 
-                 (:file "admin-stylesheet" :depends-on ("pages"))
-                 (:file "admin-select-objects"
-                        :depends-on ("pages" "admin-stylesheet"))
-                 
-                 (:file "db" :depends-on ("uncommonsql"))
-                 (:file "stargreen" :depends-on ("defpackage"))
-                 ;;(:file "http-server" :depends-on ("defpackage"))
-                 (:file "handlers" :depends-on ("stargreen" #+nil "http-server"))
-                 
-                 ;; classes
-                 (:file "country-class"  :depends-on ("object-system"))
-                 (:file "user-class" :depends-on
-                        ("country-class" "object-system"))
-                 (:file "resource-class" :depends-on ("object-system"))
-                 
-                 (:file "artist-class"
-                        :depends-on ("object-system" "resource-class"))
-                 (:file "order-class" :depends-on
-                        ("artist-class" "creditcard-class" "event-class"
-                                        "locality-class" "venue-class"
-                                        "ticket-class" 
-                                        "user-class"))
-                 (:file "order-line-class" :depends-on
-                        ("order-class" "ticket-class" "artist-class"
-                                       "venue-class" "event-class"))
-                 
-                 (:file "creditcard-class"  :depends-on ("object-system"))
-                 (:file "event-class"  :depends-on
-                        ("object-system"  "venue-class" "artist-class"))
-                 (:file "artist-event-class" :depends-on
-                        ("artist-class" "event-class"))
-                 (:file "locality-class"  :depends-on ("object-system"))
-                 (:file "mail-alert-class" :depends-on ("object-system"))
-                 (:file "news-item-class" :depends-on ("object-system"))
-                 
-                 (:file "session-class" :depends-on ("order-class" "object-system"))
-                 (:file "ticket-class"
-                        :depends-on ("event-class" "object-system"))
-                 
-                 (:file "venue-class" :depends-on ("locality-class" "object-system"))
-                 
-                 (:file "artist" :depends-on ("artist-class"))
-                 (:file "session" :depends-on ("session-class"))
-                 (:file "country" :depends-on ("country-class"))
-                 (:file "creditcard" :depends-on ("creditcard-class" "date"))
-                 (:file "date"  :depends-on ("defpackage"))
-                 (:file "event"  :depends-on ("event-class"))
-               ;(:file "mail-alert" :depends-on ("mail-alert-class"))
-                 (:file "news-item" :depends-on ("news-item-class"))
-                 (:file "order" :depends-on
-                        ("order-line-class" "ticket-class" "event-class"
-                                            "smtp" "locality-class"))
-                 (:file "order-line" :depends-on ("order-line-class"))
-                 (:file "resource" :depends-on ("resource-class"))
-                 (:file "ticket" :depends-on ("ticket-class" "event-class"))
-                 (:file "user" :depends-on ("user-class"  "smtp"))
-                 (:file "venue" :depends-on ("venue-class"))
-
-                 (:file "relevant-instances" :depends-on ("order" "event" "date"))
-                 
-                 ;; pages
-                 (:file "address-page" :depends-on ("pages" "user"))
-                 (:file "about-us-page" :depends-on ("pages"))
-
-                 (:file "admin-menu-page" :depends-on ("pages"))
-                 (:file "stargreen-admin" :depends-on ("admin-menu-page" "order" "event" "order-line"))
-                 (:file "artist-page" :depends-on ("artist" "pages"))
-                 (:file "basket-page" :depends-on ("order" "session" "pages"))
-                 (:file "creditcard-page" :depends-on ("creditcard" "pages"))
-                 ;;(:file "email-alerts-page"
-                 ;;       :depends-on ("pages" "mail-alert"))
-                 (:file "event-page"
-                        :depends-on ("pages" "event"))
-                 (:file "front-page"
-                        :depends-on ("pages" "news-item" #+nil "event"))
-                 (:file "listing-page" :depends-on ("pages"))
-                 (:file "my-account-page" :depends-on ("pages")) 
-                 (:file "order-confirmation-page" :depends-on ("pages"))
-                 (:file "password-change-page" :depends-on ("pages"))
-                 (:file "password-reminder-page" :depends-on ("pages"))
-                 (:file "registration-page" :depends-on ("pages"))
-                 (:file "review-order-page" :depends-on ("pages"))
-                 (:file "search-page" :depends-on ("pages" "event" "date"))
-
-                 
-                 ;; fluff
-                 #+nil (:file "post-migration" :depends-on ("defpackage")))
-  :depends-on (araneida uncommonsql xml uncommonsql-mysql))
-  ;;:depends-on (araneida maisql xml maisql-mysql))
-
diff --git a/systems/maisql-mysql.system b/systems/maisql-mysql.system
deleted file mode 100644
index 76146994..00000000
--- a/systems/maisql-mysql.system
+++ /dev/null
@@ -1,39 +0,0 @@
-;;; -*- Mode: Lisp -*-
-;;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
-;;;; This is copyrighted software.  See documentation for terms.
-;;;; 
-;;;; MaiSQL.system --- System definition for MaiSQL-MySQL
-;;;; 
-;;;; Checkout Tag: $Name:  $
-;;;; $Id: maisql-mysql.system,v 1.1 2001/08/01 17:52:52 dan_b Exp $
-
-#+CLISP
-(in-package "USER")
-#-CLISP
-(in-package :CL-USER)
-
-;;; System definition
-
-(defsystem "MaiSQL-MySQL"
-    :source-pathname "onshore:uncommonsql;dbms;mysql"
-    :source-extension "lisp"
-    :binary-pathname nil
-    :binary-extension nil
-    :components
-    ((:file "mysql-package")
-     (:file "mysql-loader"
-	    :depends-on ("mysql-package"))
-     (:file "mysql"
-	    :depends-on ("mysql-package"
-			 "mysql-loader"))
-     (:file "mysql-sql"
-	    :depends-on ("mysql"))
-     )
-    :depends-on ("MaiSQL")
-    )
-
-;(oos "MaiSQL-MySQL" :compile)
-
-
-
-
diff --git a/systems/maisql.system b/systems/maisql.system
deleted file mode 100644
index 76f9f3f8..00000000
--- a/systems/maisql.system
+++ /dev/null
@@ -1,54 +0,0 @@
-;;; -*- Mode: Lisp -*-
-;;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
-;;;; This is copyrighted software.  See documentation for terms.
-;;;; 
-;;;; MaiSQL.system --- System definition for MaiSQL
-;;;; 
-;;;; Checkout Tag: $Name:  $
-;;;; $Id: maisql.system,v 1.1 2001/08/01 17:52:52 dan_b Exp $
-
-#+CLISP
-(in-package "USER")
-#-CLISP
-(in-package :CL-USER)
-
-;;; System definition for MaiSQL
-
-(mk:defsystem "MaiSQL"
-    :source-pathname "onshore:uncommonsql;"
-    :source-extension "lisp"
-    :binary-pathname nil
-    :binary-extension nil
-    :components ((:file "sql;package")
-		 (:module core
-			  :source-pathname "sql;"
-			  :components ((:file "dbms-interface")
-				       (:file "classes")
-				       (:file "operations"
-					      :depends-on ("classes"))
-				       (:file "syntax")
-				       (:file "sql"
-					      :depends-on ("syntax"
-							   "classes")))
-			  :depends-on ("sql;package"))
-		 (:module syntax
-			  :source-pathname "sql;"
-			  :components ((:file "table")
-				       (:file "conditions")
-				       (:file "recording")
-				       (:file "transaction"))
-			  :depends-on (core))
-		 (:module object
-			  :source-pathname "sql;"
-			  :components ((:file "metaclasses")
-				       (:file "objects"
-					      :depends-on ("metaclasses"))
-                                       (:file "schema"))
-			  :depends-on (syntax))
-		 (:module dbms-load
-			  :source-pathname ""
-			  :components ((:file "dbms-loader"))
-			  :depends-on (core)))
-    :finally-do (pushnew :sql *features*))
-
-
diff --git a/systems/net-telent-date.system b/systems/net-telent-date.system
deleted file mode 100644
index 6049c768..00000000
--- a/systems/net-telent-date.system
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; -*-  Lisp -*-
-
-(in-package :cl-user)
-
-(make:defsystem net-telent-date
-  :source-pathname  #p"cl-library:net-telent-date;"
-  :components ((:file "defpackage")
-               (:file "date" :depends-on ("defpackage"))
-	       (:file "parse-time" :depends-on ("defpackage"))))
diff --git a/systems/net-telent-pcre.system b/systems/net-telent-pcre.system
deleted file mode 100644
index c37007c7..00000000
--- a/systems/net-telent-pcre.system
+++ /dev/null
@@ -1,11 +0,0 @@
-;;; -*-  Lisp -*-
-
-(in-package :cl-user)
-
-
-(make:defsystem net-telent-pcre
-  :source-pathname "cl-library:net-telent-pcre;"
-  :components ((:file "defpackage")               
-               (:file "pcre" :depends-on ("defpackage" ))))
-
-
diff --git a/systems/rinaldo.system b/systems/rinaldo.system
deleted file mode 100644
index b623e406..00000000
--- a/systems/rinaldo.system
+++ /dev/null
@@ -1,101 +0,0 @@
-;;; -*- Lisp -*-
-(in-package :user)
-
-;;; all per-host configuration is done in e.g kenya_pentacom_co_uk.lisp
-;;; - at least, nearly all
-
-(defvar *rinaldo-host-name*
-  (ext:host-entry-name (ext:lookup-host-entry (unix:unix-gethostname))))
-(defvar *rinaldo-configuration*
-  (substitute #\- #\.
-              (if (boundp '*config-tag*)
-                  (format nil "~A-~A" *rinaldo-host-name* *config-tag*)
-                *rinaldo-host-name*)))
-
-
-(defsystem rinaldo
-  :source-pathname #.(translate-logical-pathname #p"stargreen:rinaldo;")
-  :components ((:file "dhttp")          ;dhttp glue
-               (:file "defpackage" :depends-on
-                      ("dhttp"))               
-               (:file "default-configuration" :depends-on ("defpackage"))
-               (:file #.*rinaldo-configuration*
-                      :depends-on ("default-configuration"))
-               ;; core stuff
-               (:file "smtp")           ;pretty standalone, this
-               (:file "utilities" :depends-on ("defpackage"))
-               (:file "rinaldo" :depends-on
-                      (#.*rinaldo-configuration* "utilities" "defpackage"))
-               (:file "html-bits" :depends-on ("rinaldo"))
-               (:file "mop" :depends-on
-                      ("defpackage" "utilities" #+nil "users"))
-               (:file "db" :depends-on ("mop"))
-               (:file "searching" :depends-on ("mop" "db" "defpackage"))
-               (:file "country-class")
-               (:file "address-class")
-               (:file "user-class")
-               (:file "country" :depends-on ("country-class"))
-               (:file "address" :depends-on ("address-class" "country-class"))
-               (:file "users" :depends-on
-                      ("mop" "searching" "address-class" "user-class"))
-               (:file "styles" :depends-on ("defpackage"))
-               (:file "idle" :depends-on ("mop"))
-               
-               ;; admin system
-               (:file "admin-stylesheet" :depends-on ("mop" "defpackage"))
-               (:file "edit-object" :depends-on
-                      ("defpackage" "admin-stylesheet"))
-               (:file "edit-objects" :depends-on
-                      ("defpackage" "admin-stylesheet"))
-               (:file "edit" :depends-on
-                      ("defpackage" "admin-stylesheet"))
-               (:file "edit-class" :depends-on
-                      ("defpackage" "admin-stylesheet"))
-               (:file "stargreen-admin" :depends-on
-                      ("defpackage" "admin-stylesheet" "transactions"
-                       "stargreen-classes" "bid-offer"))
-               (:file "admin-stuff" :depends-on
-                      ("admin-stylesheet"
-                       #+nil "addressable-objects" "initial-db"))
-                              
-               ;; end-user system
-               (:file "bundled-classes" :depends-on
-                      ("mop" "defpackage" "searching"))
-               (:file "bid-offer" :depends-on ("bundled-classes"))
-               (:file "creditcard" :depends-on ("users"))
-               (:file "transactions" :depends-on ("bundled-classes"))
-               
-               ;; handlers
-               ;;(:file "addressable-objects" :depends-on ("bundled-classes"))
-               (:file "ooplemod" :depends-on ("bundled-classes"))
-               (:file "xmls-handler" :depends-on
-                      ("defpackage" "mop" "ooplemod"))
-               (:file "ooplesearch"
-                      :depends-on ("bundled-classes" "ooplemod"))
-               ;(:file "basket" :depends-on ("bundled-classes"))
-               (:file "delivery-handler" :depends-on ("bundled-classes"))
-               (:file "register" :depends-on
-                      ("mop" "smtp" "defpackage" "address"))
-               (:file "login" :depends-on ("register"))
-               (:file "payment-handler" :depends-on ("bundled-classes"))
-               ;(:file "session" :depends-on ("bundled-classes"))
-               (:file "single-item" :depends-on ("bundled-classes"))
-               ;; data
-               (:file "initial-db" :depends-on
-                      ("bundled-classes" "mop"))
-               ;; customers
-               (:file "stargreen-delivery" :depends-on
-                      ("initial-db"))
-               ;; stargreen files which will one day be in the store not
-              ;; in files, so won't need loading this way
-               (:file "stargreen-classes" :depends-on ("initial-db"))
-               (:file "stargreen-ooplemod"
-                      :depends-on ("stargreen-classes" "ooplemod"))
-               (:file "stargreen-exports" :depends-on ("exports"))
-               (:file "stargreen-mail" :depends-on ("stargreen-ooplemod"))
-               ;;; the export list
-               (:file "exports" :depends-on ("initial-db")))
-  :depends-on (dan-barlow xml http-server maisql maisql-mysql))
-
-
-
diff --git a/systems/telentweb.system b/systems/telentweb.system
deleted file mode 100644
index 1ca30d3e..00000000
--- a/systems/telentweb.system
+++ /dev/null
@@ -1,14 +0,0 @@
-;;; -*- Lisp -*-
-(in-package :cl-user)
-
-(defvar *per-host-configuration*
-  (substitute #\- #\. (machine-instance)))
-
-(make:defsystem telentweb
-  :depends-on (ARANEIDA araneida-examples cliki)
-  :source-pathname  #p"telent:telentweb;"
-  :components ((:file "defpackage")               
-               (:file "configuration"
-                      :source-pathname #.*per-host-configuration*)
-               (:file "main" :depends-on ("defpackage" "configuration"))))
-
diff --git a/systems/todo.system b/systems/todo.system
deleted file mode 100644
index 0fbe6ef7..00000000
--- a/systems/todo.system
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; -*- Lisp -*-
-(in-package :user)
-(defsystem todo
-  :depends-on (rinaldo)
-  :source-pathname #.(translate-logical-pathname #p"src:todo;")
-  :components ((:file "defpackage")               
-               (:file "todo-class" :depends-on ("defpackage"))
-               (:file "todo" :depends-on ("todo-class"))))
-
diff --git a/systems/xml.system b/systems/xml.system
deleted file mode 100644
index edbb7fcc..00000000
--- a/systems/xml.system
+++ /dev/null
@@ -1,9 +0,0 @@
-;;; -*- Lisp -*-
-(in-package :user)
-(defsystem xml
-;  :depends-on (dhttp)
-  :source-pathname #p"src:xml;"
-  :components ((:file "defpackage")
-               (:file "memoization" :depends-on ("defpackage"))
-               (:file "xml" :depends-on ("memoization" "defpackage"))))
-
diff --git a/systems/xmltools.system b/systems/xmltools.system
deleted file mode 100644
index 2fa9cdfb..00000000
--- a/systems/xmltools.system
+++ /dev/null
@@ -1,8 +0,0 @@
-;;; -*- Lisp -*-
-(in-package :cl-user)
-
-(make:defsystem xmltools
-  :source-pathname #p"telent:allegro-xmltools;"
-  :components ((:file "defpackage")               
-               (:file "ifstar" :depends-on ("defpackage"))
-               (:file "phtml" :depends-on ("ifstar"))))
-- 
GitLab