From 91e1eb9bf83e879fff123c9a7863ef52a0d406ae Mon Sep 17 00:00:00 2001 From: Gary King Date: Mon, 24 Apr 2006 22:35:03 -0400 Subject: [PATCH] Lower-cased package names in defsystem darcs-hash:20060425023503-3cc5d-e9fbe8020caf64312396223db2568b08aed2d1af.gz --- cl-graph.asd | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 1.7.10.4