Commit 9271dd71 authored by Eric Timmons's avatar Eric Timmons
Browse files

cli less work: client rc

parent 74761f6a
......@@ -8,11 +8,11 @@
#:clpm-cli/common-args
#:clpm-cli/commands/client/common
#:clpm-cli/interface-defs
#:clpm/client
#:named-readtables)
(:import-from #:uiop
#:*stdout*)
(:import-from #:cl-interpol))
(:import-from #:cl-interpol)
(:import-from #:clpm))
(in-package #:clpm-cli/commands/client/rc)
......@@ -42,8 +42,8 @@
#-clpm-client
(progn
(when (probe-file #p\"${(client-asd-pathname)}\")
(asdf:load-asd #p\"${(client-asd-pathname)}\")
(when (probe-file #p\"${(clpm:client-asd-pathname)}\")
(asdf:load-asd #p\"${(clpm:client-asd-pathname)}\")
(asdf:load-system \"clpm-client\")
(setf (symbol-value (uiop:find-symbol* :*asdf-system-not-found-behavior* :clpm-client)) :install)
(if (uiop:symbol-call :clpm-client :active-context)
......@@ -57,8 +57,8 @@
#-clpm-client
(progn
(when (probe-file #p\"${(client-asd-pathname)}\")
(asdf:load-asd #p\"${(client-asd-pathname)}\")
(when (probe-file #p\"${(clpm:client-asd-pathname)}\")
(asdf:load-asd #p\"${(clpm:client-asd-pathname)}\")
(asdf:load-system \"clpm-client\")
(if (uiop:symbol-call :clpm-client :active-context)
(uiop:symbol-call :clpm-client :activate-asdf-integration)
......
......@@ -7,6 +7,7 @@
(:nicknames #:clpm)
(:use #:cl
#:clpm/bundle
#:clpm/client
#:clpm/config
#:clpm/context
#:clpm/context-diff
......@@ -16,6 +17,8 @@
#:clpm/sync
#:clpm/update
#:clpm/version)
;; From client
(:export #:client-asd-pathname)
;; From config
(:export #:config-value)
;; From exec
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment