From crhodes at common-lisp.net  Mon Aug  8 19:28:22 2005
From: crhodes at common-lisp.net (Christophe Rhodes)
Date: Mon,  8 Aug 2005 21:28:22 +0200 (CEST)
Subject: [closure-cvs] CVS update: closure/src/renderer/renderer2.lisp
	closure/src/renderer/tables.lisp 
Message-ID: <20050808192822.CCFF188542@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/renderer
In directory common-lisp.net:/tmp/cvs-serv22515/src/renderer

Modified Files:
	renderer2.lisp tables.lisp 
Log Message:
tables.lisp isn't loaded by the .asd file.  Move *debug-tables* to 
renderer2.lisp instead.

Date: Mon Aug  8 21:28:21 2005
Author: crhodes

Index: closure/src/renderer/renderer2.lisp
diff -u closure/src/renderer/renderer2.lisp:1.12 closure/src/renderer/renderer2.lisp:1.13
--- closure/src/renderer/renderer2.lisp:1.12	Tue Jul 19 22:42:09 2005
+++ closure/src/renderer/renderer2.lisp	Mon Aug  8 21:28:20 2005
@@ -4,7 +4,7 @@
 ;;;   Created: somewhen late 2002
 ;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: MIT style (see below)
-;;;       $Id: renderer2.lisp,v 1.12 2005/07/19 20:42:09 emarsden Exp $
+;;;       $Id: renderer2.lisp,v 1.13 2005/08/08 19:28:20 crhodes Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2003 by Gilbert Baumann
 
@@ -368,6 +368,7 @@
   chunks)                               ;their chunks
 
 (defparameter *debug-tags* nil)
