Hush some warnings
authorFrancois-Rene Rideau <fare@tunes.org>
Thu, 31 May 2012 18:34:58 +0000 (14:34 -0400)
committerFrancois-Rene Rideau <fare@tunes.org>
Thu, 31 May 2012 18:41:52 +0000 (14:41 -0400)
inferior-shell.asd
run-generic.lisp
run-sbcl.lisp

index 494a59d..a1abfc9 100644 (file)
@@ -3,6 +3,7 @@
 #+sbcl (require :sb-posix)
 
 (defsystem :inferior-shell
+  :defsystem-depends-on (:asdf-condition-control)
   :depends-on (:asdf :xcvb-driver :fare-utils :fare-matcher :fare-quasiquote-readtable :fare-mop :alexandria)
   :description "spawn local or remote processes and shell pipes"
   :components
index d4a54bc..3970914 100644 (file)
     (with-slots (process predicate rest) result
       (format stream "~A ~A ~A" process predicate rest))))
 
-; (defgeneric result-or ((result r)))
-
-; (defgeneric result-and ((result r)))
-
-
 (defmethod generic-run-spec ((spec or-spec) input output error predicate rest resume)
+  (declare (ignorable predicate rest))
   (list (make-instance 'result :predicate #'result-or :input input :output output
                        :error error :rest (sequence-processes spec) :resume resume)))
 
 (defmethod generic-run-spec ((spec and-spec) input output error predicate rest resume)
+  (declare (ignorable predicate rest))
   (list (make-instance 'result :predicate #'result-and :input input :output output
                        :error error :rest (sequence-processes spec) :resume resume)))
 
 (defmethod generic-run-spec ((spec progn-spec) input output error predicate rest resume)
+  (declare (ignorable predicate rest))
   (list (make-instance 'result :predicate nil :input input :output output
                        :error error :rest (sequence-processes spec) :resume resume)))
 
 (defmethod generic-run-spec ((spec fork-spec) input output error predicate rest resume)
+  (declare (ignorable predicate rest resume))
   (loop :for p :in (sequence-processes spec) :do
      (generic-run-spec p input output error nil nil nil))
   nil)
 
 (defmethod generic-run-spec ((spec pipe-spec) input output error predicate rest resume)
+  (declare (ignorable predicate rest resume))
   (let ((processes (sequence-processes spec))
         (r-input)
         (r-output)
index d879fae..63ec437 100644 (file)
@@ -2,6 +2,10 @@
 
 (in-package :inferior-shell)
 
+(defgeneric result-or (result))
+
+(defgeneric result-and (result))
+
 (defmethod result-or ((r result))
   (not (zerop (sb-ext:process-exit-code (result-process r)))))