Update of /project/cells/cvsroot/cell-cultures/celtic In directory common-lisp.net:/tmp/cvs-serv19339/celtic
Modified Files: celtic.lisp Log Message: Changes for SBCL
Date: Mon Jul 5 12:29:30 2004 Author: tburdick
Index: cell-cultures/celtic/celtic.lisp diff -u cell-cultures/celtic/celtic.lisp:1.3 cell-cultures/celtic/celtic.lisp:1.4 --- cell-cultures/celtic/celtic.lisp:1.3 Sun Jul 4 11:59:43 2004 +++ cell-cultures/celtic/celtic.lisp Mon Jul 5 12:29:30 2004 @@ -56,7 +56,9 @@ (error "Cannot create process.")) proc ) - #+:sbcl (let ((proc (sb-ext:run-program program args :input :stream :output :stream :wait wt))) + #+:sbcl (let ((proc (sb-ext:run-program + program args :search t + :input :stream :output :stream :wait wt))) (unless proc (error "Cannot create process.")) (make-two-way-stream @@ -83,8 +85,7 @@
;;; start wish and set *w* (defun tk-start () - #+:sbcl (setf *w* (do-execute "/usr/bin/wish" '("-name" "Cells-LTk"))) - #-:sbcl (setf *w* (do-execute "wish84" '("-name" "Visual Apropos")))) + (setf *w* (do-execute "wish" '("-name" "Visual Apropos"))))
(defun tk-send (text) "send a string to wish"