[Maxima-commits] CVS: maxima/src plot.lisp,1.124,1.124.2.1

[Robert D. <rob...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv13816/src

Modified Files:
      Tag: patches-for-ecl-branch
	plot.lisp 
Log Message:
Attempt to define START-GNUPLOT-PROCESS for ECL via EXT:RUN-PROGRAM.
As it stands, it does not work; maybe someone can figure it out.

Index: plot.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/plot.lisp,v
retrieving revision 1.124
retrieving revision 1.124.2.1
diff -u -d -r1.124 -r1.124.2.1
--- plot.lisp	24 Apr 2008 14:17:36 -0000	1.124
+++ plot.lisp	27 Apr 2008 20:30:29 -0000	1.124.2.1
@@ -128,7 +128,10 @@
 ;;            (si::fp-output-stream (si:run-process path nil)))
   #+gcl (setq *gnuplot-stream*
               (open (concatenate 'string "| " path) :direction :output))
-  #-(or clisp cmu sbcl gcl scl)
+  #+ecl (progn
+          (format t "HELLO FROM #+ECL START-GNUPLOT-PROCESS; PATH=~S; YET ANOTHER ATTEMPT~%" path)
+          (setq *gnuplot-stream* (ext:run-program path nil :input :stream :output t :error :output)))
+  #-(or clisp cmu sbcl gcl scl ecl)
   (merror "Gnuplot not supported with your lisp!")
   
   ;; set mouse must be the first command send to gnuplot