diff options
| -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))) |