From c0b6bf830a7dc82917dc538ae2daec69df2b2ad9 Mon Sep 17 00:00:00 2001 From: Gary King Date: Sun, 17 Dec 2006 13:30:23 -0500 Subject: [PATCH] Removed GLU system definitions darcs-hash:20061217183023-3cc5d-04008d5135c80ce8169b0ba7bf4ae35be766fcff.gz --- dev/cl-graph.system | 72 ------------------------------------------- dev/load-glu.lisp | 84 --------------------------------------------------- 2 files changed, 156 deletions(-) delete mode 100644 dev/cl-graph.system delete mode 100644 dev/load-glu.lisp diff --git a/dev/cl-graph.system b/dev/cl-graph.system deleted file mode 100644 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 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 -- 1.7.10.4