From: Gary King <gwking@metabang.com>
Date: Tue, 25 Apr 2006 02:35:03 +0000 (-0400)
Subject: Lower-cased package names in defsystem
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-graph.git;a=commitdiff_plain;h=91e1eb9bf83e879fff123c9a7863ef52a0d406ae

Lower-cased package names in defsystem

darcs-hash:20060425023503-3cc5d-e9fbe8020caf64312396223db2568b08aed2d1af.gz
---

diff --git a/cl-graph.asd b/cl-graph.asd
index c1e13b4..d0e14b5 100644
--- a/cl-graph.asd
+++ b/cl-graph.asd
@@ -5,13 +5,13 @@
 |#
 
 (in-package :common-lisp-user)
-(defpackage "ASDF-CL-GRAPH" (:use #:cl #:asdf))
-(in-package "ASDF-CL-GRAPH")
+(defpackage #:asdf-cl-graph (:use #:cl #:asdf))
+(in-package #:asdf-cl-graph)
 
 (unless (find-system 'asdf-system-connections nil)
  (when (find-package 'asdf-install)
    (print "Trying to install asdf-system-connections with ASDF-Install...")
-   (funcall (intern "INSTALL" "ASDF-INSTALL") 'asdf-system-connections)))
+   (funcall (intern (symbol-name :install) :asdf-install) 'asdf-system-connections)))
 ;; give up with a useful (?) error message
 (unless (find-system 'asdf-system-connections nil)
   (error "The CL-Graph system requires ASDF-SYSTEM-CONNECTIONS. See