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

Cleanup client rc

parent 507d74a0
......@@ -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)
......
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