clTcl

Download ASDF package from http://members.chello.nl/~pgriffio/cltcl-0.tar.gz

--- /Users/danlei/.asdf-install-dir/site/cltcl-0/communication.lisp	Wed Oct  8 07:57:20 2008
+++ /Users/danlei/.asdf-install-dir/site/communication.lisp	Wed Oct  8 07:54:54 2008
@@ -67,7 +67,7 @@
 		 :input     :stream
 		 :output    :stream
 		 :wait      NIL)
-      #+:ALLEGRO (run-shell-command
+      #+:ALLEGRO (excl:run-shell-command
 		     (format NIL "exec ~A~{ \"~A\"~}" 
 		      interpreter options)
 		   :input        :stream
@@ -85,6 +85,12 @@
 					     :wait nil)))
 	       (make-two-way-stream (ext:process-output process)
 				    (ext:process-input process)))
+      #+:ccl (let ((process (ccl:run-program interpreter options
+					     :input :stream
+					     :output :stream
+					     :wait nil)))
+	       (make-two-way-stream (ccl:external-process-output-stream process)
+				    (ccl:external-process-input-stream process)))
       #+:LispWorks (system:open-pipe 
 		       (format NIL "~A~{ \"~A\"~}" 
 			interpreter options))

Diff finished.  Wed Oct  8 10:13:29 2008

CLiki pages can be edited by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively