Commit 04855109 authored by Eric Timmons's avatar Eric Timmons
Browse files

Use PARSE-SOURCE-REGISTRY-STRING to parse inherited source registry from env

parent 8166a804

client/context.lisp

+2 −1
Changes for client/context.lisp: 2 added lines, 1 removed line.
Original line number Diff line number Diff line
@@ -50,7 +50,8 @@ variables." 
            (setf *active-context-splice-source-registry* nil))

          (progn

            (setf *active-context-ignore-inherited-source-registry* nil)

            (setf *active-context-splice-source-registry* (uiop:getenvp "CLPM_EXEC_SPLICE_INHERITED_SOURCE_REGISTRY")))))))

            (setf *active-context-splice-source-registry* (asdf/source-registry:parse-source-registry-string

                                                           (uiop:getenvp "CLPM_EXEC_SPLICE_INHERITED_SOURCE_REGISTRY"))))))))

(uiop:register-image-restore-hook 'configure-from-env)



(defun clear-active-context ()