From: Gary King Date: Thu, 11 May 2006 19:02:59 +0000 (-0400) Subject: Fixing in-packages X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-graph.git;a=commitdiff_plain;h=1fe64e8b966450697100fae6ec35cc5688a88bd6 Fixing in-packages darcs-hash:20060511190259-3cc5d-f71e22f65b3802905b02b01f96d7d5a76f8a0e90.gz --- diff --git a/dev/api.lisp b/dev/api.lisp index 5e0f672..8dccb44 100644 --- a/dev/api.lisp +++ b/dev/api.lisp @@ -1,4 +1,4 @@ -(in-package cl-graph) +(in-package #:cl-graph) ;;; --------------------------------------------------------------------------- diff --git a/dev/copying.lisp b/dev/copying.lisp index e20961a..ad94e3a 100644 --- a/dev/copying.lisp +++ b/dev/copying.lisp @@ -1,4 +1,4 @@ -(in-package cl-graph) +(in-package #:cl-graph) (metacopy:defcopy-methods basic-vertex :copy-all t) diff --git a/dev/examples/basic-graph-manipulation.lisp b/dev/examples/basic-graph-manipulation.lisp index b93f5f0..8e60da2 100644 --- a/dev/examples/basic-graph-manipulation.lisp +++ b/dev/examples/basic-graph-manipulation.lisp @@ -1,4 +1,4 @@ -(in-package cl-graph) +(in-package #:cl-graph) ;;; make a simple graph (let ((g (make-container 'graph-container))) diff --git a/dev/examples/class-hierarchy-to-dot.lisp b/dev/examples/class-hierarchy-to-dot.lisp index e70380a..0cc5f32 100644 --- a/dev/examples/class-hierarchy-to-dot.lisp +++ b/dev/examples/class-hierarchy-to-dot.lisp @@ -1,4 +1,4 @@ -(in-package metabang.graph) +(in-package #:metabang.graph) (defun roots-and-child-function->graph (roots child-function max-depth) (let ((g (make-graph 'graph-container))) diff --git a/dev/examples/delicious-graphs.lisp b/dev/examples/delicious-graphs.lisp index 7497bc1..9557bdf 100644 --- a/dev/examples/delicious-graphs.lisp +++ b/dev/examples/delicious-graphs.lisp @@ -1,4 +1,4 @@ -(in-package metatilities) +(in-package #:metatilities) #| color by tag weight diff --git a/dev/graph-algorithms.lisp b/dev/graph-algorithms.lisp index 6230047..b3df889 100644 --- a/dev/graph-algorithms.lisp +++ b/dev/graph-algorithms.lisp @@ -1,4 +1,4 @@ -(in-package metabang.graph) +(in-package #:metabang.graph) ;;; --------------------------------------------------------------------------- ;;; diff --git a/dev/graph-and-variates.lisp b/dev/graph-and-variates.lisp index 82d0e55..be43e6f 100644 --- a/dev/graph-and-variates.lisp +++ b/dev/graph-and-variates.lisp @@ -1,4 +1,4 @@ -(in-package cl-user) +(in-package #:cl-user) #+Ignore (shadowing-import diff --git a/dev/graph-container.lisp b/dev/graph-container.lisp index b5305d9..c856db0 100644 --- a/dev/graph-container.lisp +++ b/dev/graph-container.lisp @@ -9,7 +9,7 @@ DISCUSSION |# -(in-package metabang.graph) +(in-package #:metabang.graph) ;;; --------------------------------------------------------------------------- ;;; class defs diff --git a/dev/graph-generation.lisp b/dev/graph-generation.lisp index 1638596..cf983a0 100644 --- a/dev/graph-generation.lisp +++ b/dev/graph-generation.lisp @@ -1,4 +1,4 @@ -(in-package metabang.graph) +(in-package #:metabang.graph) (eval-when (:compile-toplevel :load-toplevel :execute) (export '(generate-gnp diff --git a/dev/graph-matrix.lisp b/dev/graph-matrix.lisp index 30982cc..8f5bb4d 100644 --- a/dev/graph-matrix.lisp +++ b/dev/graph-matrix.lisp @@ -16,7 +16,7 @@ CtF uses an adj list (vector of edges with lists) or adj matrix (vector with vec I think I'd like a numeric class and then a object one... maybe someday |# -(in-package metabang.graph) +(in-package #:metabang.graph) ;;; --------------------------------------------------------------------------- diff --git a/dev/graph-metrics.lisp b/dev/graph-metrics.lisp index 4a70726..df4c395 100644 --- a/dev/graph-metrics.lisp +++ b/dev/graph-metrics.lisp @@ -9,7 +9,7 @@ Author: Gary King DISCUSSION |# -(in-package metabang.graph) +(in-package #:metabang.graph) (defun vertex-degree-counts (g) diff --git a/dev/graph.lisp b/dev/graph.lisp index 7143e6c..c41e463 100644 --- a/dev/graph.lisp +++ b/dev/graph.lisp @@ -14,7 +14,7 @@ something is putting something on the vertexes plist's |# -(in-package metabang.graph) +(in-package #:metabang.graph) ;;; --------------------------------------------------------------------------- ;;; classes diff --git a/dev/graphviz/graphviz-support-optional.lisp b/dev/graphviz/graphviz-support-optional.lisp index f281576..cdc1626 100644 --- a/dev/graphviz/graphviz-support-optional.lisp +++ b/dev/graphviz/graphviz-support-optional.lisp @@ -13,7 +13,7 @@ loaded when cl-graphviz is available. |# -(in-package metabang.graph) +(in-package #:metabang.graph) ;; TODO these are hacks to be removed later, ;; the functionality should be provided by graph itself diff --git a/dev/graphviz/graphviz-support.lisp b/dev/graphviz/graphviz-support.lisp index fd68bbb..a8e7ee7 100644 --- a/dev/graphviz/graphviz-support.lisp +++ b/dev/graphviz/graphviz-support.lisp @@ -11,7 +11,7 @@ DISCUSSION This file contains the stuff that does not depend on cl-graphviz. |# -(in-package metabang.graph) +(in-package #:metabang.graph) ;;; --------------------------------------------------------------------------- ; diff --git a/dev/macros.lisp b/dev/macros.lisp index e38681e..b03a638 100644 --- a/dev/macros.lisp +++ b/dev/macros.lisp @@ -1,6 +1,6 @@ ;;;-*- Mode: Lisp; Package: metabang.graph -*- -(in-package metabang.graph) +(in-package #:metabang.graph) ;;?? Gary King 2006-01-30: ;;?? Face it, I have no idea why we need this anymore... but i'm sure we do diff --git a/dev/package.lisp b/dev/package.lisp index 21c7f39..e117799 100644 --- a/dev/package.lisp +++ b/dev/package.lisp @@ -7,7 +7,7 @@ Author: Gary King, et. al. DISCUSSION |# -(in-package common-lisp-user) +(in-package #:common-lisp-user) (defpackage #:cl-graph (:use #:common-lisp #:metatilities #:cl-containers diff --git a/unit-tests/package.lisp b/unit-tests/package.lisp index 750446c..e5441ab 100644 --- a/unit-tests/package.lisp +++ b/unit-tests/package.lisp @@ -1,4 +1,4 @@ -(in-package common-lisp-user) +(in-package #:common-lisp-user) (defpackage #:cl-graph-test (:use #:common-lisp #:cl-graph #:lift #:metatilities)) \ No newline at end of file diff --git a/unit-tests/test-connected-components.lisp b/unit-tests/test-connected-components.lisp index 0b0b16e..3cf6e68 100644 --- a/unit-tests/test-connected-components.lisp +++ b/unit-tests/test-connected-components.lisp @@ -1,4 +1,4 @@ -(in-package cl-graph-test) +(in-package #:cl-graph-test) (deftestsuite test-connected-component () ()) diff --git a/unit-tests/test-graph-algorithms.lisp b/unit-tests/test-graph-algorithms.lisp index 4502784..112fe38 100644 --- a/unit-tests/test-graph-algorithms.lisp +++ b/unit-tests/test-graph-algorithms.lisp @@ -1,4 +1,4 @@ -(in-package cl-graph-test) +(in-package #:cl-graph-test) (deftestsuite test-connected-components () ()) diff --git a/unit-tests/test-graph-container.lisp b/unit-tests/test-graph-container.lisp index 95ba3c0..0c1657b 100644 --- a/unit-tests/test-graph-container.lisp +++ b/unit-tests/test-graph-container.lisp @@ -1,4 +1,4 @@ -(in-package cl-graph-test) +(in-package #:cl-graph-test) ;;; --------------------------------------------------------------------------- ;;; utilities diff --git a/unit-tests/test-graph-metrics.lisp b/unit-tests/test-graph-metrics.lisp index f4d7216..3aa7a41 100644 --- a/unit-tests/test-graph-metrics.lisp +++ b/unit-tests/test-graph-metrics.lisp @@ -1,4 +1,4 @@ -(in-package cl-graph-test) +(in-package #:cl-graph-test) ;;; --------------------------------------------------------------------------- diff --git a/unit-tests/test-graph.lisp b/unit-tests/test-graph.lisp index 2cd3d82..a30df12 100644 --- a/unit-tests/test-graph.lisp +++ b/unit-tests/test-graph.lisp @@ -1,4 +1,4 @@ -(in-package cl-graph-test) +(in-package #:cl-graph-test) #| (let ((g (make-container 'graph-container)))