Remove package prefixing. Be ready for next ASDF.
authorFrancois-Rene Rideau <tunes@google.com>
Sat, 12 Jan 2013 07:20:02 +0000 (02:20 -0500)
committerFrancois-Rene Rideau <tunes@google.com>
Sat, 12 Jan 2013 07:20:02 +0000 (02:20 -0500)
inferior-shell.asd
process-spec.lisp

index b7f9e10..ce5b47e 100644 (file)
@@ -1,7 +1,7 @@
 ;;; -*- Lisp -*-
 
 (defsystem :inferior-shell
-  :defsystem-depends-on (:asdf-condition-control)
+  :defsystem-depends-on (:asdf)
   :depends-on (:asdf :xcvb-utils :fare-quasiquote-extras :fare-mop
                #+sbcl :sb-posix)
   :description "spawn local or remote processes and shell pipes"
index b6fd176..e8dfaff 100644 (file)
@@ -81,7 +81,7 @@
         (check-small-fd fd)
         (format s "~D" fd))
       (format s "~A " symbol)
-      (xcvb-driver:escape-command (list pathname) s))))
+      (escape-command (list pathname) s))))
 
 (defmethod print-process-spec ((r fd-redirection) &optional s)
   (with-output-stream (s)
              (loop :for (arg . rest) :on args :do
                (p arg) (when rest (flush-argument c))))
            (`(quote ,@args) ;; quote
-             (e (xcvb-driver:escape-command
+             (e (escape-command
                  (parse-command-spec-tokens args))))
            (`(,(type simple-command-line-token) ,@_) ;; recurse
              (map () #'p x))
 (defmethod print-process-spec ((spec command-spec) &optional s)
   (with-slots (arguments redirections) spec
     (with-output-stream (s)
-      (xcvb-driver:escape-command arguments s)
+      (escape-command arguments s)
       (when redirections
         (loop :for r :in redirections :do
           (princ " " s) (print-process-spec r s))))))
   (print-process-sequence-joined spec "; " "true" s " &"))
 
 (defmethod print-process-spec ((spec string) &optional s)
-  (xcvb-driver::output-string spec s))
+  (output-string spec s))
 
 (defmethod print-process-spec ((spec cons) &optional s)
   (print-process-spec (parse-process-spec spec) s))