[closure-cvs] CVS update: closure/src/gui/clim-gui.lisp - closure-cvs@common-lisp.net - mailman3.common-lisp.net

25 Aug 2005

Update of /project/closure/cvsroot/closure/src/gui
In directory common-lisp.net:/tmp/cvs-serv3854/src/gui
Modified Files:
    clim-gui.lisp 
Log Message:
OpenMCL support (from Dave Murray aka JQS)
Date: Thu Aug 25 17:14:14 2005
Author: crhodes
Index: closure/src/gui/clim-gui.lisp
diff -u closure/src/gui/clim-gui.lisp:1.21 closure/src/gui/clim-gui.lisp:1.22

--- closure/src/gui/clim-gui.lisp:1.21	Thu Aug 25 17:05:48 2005
+++ closure/src/gui/clim-gui.lisp	Thu Aug 25 17:14:14 2005
@@ -4,7 +4,7 @@
 ;;;   Created: 2002-07-22
 ;;;    Author: Gilbert Baumann gilbert@base-engineering.com
 ;;;   License: MIT style (see below)
-;;;       $Id: clim-gui.lisp,v 1.21 2005/08/25 15:05:48 crhodes Exp $
+;;;       $Id: clim-gui.lisp,v 1.22 2005/08/25 15:14:14 crhodes Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 2002 by Gilbert Baumann
@@ -28,6 +28,9 @@
 ;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; $Log: clim-gui.lisp,v $
+;; Revision 1.22  2005/08/25 15:14:14  crhodes
+;; OpenMCL support (from Dave Murray aka JQS)
+;;
 ;; Revision 1.21  2005/08/25 15:05:48  crhodes
 ;; Work around problems related to *closure-inited-p* (see #lisp logs for
 ;; 2005-08-25 for more discussion).  Not clear where the fault lies: sbcl,
@@ -428,12 +431,6 @@
(defun send-closure-command (command &rest args)
   (ensure-closure)
-
-  #+openmcl
-  (with-closure ()
-    (glisp::process-interrupt *closure-process*
-                          #'(lambda () (apply command args))))
-  #-openmcl
   (with-closure ()
     (clim-sys:process-interrupt *closure-process*
                           #'(lambda () (apply command args)))))

    