From dlichteblau at common-lisp.net  Sun Jul  1 12:16:44 2007
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Sun,  1 Jul 2007 08:16:44 -0400 (EDT)
Subject: [closure-cvs] CVS closure/src/gui
Message-ID: <20070701121644.2E3CD3308E@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/gui
In directory clnet:/tmp/cvs-serv25374/src/gui

Modified Files:
	clim-gui.lisp 
Log Message:
Patch by Christophe Rhodes on closure-devel <87ejk2sngi.fsf at cantab.net>


--- /project/closure/cvsroot/closure/src/gui/clim-gui.lisp	2007/06/30 14:00:04	1.32
+++ /project/closure/cvsroot/closure/src/gui/clim-gui.lisp	2007/07/01 12:16:43	1.33
@@ -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.32 2007/06/30 14:00:04 dlichteblau Exp $
+;;;       $Id: clim-gui.lisp,v 1.33 2007/07/01 12:16:43 dlichteblau 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.33  2007/07/01 12:16:43  dlichteblau
+;; Patch by Christophe Rhodes on closure-devel <87ejk2sngi.fsf at cantab.net>
+;;
 ;; Revision 1.32  2007/06/30 14:00:04  dlichteblau
 ;; New argument new-process to run-closure, which can be disabled to run
 ;; closure in a "blocking" mode.  Needed for clbuild, which wants to (quit)
