? resources/.cvsignore
? src/.cvsignore
? src/css/.cvsignore
? src/glisp/.cvsignore
? src/glisp/dep-openmcl.lisp
? src/gui/.cvsignore
? src/html/.cvsignore
? src/imagelib/.cvsignore
? src/net/.cvsignore
? src/parse/.cvsignore
? src/patches/.cvsignore
? src/protocols/.cvsignore
? src/renderer/.cvsignore
? src/util/.cvsignore
? src/xml/.cvsignore
cvs server: Diffing .
Index: closure.asd
===================================================================
RCS file: /project/closure/cvsroot/closure/closure.asd,v
retrieving revision 1.5
diff -u -r1.5 closure.asd
--- closure.asd	13 Jun 2005 10:14:22 -0000	1.5
+++ closure.asd	25 Aug 2005 14:42:17 -0000
@@ -70,7 +70,8 @@
 	    #+(AND ALLEGRO ALLEGRO-V5.0)        "dep-acl5"
 	    #+(AND ALLEGRO (NOT ALLEGRO-V5.0))  "dep-acl"
 	    #+GCL                               "dep-gcl"
-	    #-(OR sbcl CLISP CMU ALLEGRO GCL) #.(error "Configure!"))
+	    #+OPENMCL                           "dep-openmcl"
+	    #-(OR sbcl CLISP CMU ALLEGRO GCL OPENMCL) #.(error "Configure!"))
      (:file "package"
 	    :depends-on (dependent))
      (:file "runes"
cvs server: Diffing resources
cvs server: Diffing resources/css
cvs server: Diffing resources/dtd
cvs server: Diffing resources/encodings
cvs server: Diffing resources/encodings/apple
cvs server: Diffing resources/icons
cvs server: Diffing resources/patterns
cvs server: Diffing src
cvs server: Diffing src/css
cvs server: Diffing src/glisp
Index: src/glisp/gendep.lisp
===================================================================
RCS file: /project/closure/cvsroot/closure/src/glisp/gendep.lisp,v
retrieving revision 1.2
diff -u -r1.2 gendep.lisp
--- src/glisp/gendep.lisp	13 Mar 2005 18:01:15 -0000	1.2
+++ src/glisp/gendep.lisp	25 Aug 2005 14:42:17 -0000
@@ -337,7 +337,8 @@
   #+(AND ALLEGRO ALLEGRO-V5.0) "acl5"
   #+(AND ALLEGRO (NOT ALLEGRO-V5.0)) "acl"
   #+GCL     "gcl"
-  #-(OR CLISP CMU ALLEGRO GCL)
+  #+OPENMCL "openmcl"
+  #-(OR CLISP CMU ALLEGRO GCL OPENMCL)
   #.(error "Configure!"))
 
 ;; all symbols, which are defined by gray streams
@@ -379,6 +380,7 @@
     #+:CMU                   '(:ext)
     #+:ALLEGRO               '(:excl)
     #+:HARLEQUIN-COMMON-LISP '(:stream)
+    #+:OPENMCL               '(:ccl)
     )
 
 (defun seek-symbol (name packages)
cvs server: Diffing src/gui
Index: src/gui/clim-gui.lisp
===================================================================
RCS file: /project/closure/cvsroot/closure/src/gui/clim-gui.lisp,v
retrieving revision 1.20
diff -u -r1.20 clim-gui.lisp
--- src/gui/clim-gui.lisp	11 Jul 2005 15:58:03 -0000	1.20
+++ src/gui/clim-gui.lisp	25 Aug 2005 14:42:22 -0000
@@ -423,12 +423,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)))))
cvs server: Diffing src/html
cvs server: Diffing src/imagelib
cvs server: Diffing src/net
cvs server: Diffing src/parse
cvs server: Diffing src/patches
Index: src/patches/clx-patch.lisp
===================================================================
RCS file: /project/closure/cvsroot/closure/src/patches/clx-patch.lisp,v
retrieving revision 1.4
diff -u -r1.4 clx-patch.lisp
--- src/patches/clx-patch.lisp	13 Mar 2005 18:02:58 -0000	1.4
+++ src/patches/clx-patch.lisp	25 Aug 2005 14:42:23 -0000
@@ -167,7 +167,7 @@
     (get-host-name))
   
 ;;; GET-BEST-AUTHORIZATION
-
+  #-openmcl
   (defun get-best-authorization (host display protocol)
     (labels ((read-short (stream &optional (eof-errorp t))
                (let ((high-byte (read-byte stream eof-errorp nil)))
cvs server: Diffing src/protocols
cvs server: Diffing src/renderer
cvs server: Diffing src/util
cvs server: Diffing src/xml
cvs server: Diffing src/xml/sax-tests
