Removed GLU system definitions

darcs-hash:20061217183023-3cc5d-04008d5135c80ce8169b0ba7bf4ae35be766fcff.gz

diff --git a/dev/cl-graph.system b/dev/cl-graph.system
deleted file mode 100644 (file)
index 436ff68..0000000
--- a/dev/cl-graph.system
+++ /dev/null
@@ -1,72 +0,0 @@
-;;; -*- Mode: Lisp; package: CL-USER; Syntax: Common-lisp; Base: 10 -*-
-
-#|
-
-Copyright 199?-2002 Experimental Knowledge Systems Lab, University of Massachusetts Amherst
-Professor Paul Cohen, Director
-
-Author: Westy, et. al.  (most recent working over by Gary King, Brent Heeringa, Louis Theran)
-
-|#
-
-(in-package :COMMON-LISP-USER)
-
-;;; ---------------------------------------------------------------------------
-;;; glu Utilities
-;;; ---------------------------------------------------------------------------
-
-(glu-define-logical-pathname-translations (cl-graph)
-  (source)
-  (utils (:back :back "utils" "dev"))
-  (lift  (:back :back "lift" "dev")))
-
-;;; ---------------------------------------------------------------------------
-
-(setf (glu-system-source-file 'lift)
-      "cl-graph:lift;lift.system")
-
-
-;;; ---------------------------------------------------------------------------
-;;; system definition 
-;;; ---------------------------------------------------------------------------
-
-(define-glu-system :cl-graph 
-  ((("package"
-
-     "macros"
-     "graph"
-     "graph-container"
-     "graph-matrix"
-     "graph-metrics"
-     #+NotYet "graph-generation"
-     "graph-algorithms"
-     "graphviz-support"))
-   
-   ;; associates
-   (("notes")
-    :associates? t))
-  
-  :base-dir "cl-graph:source;"
-  :bin-identifiers (:platform :vendor)
-  :include-in-menu nil
-  :top-level nil
-  :depends-on (:metatilities :cl-containers metabang.bind :cl-mathstats)
-  :test-system :test-cl-graph)
-
-;;; ---------------------------------------------------------------------------
-
-(define-glu-system :test-cl-graph 
-  ("test-graph"
-   "test-graph-container"
-   "test-graph-metrics"
-   "test-graph-algorithms")
-  :base-dir "cl-graph:source;"
-  :bin-identifiers (:platform :vendor)
-  :include-in-menu nil
-  :top-level nil
-  :depends-on (:cl-graph))
-
-
-;;; ***************************************************************************
-;;; *                              End of File                                *
-;;; ***************************************************************************

diff --git a/dev/load-glu.lisp b/dev/load-glu.lisp
deleted file mode 100644 (file)
index 4cd5864..0000000
--- a/dev/load-glu.lisp
+++ /dev/null
@@ -1,84 +0,0 @@
-(in-package :COMMON-LISP-USER)
-
-;;; ---------------------------------------------------------------------------
-
-#-EKSL-GENERIC-LOAD-UTILS
-(let (#+MCL (*warn-if-redefine* nil))
-  (defun current-load-pathname ()
-    #+lucid lcl:*source-pathname*
-    #+allegro excl:*source-pathname*
-    #+(or Genera Explorer) sys:fdefine-file-pathname
-    #+MCL (if *load-truename* 
-            *load-truename*
-            ;; This makes it work in a fred buffer...
-            *loading-file-source-file*)
-    #-(or lucid allegro Genera Explorer MCL)
-    *load-truename*)
-  
-  ;;; ---------------------------------------------------------------------------
-  
-  (setf (logical-pathname-translations "GLU")
-        (list (list "GLU:ROOT;**;*.*.*" 
-                    (directory-namestring 
-                     (make-pathname
-                      :directory (append
-                                  (pathname-directory (current-load-pathname))
-                                  (list :wild-inferiors)))))))
-  
-  ;;; ---------------------------------------------------------------------------
-  
-  (defun eksl-load-if-exists (filespec &rest args &key (verbose t) &allow-other-keys)
-    (when (and filespec (probe-file filespec))
-      (apply #'load filespec :verbose verbose args)
-      (values t)))
-  
-  ;;; ---------------------------------------------------------------------------
-  
-  (defun load-sibling (name &rest args &key (verbose t) &allow-other-keys)
-    "Load the file named 'name' that lives in the same folder as THIS file."
-    (apply #'eksl-load-if-exists
-           (merge-pathnames name (current-load-pathname))
-           :verbose verbose
-           args))
-  
-  ;;; ---------------------------------------------------------------------------
-  
-  (defun canonical-glu-file ()
-    (let ((current-directory (and (current-load-pathname)
-                                  (pathname-directory (current-load-pathname)))))
-      (when current-directory
-        (make-pathname 
-         :directory (append
-                     (butlast current-directory 2)
-                     (list "GENERIC-LOAD-UTILITIES" "DEV"))
-         :name "generic-load-utils"
-         :type "lisp"))))
-  
-  ;;; ---------------------------------------------------------------------------
-  
-  (defun load-in-canonical-place ()
-    (eksl-load-if-exists (canonical-glu-file))) 
-  
-  
-  ;;; ---------------------------------------------------------------------------
-  
-  (defun load-glu ()
-    "Attempt to load generic-load-utilities.lisp"
-    (or 
-     ;; Try the 'canonical' one
-     (load-in-canonical-place)
-     ;; try right here
-     (load-sibling "generic-load-utils")
-     ;; give up
-     (warn "Unable to load generic-load-utilities. Please load it by hand before attempting to load or compile an EKSL load system.")))
-  
-  
-  ;;; ---------------------------------------------------------------------------
-  ;;; try to load generic utilities
-  ;;; ---------------------------------------------------------------------------
-  
-  (load-glu))
-
-;;; ***************************************************************************
-;;; *                              End of File                                *
-;;; ***************************************************************************
\ No newline at end of file