Fixing in-packages

darcs-hash:20060511190259-3cc5d-f71e22f65b3802905b02b01f96d7d5a76f8a0e90.gz

diff --git a/dev/api.lisp b/dev/api.lisp
index 5e0f672..8dccb44 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)))