projects
/
cl-graph.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
14757e8
)
Lower-cased package names in defsystem
author
Gary King
<gwking@metabang.com>
Tue, 25 Apr 2006 02:35:03 +0000
(22:35 -0400)
committer
Gary King
<gwking@metabang.com>
Tue, 25 Apr 2006 02:35:03 +0000
(22:35 -0400)
darcs-hash:
20060425023503
-3cc5d-
e9fbe8020caf64312396223db2568b08aed2d1af
.gz
cl-graph.asd
patch
|
blob
|
history
diff --git
a/cl-graph.asd
b/cl-graph.asd
index
c1e13b4
..
d0e14b5
100644
(file)
--- a/
cl-graph.asd
+++ b/
cl-graph.asd
@@
-5,13
+5,13
@@
|#
(in-package :common-lisp-user)
|#
(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...")
(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
;; give up with a useful (?) error message
(unless (find-system 'asdf-system-connections nil)
(error "The CL-Graph system requires ASDF-SYSTEM-CONNECTIONS. See