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

cli less work: client rc

parent 74761f6a

cli/commands/client/rc.lisp

+6 −6
Original line number Diff line number Diff line
@@ -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)

clpm/clpm.lisp

+3 −0
Original line number Diff line number Diff line
@@ -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