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)))))