diff --git a/inferior-shell.asd b/inferior-shell.asd index fca23d8e9496e7975072798bd74d4e66680e654a..b7f9e106f44f6ed97bd4e1d554c2b0a5c411d1ef 100644 --- a/inferior-shell.asd +++ b/inferior-shell.asd @@ -2,8 +2,8 @@ (defsystem :inferior-shell :defsystem-depends-on (:asdf-condition-control) - :depends-on (:asdf :xcvb-utils :fare-quasiquote-extras :fare-mop :alexandria - #+sbcl :sb-posix) + :depends-on (:asdf :xcvb-utils :fare-quasiquote-extras :fare-mop + #+sbcl :sb-posix) :description "spawn local or remote processes and shell pipes" :components ((:file "pkgdcl") diff --git a/process-spec.lisp b/process-spec.lisp index ff52ea0552a315e8fcba00bf7e76828090ff32a7..b6fd1767ecdafa36a352646830d1b6d387914110 100644 --- a/process-spec.lisp +++ b/process-spec.lisp @@ -317,7 +317,7 @@ (`(quote ,@args) ;; quote (e (xcvb-driver:escape-command (parse-command-spec-tokens args)))) - (`(,(typep simple-command-line-token) ,@_) ;; recurse + (`(,(type simple-command-line-token) ,@_) ;; recurse (map () #'p x)) (_ (error "Unrecognized command-spec token ~S" x)))))