Skip to content
Snippets Groups Projects
Commit 88d145b7 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Update inferior-shell for optima change of typep -> type.

Also fix defsystem.
parent 6b3880da
No related branches found
No related tags found
No related merge requests found
...@@ -2,8 +2,8 @@ ...@@ -2,8 +2,8 @@
(defsystem :inferior-shell (defsystem :inferior-shell
:defsystem-depends-on (:asdf-condition-control) :defsystem-depends-on (:asdf-condition-control)
:depends-on (:asdf :xcvb-utils :fare-quasiquote-extras :fare-mop :alexandria :depends-on (:asdf :xcvb-utils :fare-quasiquote-extras :fare-mop
#+sbcl :sb-posix) #+sbcl :sb-posix)
:description "spawn local or remote processes and shell pipes" :description "spawn local or remote processes and shell pipes"
:components :components
((:file "pkgdcl") ((:file "pkgdcl")
......
...@@ -317,7 +317,7 @@ ...@@ -317,7 +317,7 @@
(`(quote ,@args) ;; quote (`(quote ,@args) ;; quote
(e (xcvb-driver:escape-command (e (xcvb-driver:escape-command
(parse-command-spec-tokens args)))) (parse-command-spec-tokens args))))
(`(,(typep simple-command-line-token) ,@_) ;; recurse (`(,(type simple-command-line-token) ,@_) ;; recurse
(map () #'p x)) (map () #'p x))
(_ (_
(error "Unrecognized command-spec token ~S" x))))) (error "Unrecognized command-spec token ~S" x)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment