From 88d145b75977b9e014c1d72e525ec4f59fce89ff Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Sun, 9 Dec 2012 19:30:00 -0500 Subject: [PATCH] Update inferior-shell for optima change of typep -> type. Also fix defsystem. --- inferior-shell.asd | 4 ++-- process-spec.lisp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/inferior-shell.asd b/inferior-shell.asd index fca23d8..b7f9e10 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 ff52ea0..b6fd176 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))))) -- GitLab