+(defparameter *debug-tables* t)
 
 (defun chunk-debug-name (chunk)
   (format nil (if (bounding-chunk-halfp chunk)
@@ -4968,6 +4969,10 @@
 
 
 ;; $Log: renderer2.lisp,v $
+;; Revision 1.13  2005/08/08 19:28:20  crhodes
+;; tables.lisp isn't loaded by the .asd file.  Move *debug-tables* to
+;; renderer2.lisp instead.
+;;
 ;; Revision 1.12  2005/07/19 20:42:09  emarsden
 ;; More removal of spurious debugging output, and conditionalization of
 ;; some output on *debug-tables*


Index: closure/src/renderer/tables.lisp
diff -u closure/src/renderer/tables.lisp:1.4 closure/src/renderer/tables.lisp:1.5
--- closure/src/renderer/tables.lisp:1.4	Mon Jul 11 17:57:56 2005
+++ closure/src/renderer/tables.lisp	Mon Aug  8 21:28:20 2005
@@ -49,8 +49,6 @@
     ;;fixme: doc
     nil)
 
-(defparameter *debug-tables* t)
-
 ;; We need to distinguish two models:
 ;;  a. tables with fixed width
 ;;  b. tables with dynamic width (width = :auto)



From crhodes at common-lisp.net  Thu Aug 25 15:03:56 2005
From: crhodes at common-lisp.net (Christophe Rhodes)
Date: Thu, 25 Aug 2005 17:03:56 +0200 (CEST)
Subject: [closure-cvs] CVS update: closure/src/renderer/renderer2.lisp 
Message-ID: <20050825150356.CD2B488554@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/renderer
In directory common-lisp.net:/tmp/cvs-serv3754/src/renderer

Modified Files:
	renderer2.lisp 
Log Message:
turn off table debugging

Date: Thu Aug 25 17:03:55 2005
Author: crhodes

Index: closure/src/renderer/renderer2.lisp
diff -u closure/src/renderer/renderer2.lisp:1.13 closure/src/renderer/renderer2.lisp:1.14
--- closure/src/renderer/renderer2.lisp:1.13	Mon Aug  8 21:28:20 2005
+++ closure/src/renderer/renderer2.lisp	Thu Aug 25 17:03:54 2005
@@ -4,7 +4,7 @@
 ;;;   Created: somewhen late 2002
 ;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: MIT style (see below)
-;;;       $Id: renderer2.lisp,v 1.13 2005/08/08 19:28:20 crhodes Exp $
+;;;       $Id: renderer2.lisp,v 1.14 2005/08/25 15:03:54 crhodes Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2003 by Gilbert Baumann
 
@@ -368,7 +368,7 @@
   chunks)                               ;their chunks
 
 (defparameter *debug-tags* nil)
-(defparameter *debug-tables* t)
+(defparameter *debug-tables* nil)
 
 (defun chunk-debug-name (chunk)
   (format nil (if (bounding-chunk-halfp chunk)
@@ -4969,6 +4969,9 @@
 
 
 ;; $Log: renderer2.lisp,v $
+;; Revision 1.14  2005/08/25 15:03:54  crhodes
+;; turn off table debugging
+;;
 ;; Revision 1.13  2005/08/08 19:28:20  crhodes
 ;; tables.lisp isn't loaded by the .asd file.  Move *debug-tables* to
 ;; renderer2.lisp instead.



From crhodes at common-lisp.net  Thu Aug 25 15:04:30 2005
From: crhodes at common-lisp.net (Christophe Rhodes)
Date: Thu, 25 Aug 2005 17:04:30 +0200 (CEST)
Subject: [closure-cvs] CVS update: closure/src/imagelib/deflate.lisp 
Message-ID: <20050825150430.86B3E88554@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/imagelib
In directory common-lisp.net:/tmp/cvs-serv3784/src/imagelib

Modified Files:
	deflate.lisp 
Log Message:
delete unused deflate package.  (Was conflicting with salza's package of 
the same [nick]name)

Date: Thu Aug 25 17:04:29 2005
Author: crhodes

Index: closure/src/imagelib/deflate.lisp
diff -u closure/src/imagelib/deflate.lisp:1.4 closure/src/imagelib/deflate.lisp:1.5
--- closure/src/imagelib/deflate.lisp:1.4	Sun Mar 13 19:02:00 2005
+++ closure/src/imagelib/deflate.lisp	Thu Aug 25 17:04:29 2005
@@ -28,16 +28,6 @@
 
 (in-package :PNG)
 
-(defpackage :deflate
-  (:use :glisp)
-  (:export
-   #:make-deflator
-   #:stuff-deflator
-   #:end-deflator
-   #:make-inflator
-   #:stuff-inflator
-   #:end-inflator))
-
 ;; This code should really move into another package
 
 ;; Note: This implementation is inherently sloooow.



From crhodes at common-lisp.net  Thu Aug 25 15:05:49 2005
From: crhodes at common-lisp.net (Christophe Rhodes)
Date: Thu, 25 Aug 2005 17:05:49 +0200 (CEST)
Subject: [closure-cvs] CVS update: closure/src/gui/clim-gui.lisp 
Message-ID: <20050825150549.3411788554@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/gui
In directory common-lisp.net:/tmp/cvs-serv3807/src/gui

Modified Files:
	clim-gui.lisp 
Log Message:
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, 
clx, mcclim[-freetype] or closure itself.

Date: Thu Aug 25 17:05:48 2005
Author: crhodes

Index: closure/src/gui/clim-gui.lisp
diff -u closure/src/gui/clim-gui.lisp:1.20 closure/src/gui/clim-gui.lisp:1.21
--- closure/src/gui/clim-gui.lisp:1.20	Mon Jul 11 17:58:03 2005
+++ closure/src/gui/clim-gui.lisp	Thu Aug 25 17:05:48 2005
@@ -4,7 +4,7 @@
 ;;;   Created: 2002-07-22
 ;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: MIT style (see below)
-;;;       $Id: clim-gui.lisp,v 1.20 2005/07/11 15:58:03 crhodes Exp $
+;;;       $Id: clim-gui.lisp,v 1.21 2005/08/25 15:05:48 crhodes Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 2002 by Gilbert Baumann
 
@@ -28,6 +28,11 @@
 ;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; $Log: clim-gui.lisp,v $
+;; 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,
+;; clx, mcclim[-freetype] or closure itself.
+;;
 ;; Revision 1.20  2005/07/11 15:58:03  crhodes
 ;; Complete the renaming *MEDIUM* -> *PANE*.
 ;;
@@ -453,19 +458,18 @@
       (send-closure-command 'com-quit))))
 
 (defvar *closure-inited-p* nil)
-(defmethod clim:run-frame-top-level :before ((frame closure)
-					     &key &allow-other-keys)
-  (setf *closure-inited-p* t))
+(defmethod clim:read-frame-command :before ((frame closure)
+                                               &key &allow-other-keys)
+  (unless *closure-inited-p*
+    (setf *closure-inited-p* t)))
 
 (defun ensure-closure ()
   (with-closure ()
     (unless *closure-process*
       (setf *closure-inited-p* nil)
       (run-closure)
-      (clim-sys:process-wait "Waiting for closure init"
-                             (lambda ()
-                               *closure-inited-p*)))))
-
+      (clim-sys:process-wait "Waiting for closure init" 
+                             (lambda () *closure-inited-p*)))))
 
 (defun run-closure ()
   ;; Care for proxy



From crhodes at common-lisp.net  Thu Aug 25 15:14:15 2005
From: crhodes at common-lisp.net (Christophe Rhodes)
Date: Thu, 25 Aug 2005 17:14:15 +0200 (CEST)
Subject: [closure-cvs] CVS update: closure/src/glisp/dep-openmcl.lisp
	closure/src/glisp/gendep.lisp 
Message-ID: <20050825151415.DBB6F88554@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/glisp
In directory common-lisp.net:/tmp/cvs-serv3854/src/glisp

Modified Files:
	gendep.lisp 
Added Files:
	dep-openmcl.lisp 
Log Message:
OpenMCL support (from Dave Murray aka JQS)

Date: Thu Aug 25 17:14:13 2005
Author: crhodes



Index: closure/src/glisp/gendep.lisp
diff -u closure/src/glisp/gendep.lisp:1.2 closure/src/glisp/gendep.lisp:1.3
--- closure/src/glisp/gendep.lisp:1.2	Sun Mar 13 19:01:15 2005
+++ closure/src/glisp/gendep.lisp	Thu Aug 25 17:14:12 2005
@@ -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)



From crhodes at common-lisp.net  Thu Aug 25 15:14:15 2005
From: crhodes at common-lisp.net (Christophe Rhodes)
Date: Thu, 25 Aug 2005 17:14:15 +0200 (CEST)
Subject: [closure-cvs] CVS update: closure/closure.asd 
Message-ID: <20050825151415.281BF8855C@common-lisp.net>

Update of /project/closure/cvsroot/closure
In directory common-lisp.net:/tmp/cvs-serv3854

Modified Files:
	closure.asd 
Log Message:
OpenMCL support (from Dave Murray aka JQS)

Date: Thu Aug 25 17:14:12 2005
Author: crhodes

Index: closure/closure.asd
diff -u closure/closure.asd:1.5 closure/closure.asd:1.6
--- closure/closure.asd:1.5	Mon Jun 13 12:14:22 2005
+++ closure/closure.asd	Thu Aug 25 17:14:11 2005
@@ -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"



From crhodes at common-lisp.net  Thu Aug 25 15:14:17 2005
From: crhodes at common-lisp.net (Christophe Rhodes)
Date: Thu, 25 Aug 2005 17:14:17 +0200 (CEST)
Subject: [closure-cvs] CVS update: closure/src/patches/clx-patch.lisp 
Message-ID: <20050825151417.77E268855F@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/patches
In directory common-lisp.net:/tmp/cvs-serv3854/src/patches

Modified Files:
	clx-patch.lisp 
Log Message:
OpenMCL support (from Dave Murray aka JQS)

Date: Thu Aug 25 17:14:15 2005
Author: crhodes

Index: closure/src/patches/clx-patch.lisp
diff -u closure/src/patches/clx-patch.lisp:1.4 closure/src/patches/clx-patch.lisp:1.5
--- closure/src/patches/clx-patch.lisp:1.4	Sun Mar 13 19:02:58 2005
+++ closure/src/patches/clx-patch.lisp	Thu Aug 25 17:14:15 2005
@@ -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)))



From crhodes at common-lisp.net  Thu Aug 25 15:14:16 2005
From: crhodes at common-lisp.net (Christophe Rhodes)
Date: Thu, 25 Aug 2005 17:14:16 +0200 (CEST)
Subject: [closure-cvs] CVS update: closure/src/gui/clim-gui.lisp 
Message-ID: <20050825151416.6FF578855D@common-lisp.net>

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