diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 08:48:17 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 08:48:22 -0700 |
commit | 93ec1ac8188e81bcd505776273aa181cb13be9a7 (patch) | |
tree | 741a94c703f11d613a0306d61be93723fce7112a | |
parent | 9f941b0d27c0892a6aa7481c26dd6f67981736f9 (diff) | |
download | consfigurator-93ec1ac8188e81bcd505776273aa181cb13be9a7.tar.gz |
update iden1 values
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/connection/debian-sbcl.lisp | 2 | ||||
-rw-r--r-- | src/data/asdf.lisp | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/connection/debian-sbcl.lisp b/src/connection/debian-sbcl.lisp index 43a7205..7befb47 100644 --- a/src/connection/debian-sbcl.lisp +++ b/src/connection/debian-sbcl.lisp @@ -27,7 +27,7 @@ ;; any connection type which starts up a Lisp connection is going to want to ;; do something like what this loop does, so just make it a core function? ;; (loop for system in (slot-value (slot-value *host* :hostattrs) :systems) - ;; do (push (cons "lisp-system" system) (getf *host* :data))) + ;; do (push (cons "--lisp-system" system) (getf *host* :data))) (unless (= 0 (nth-value 1 (run "which" "sbcl" "2>/dev/null" "||" "apt-get" "-y" "install" "sbcl"))) diff --git a/src/data/asdf.lisp b/src/data/asdf.lisp index fee169e..27ea41a 100644 --- a/src/data/asdf.lisp +++ b/src/data/asdf.lisp @@ -33,7 +33,7 @@ (cons #'asdf-data-source-check #'get-path-to-concatenated-system)) (defun asdf-data-source-check (iden1 system) - (when (and (string= iden1 "lisp-system") + (when (and (string= iden1 "--lisp-system") (asdf:find-system system nil)) (get-universal-time))) |