-|#
-
-(in-package :common-lisp-user)
-(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)))
-;; give up with a useful (?) error message
-(unless (find-system 'asdf-system-connections nil)
- (error "The CL-Graph system requires ASDF-SYSTEM-CONNECTIONS. See
+(unless (or (member :asdf-system-connections *features*)
+ (find-system 'asdf-system-connections nil))
+ (warn "The CL-Graph system would enjoy having asdf-system-connections
+around. See