diff options
-rw-r--r-- | src/connection/sbcl.lisp | 6 | ||||
-rw-r--r-- | src/data.lisp | 5 |
2 files changed, 6 insertions, 5 deletions
diff --git a/src/connection/sbcl.lisp b/src/connection/sbcl.lisp index 6848f5e..640854d 100644 --- a/src/connection/sbcl.lisp +++ b/src/connection/sbcl.lisp @@ -25,6 +25,12 @@ (debianlike (apt:installed "sbcl")))) (defmethod establish-connection ((type (eql :sbcl)) remaining &key) + (when (lisp-connection-p) + (warn + "Looks like you might be starting a fresh Lisp image directly from the root +Lisp. This can mean that prerequisite data gets extracted from encrypted +stores and stored unencrypted under ~~/.cache, and as such is not +recommended.")) (ignoring-hostattrs (sbcl-available)) (request-lisp-systems) (upload-all-prerequisite-data) diff --git a/src/data.lisp b/src/data.lisp index 52bc652..b6feb34 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -254,11 +254,6 @@ calling CONTINUE-DEPLOY* or CONTINUE-DEPLOY*-PROGRAM will need their own implementation.")) (defmethod connection-upload ((connection connection) (data data)) - (when (subtypep (class-of connection) - 'consfigurator.connection.local:local-connection) - (error - "Attempt to upload data to the root Lisp or reupload to remote Lisp. -This is not allowed for security reasons.")) (flet ((upload (from to) (with-open-file (stream from :element-type '(unsigned-byte 8)) (writefile to stream)))) |