[cells-cvs] CVS update: cell-cultures/celtic/celtic.lisp

[Thomas F. Burdick]

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"