@@ -579,7 +582,7 @@
       (send-closure-command 'com-quit))))
 
 (defvar *closure-inited-p* nil)
-(defmethod clim:read-frame-command :before ((frame closure)
+(defmethod clim:run-frame-top-level :before ((frame closure)
                                                &key &allow-other-keys)
   (unless *closure-inited-p*
     (setf *closure-inited-p* t)))



From dlichteblau at common-lisp.net  Sun Jul  1 12:16:44 2007
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Sun,  1 Jul 2007 08:16:44 -0400 (EDT)
Subject: [closure-cvs] CVS closure/src/renderer
Message-ID: <20070701121644.A4EC93604C@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/renderer
In directory clnet:/tmp/cvs-serv25374/src/renderer

Modified Files:
	renderer2.lisp 
Log Message:
Patch by Christophe Rhodes on closure-devel <87ejk2sngi.fsf at cantab.net>


--- /project/closure/cvsroot/closure/src/renderer/renderer2.lisp	2007/01/05 23:10:33	1.19
+++ /project/closure/cvsroot/closure/src/renderer/renderer2.lisp	2007/07/01 12:16:44	1.20
@@ -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.19 2007/01/05 23:10:33 emarsden Exp $
+;;;       $Id: renderer2.lisp,v 1.20 2007/07/01 12:16:44 dlichteblau Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2003 by Gilbert Baumann
 
@@ -1196,7 +1196,7 @@
 (defun format-block (item x1 x2 ss before-markers #||# pos-vertical-margin neg-vertical-margin yy)
   (let (res)
     (setf (block-box-output-record item)
-          (clim:with-new-output-record (clim-user::*pane*) foo
+          (clim:with-new-output-record (clim-user::*pane*) #+nil foo
               (setf res
                     (multiple-value-list
                         (case (cooked-style-display (block-box-style item))
@@ -4983,6 +4983,9 @@
 
 
 ;; $Log: renderer2.lisp,v $
+;; Revision 1.20  2007/07/01 12:16:44  dlichteblau
+;; Patch by Christophe Rhodes on closure-devel <87ejk2sngi.fsf at cantab.net>
+;;
 ;; Revision 1.19  2007/01/05 23:10:33  emarsden
 ;; Fix rendering of preformatted content.
 ;;



From dlichteblau at common-lisp.net  Sat Jul  7 14:22:38 2007
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Sat,  7 Jul 2007 10:22:38 -0400 (EDT)
Subject: [closure-cvs] CVS closure/src/glisp
Message-ID: <20070707142238.D28904E00F@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/glisp
In directory clnet:/tmp/cvs-serv23275

Modified Files:
	dep-clisp.lisp 
Log Message:
fixed build on clisp


--- /project/closure/cvsroot/closure/src/glisp/dep-clisp.lisp	2007/01/02 13:12:58	1.8
+++ /project/closure/cvsroot/closure/src/glisp/dep-clisp.lisp	2007/07/07 14:22:38	1.9
@@ -28,8 +28,6 @@
 
 (in-package :CL-USER)
 
-(setq lisp:*load-paths* '(#P"./"))
-
 (defmacro glisp::with-timeout ((&rest ignore) &body body)
   (declare (ignore ignore))
   `(progn
@@ -46,8 +44,8 @@
                    (error "What is the string element type of the day?")))
          options))
 
-(defun glisp:run-unix-shell-command (command)
-  (lisp:shell command))
+(defun glisp::run-unix-shell-command (command)
+  (ext:shell command))
 
 (export 'glisp::getenv :glisp)
 (defun glisp::getenv (var)



From dlichteblau at common-lisp.net  Sat Jul  7 15:02:53 2007
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Sat,  7 Jul 2007 11:02:53 -0400 (EDT)
Subject: [closure-cvs] CVS closure/src/patches
Message-ID: <20070707150253.ADC7E13025@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/patches
In directory clnet:/tmp/cvs-serv31597/src/patches

Modified Files:
	clx-patch.lisp 
Log Message:
build fix for clisp


--- /project/closure/cvsroot/closure/src/patches/clx-patch.lisp	2005/08/25 15:14:15	1.5
+++ /project/closure/cvsroot/closure/src/patches/clx-patch.lisp	2007/07/07 15:02:53	1.6
@@ -157,7 +157,7 @@
     (let ((input nil))
       (unwind-protect 
           (progn
-            (setf input (lisp:make-pipe-input-stream "hostname"))
+            (setf input (ext:make-pipe-input-stream "hostname"))
             (ignore-errors (read-line input)))
         (when input
           (close input)))))
@@ -277,6 +277,6 @@
 #+CLISP
 (progn
   (defun process-block (whostate predicate &rest predicate-args)
-    (apply #'mp::process-wait whostate predicate predicate-args)))
+    (apply #'clim-sys:process-wait whostate predicate predicate-args)))
 
 



From dlichteblau at common-lisp.net  Sat Jul  7 15:03:08 2007
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Sat,  7 Jul 2007 11:03:08 -0400 (EDT)
Subject: [closure-cvs] CVS closure/src/net
Message-ID: <20070707150308.4FF041B017@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/net
In directory clnet:/tmp/cvs-serv31657/src/net

Modified Files:
	http.lisp 
Log Message:
build fix for clisp


--- /project/closure/cvsroot/closure/src/net/http.lisp	2007/01/02 14:30:11	1.12
+++ /project/closure/cvsroot/closure/src/net/http.lisp	2007/07/07 15:03:08	1.13
@@ -738,7 +738,7 @@
 
 #+CLISP
 (defun is-directory-p (pathname)
-  (ignore-errors (lisp:probe-directory pathname)))
+  (ignore-errors (ext:probe-directory pathname)))
 
 #+CMU
 (defun is-directory-p (pathname)



From dlichteblau at common-lisp.net  Sat Jul  7 15:03:56 2007
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Sat,  7 Jul 2007 11:03:56 -0400 (EDT)
Subject: [closure-cvs] CVS closure/src/css
Message-ID: <20070707150356.28A331E07B@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/css
In directory clnet:/tmp/cvs-serv31723/src/css

Modified Files:
	css-properties.lisp css-selector.lisp 
Log Message:
Umlaute raus!


--- /project/closure/cvsroot/closure/src/css/css-properties.lisp	2005/03/13 18:00:58	1.8
+++ /project/closure/cvsroot/closure/src/css/css-properties.lisp	2007/07/07 15:03:56	1.9
@@ -4,7 +4,7 @@
 ;;;   Created: 1998-02-08
 ;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: MIT style (see below)
-;;;       $Id: css-properties.lisp,v 1.8 2005/03/13 18:00:58 gbaumann Exp $
+;;;       $Id: css-properties.lisp,v 1.9 2007/07/07 15:03:56 dlichteblau Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998-2002 by Gilbert Baumann
 
@@ -54,7 +54,7 @@
 (defparameter *normal-line-height*	'1.2)
 (defparameter *initial-font-family*	'("times"))
 (defparameter *initial-color*		'"#000")
-;; 3/2 ist eigentlich etwas bi??chen heftig!
+;; 3/2 ist eigentlich etwas bisschen heftig!
 (defparameter *font-scaling-factor*	3/2)
 (defparameter *medium-font-size*	'(:pt . 12))
 
@@ -597,7 +597,7 @@
 ;; wir koennten jedoch sehr leicht auch noch union(...),
 ;; intersection(...), difference(...), 
 ;; everything, nothing
-;; anbieten. (K??nnten wir aus Spa?? ja mal machen).
+;; anbieten. (Koennten wir aus Spass ja mal machen).
 
 
 ;;; ------------------------------------------------------------------------------------------
@@ -942,6 +942,9 @@
 
 
 ;; $Log: css-properties.lisp,v $
+;; Revision 1.9  2007/07/07 15:03:56  dlichteblau
+;; Umlaute raus!
+;;
 ;; Revision 1.8  2005/03/13 18:00:58  gbaumann
 ;; Gross license change
 ;;
--- /project/closure/cvsroot/closure/src/css/css-selector.lisp	2006/12/29 21:29:24	1.8
+++ /project/closure/cvsroot/closure/src/css/css-selector.lisp	2007/07/07 15:03:56	1.9
@@ -149,7 +149,7 @@
 
 ;; Diese ganze explicite Unterscheidung zwischen Author/User/Default
 ;; ist mir etwas zu speziell. (grade bei !important wird das alles
-;; doch etwas merkw??rdig!).
+;; doch etwas merkwuerdig!).
 
 (defun find-style (sheet element implicit-style 
                    &optional (origin 0) (p 0) 



From dlichteblau at common-lisp.net  Sat Jul  7 15:03:57 2007
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Sat,  7 Jul 2007 11:03:57 -0400 (EDT)
Subject: [closure-cvs] CVS closure/src/parse
Message-ID: <20070707150357.A8B552608F@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/parse
In directory clnet:/tmp/cvs-serv31723/src/parse

Modified Files:
	sgml-parse.lisp 
Log Message:
Umlaute raus!


--- /project/closure/cvsroot/closure/src/parse/sgml-parse.lisp	2007/01/21 15:25:27	1.7
+++ /project/closure/cvsroot/closure/src/parse/sgml-parse.lisp	2007/07/07 15:03:56	1.8
@@ -187,7 +187,7 @@
 (defsubst sloopy-name-rune-p (char)
   (or (name-rune-p char)
       (rune= char #/%)
-      (rune= char #//)      ;manche schreiben ganze urls ohne G?nsef??chen
+      (rune= char #//)      ;manche schreiben ganze urls ohne Gaensefuesschen
       (rune= char #/:)
       (rune= char #/~)
       (rune= char #/#)      ;farben werden auch gerne genommen



From dlichteblau at common-lisp.net  Sat Jul  7 15:03:58 2007
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Sat,  7 Jul 2007 11:03:58 -0400 (EDT)
Subject: [closure-cvs] CVS closure/src/renderer
Message-ID: <20070707150358.113D63202E@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/renderer
In directory clnet:/tmp/cvs-serv31723/src/renderer

Modified Files:
	x11.lisp 
Log Message:
Umlaute raus!


--- /project/closure/cvsroot/closure/src/renderer/x11.lisp	2007/01/07 19:33:03	1.11
+++ /project/closure/cvsroot/closure/src/renderer/x11.lisp	2007/07/07 15:03:57	1.12
@@ -68,7 +68,7 @@
             (getf (xlib:display-plist (xlib:colormap-display colormap))
                   'colormap-plisten)))))
 
-;; static color is merkw?rdig, denn es
+;; static color is merkwuerdig, denn es
 ;; hat red/green/blue masken
 
 (defun real-bits-per-rgb (vi)
@@ -966,7 +966,7 @@
               (r2::font-desc-weight fd)
               (r2::font-desc-style fd)
               (r2::font-desc-charset fd))))
-    ;;Warum ist das wieder von 'dpi' abh?ngig? 
+    ;;Warum ist das wieder von 'dpi' abhaengig? 
     (with-slots (scale-font-desc-cache) device
       (or (gethash (list (hash-key fd) size) scale-font-desc-cache)
           (progn