closure-cvs July 2007

closure-cvs@common-lisp.net

1 participants
8 discussions

[closure-cvs] CVS closure/src/renderer
by dlichteblau 07 Jul '07

07 Jul '07

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

1 0

[closure-cvs] CVS closure/src/parse
by dlichteblau 07 Jul '07

07 Jul '07

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

1 0

[closure-cvs] CVS closure/src/css
by dlichteblau 07 Jul '07

07 Jul '07

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

1 0

[closure-cvs] CVS closure/src/net
by dlichteblau 07 Jul '07

07 Jul '07

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)

1 0

[closure-cvs] CVS closure/src/patches
by dlichteblau 07 Jul '07

07 Jul '07

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

1 0

[closure-cvs] CVS closure/src/glisp
by dlichteblau 07 Jul '07

07 Jul '07

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)

1 0

[closure-cvs] CVS closure/src/gui
by dlichteblau 01 Jul '07

01 Jul '07

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

1 0

[closure-cvs] CVS closure/src/renderer
by dlichteblau 01 Jul '07

01 Jul '07

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(a)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(a)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(a)cantab.net> +;; ;; Revision 1.19 2007/01/05 23:10:33 emarsden ;; Fix rendering of preformatted content. ;;

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

closure-cvs July 2007