Loading cli/commands/client/rc.lisp +6 −9 Original line number Diff line number Diff line Loading @@ -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) Loading @@ -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) Loading Loading
cli/commands/client/rc.lisp +6 −9 Original line number Diff line number Diff line Loading @@ -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) Loading @@ -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) Loading