Skip to content
Browse files

qi: fix install-global for cd68ae9

  • Loading branch information...
dunn committed Dec 10, 2016
1 parent d066ba1 commit 0382d853f173fba8f0615d4b05b54feccf4f3751
Showing with 26 additions and 6 deletions.
  1. +1 −0 qi-test.asd
  2. +13 −6 src/qi.lisp
  3. +12 −0 t/qi_test.lisp
@@ -20,6 +20,7 @@
(:test-file "manifest_test")
(:test-file "packages_test")
(:test-file "util_test")
(:test-file "qi_test")
:description "Test system for qi"

@@ -60,11 +60,17 @@ be made available in the current lisp session. To make the system available from
another lisp session, use (qi:up <system>)."
(bootstrap :qi)
:name (qi.util:sym->str system)
:version version))
(asdf:load-system system)
(let* ((name-string (qi.util:sym->str system))
(package (manifest-get-by-name name-string)))
(make-manifest-dependency :name name-string
:url (manifest-package-url package)
:download-strategy (download-strategy
(manifest-package-url package))
:version version)))
#+sbcl (sb-ext:without-package-locks (asdf:load-system system))
#-sbcl (asdf:load-system system)

(defun up (system)
"Load <system> and make it available in the current lisp session."
@@ -148,7 +154,8 @@ be in the CWD that specifies <project>'s dependencies."
(dispatch-dependency dep)
(error (format t "~%---X Cannot resolve dependency type")))))
(asdf:oos 'asdf:load-op name :verbose nil))

(defun dependency-report ()
@@ -0,0 +1,12 @@
(in-package :cl-user)
(defpackage qi-test-qi
(:use :cl
(in-package :qi-test-packages)

(plan 1)

(ok (qi:install-global :yason))


0 comments on commit 0382d85

Please sign in to comment.
You can’t perform that action at this time.