[noctool-cvs] CVS source

[imattsson]

Update of /project/noctool/cvsroot/source
In directory clnet:/tmp/cvs-serv11840

Modified Files:
	utils.lisp 
Log Message:
IM

Added a docstring to the with-pty macro.
Fixed last line (should have a line-feed).


--- /project/noctool/cvsroot/source/utils.lisp	2008/03/17 08:27:58	1.1.1.1
+++ /project/noctool/cvsroot/source/utils.lisp	2008/05/13 05:59:41	1.2
@@ -4,6 +4,9 @@
 
 
 (defmacro with-pty (ptyspec &body body)
+  "Run a command with a PTY bound. If the ptyspec is (run-command ...), the
+pty will be bound to the symbol PTY, otherwise the ptyspec is expected to be
+a list (ptyvar command)"
   (let ((pty (if (eql (car ptyspec) 'run-command)
 		 'pty
 	       (car ptyspec)))
@@ -199,4 +202,4 @@
   (gethash (string name) *peers*))
 
 (defun get-class (name)
-  (find-class (find-symbol (string name) *noctool-package*)))
\ No newline at end of file
+  (find-class (find-symbol (string name) *noctool-package*)))