-|#
-
-(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