[noctool-cvs] CVS source

[imattsson]

Update of /project/noctool/cvsroot/source
In directory cl-net:/tmp/cvs-serv29954

Modified Files:
	utils.lisp 
Log Message:
IM

Ooops, need to return a list on in/output streams from MAKE-SSH-LIB-COMMAND,
to make it easier to replace make-ssh-command (as that is what run-command
returns).


--- /project/noctool/cvsroot/source/utils.lisp	2009/09/04 18:51:42	1.15
+++ /project/noctool/cvsroot/source/utils.lisp	2009/09/17 15:01:47	1.16
@@ -66,7 +66,8 @@
     (noctool-ssh:make-channel session :command command)
     (let ((string (noctool-ssh:ssh-read session)))
       (noctool-ssh:ssh-close session)
-      (make-string-input-stream string))))
+      (let ((stream (make-string-input-stream string)))
+	(list stream stream)))))
 
 (defun ping-helper (key string)
   (let ((start (search key string)))