-|#
-
-(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 (symbol-name :install) :asdf-install) 'asdf-system-connections)))
-;; give up with a useful (?) error message