Commit 710a1d92 authored by Eric Timmons's avatar Eric Timmons
Browse files

Cleanup client rc

parent 507d74a0
Loading
Loading
Loading
Loading
+6 −9
Original line number Diff line number Diff line
@@ -39,11 +39,10 @@
;;; on demand).

(require \"asdf\")

#-clpm-client
(progn
  (when (probe-file #p\"${(clpm:client-asd-pathname)}\")
    (asdf:load-asd #p\"${(clpm:client-asd-pathname)}\")
(let ((client-asd-pathname #p\"${(clpm:client-asd-pathname)}\"))
  (when (probe-file client-asd-pathname)
    (asdf:load-asd 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)
@@ -52,13 +51,11 @@

(defun default-rc ()
  #?";;; Use CLPM with default configuration to install systems on demand.

(require \"asdf\")

#-clpm-client
(progn
  (when (probe-file #p\"${(clpm:client-asd-pathname)}\")
    (asdf:load-asd #p\"${(clpm:client-asd-pathname)}\")
(let ((client-asd-pathname #p\"${(clpm:client-asd-pathname)}\"))
  (when (probe-file client-asd-pathname)
    (asdf:load-asd client-asd-pathname)
    (asdf:load-system \"clpm-client\")
    (if (uiop:symbol-call :clpm-client :active-context)
        (uiop:symbol-call :clpm-client :activate-asdf-integration)