August 2005 - closure-cvs@common-lisp.net

[closure-cvs] CVS update: closure/src/patches/clx-patch.lisp
by crhodes＠common-lisp.net 25 Aug '05

25 Aug '05

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

1 0

[closure-cvs] CVS update: closure/src/gui/clim-gui.lisp
by crhodes＠common-lisp.net 25 Aug '05

25 Aug '05

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

1 0

[closure-cvs] CVS update: closure/src/glisp/dep-openmcl.lisp closure/src/glisp/gendep.lisp
by crhodes＠common-lisp.net 25 Aug '05

25 Aug '05

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)

1 0

[closure-cvs] CVS update: closure/closure.asd
by crhodes＠common-lisp.net 25 Aug '05

25 Aug '05

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"

1 0

[closure-cvs] CVS update: closure/src/gui/clim-gui.lisp
by crhodes＠common-lisp.net 25 Aug '05

25 Aug '05

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

1 0

[closure-cvs] CVS update: closure/src/imagelib/deflate.lisp
by crhodes＠common-lisp.net 25 Aug '05

25 Aug '05

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.

1 0

[closure-cvs] CVS update: closure/src/renderer/renderer2.lisp
by crhodes＠common-lisp.net 25 Aug '05

25 Aug '05

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(a)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.

1 0

[closure-cvs] CVS update: closure/src/renderer/renderer2.lisp closure/src/renderer/tables.lisp
by crhodes＠common-lisp.net 08 Aug '05

08 Aug '05

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

1 0