From gbaumann at common-lisp.net  Sun Mar 13 16:57:09 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 17:57:09 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/INSTALL 
Message-ID: <20050313165709.0324A8866C@common-lisp.net>

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

Modified Files:
	INSTALL 
Log Message:
dummy commit.

Date: Sun Mar 13 17:57:06 2005
Author: gbaumann

Index: closure/INSTALL
diff -u closure/INSTALL:1.1 closure/INSTALL:1.2
--- closure/INSTALL:1.1	Thu Mar 13 20:32:39 2003
+++ closure/INSTALL	Sun Mar 13 17:57:06 2005
@@ -28,3 +28,5 @@
 
 
 2003-03-10, Gilbert Baumann
+
+-- dummy commit, ignore --



From gbaumann at common-lisp.net  Sun Mar 13 18:00:57 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 19:00:57 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/resources/resources.lisp 
Message-ID: <20050313180057.3E0CC8866C@common-lisp.net>

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

Modified Files:
	resources.lisp 
Log Message:
Gross license change
Date: Sun Mar 13 19:00:56 2005
Author: gbaumann

Index: closure/resources/resources.lisp
diff -u closure/resources/resources.lisp:1.2 closure/resources/resources.lisp:1.3
--- closure/resources/resources.lisp:1.2	Fri Mar 14 17:44:07 2003
+++ closure/resources/resources.lisp	Sun Mar 13 19:00:55 2005
@@ -1,4 +1,32 @@
-(in-package :gluser)
+;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: GLUSER; -*-
+;;; ---------------------------------------------------------------------------
+;;;     Title: Some stuff
+;;;   Created: ????
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;; ---------------------------------------------------------------------------
+;;;  (c) copyright 2005 by Gilbert Baumann
+
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+(in-package :GLUSER)
 
 ;;; Ich habe das jetzt satt! Wir lesen das default style sheet jetzt
 ;;; im rahmen des compilierens, dann gibt es spaeter keine



From gbaumann at common-lisp.net  Sun Mar 13 18:00:59 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 19:00:59 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/defpack.lisp
	closure/src/patch.lisp 
Message-ID: <20050313180059.35A7D88678@common-lisp.net>

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

Modified Files:
	defpack.lisp patch.lisp 
Log Message:
Gross license change
Date: Sun Mar 13 19:00:57 2005
Author: gbaumann

Index: closure/src/defpack.lisp
diff -u closure/src/defpack.lisp:1.2 closure/src/defpack.lisp:1.3
--- closure/src/defpack.lisp:1.2	Thu Mar 13 20:29:17 2003
+++ closure/src/defpack.lisp	Sun Mar 13 19:00:56 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: All DEFPACKAGE forms for the Closure browser
 ;;;   Created: 1999-05-25 22:33
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (defpackage :renderer
   (:nicknames :r2)


Index: closure/src/patch.lisp
diff -u closure/src/patch.lisp:1.5 closure/src/patch.lisp:1.6
--- closure/src/patch.lisp:1.5	Sun Jun 15 19:24:24 2003
+++ closure/src/patch.lisp	Sun Mar 13 19:00:56 2005
@@ -1,4 +1,3 @@
-
 ;;;;
 ;;;; Last minute patches
 ;;;;



From gbaumann at common-lisp.net  Sun Mar 13 18:01:16 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 19:01:16 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/css/css-parse.lisp
	closure/src/css/css-properties.lisp
	closure/src/css/css-selector.lisp closure/src/css/css-setup.lisp
	closure/src/css/css-support.lisp closure/src/css/package.lisp
Message-ID: <20050313180116.3C43A8866C@common-lisp.net>

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

Modified Files:
	css-parse.lisp css-properties.lisp css-selector.lisp 
	css-setup.lisp css-support.lisp package.lisp 
Log Message:
Gross license change
Date: Sun Mar 13 19:00:59 2005
Author: gbaumann

Index: closure/src/css/css-parse.lisp
diff -u closure/src/css/css-parse.lisp:1.3 closure/src/css/css-parse.lisp:1.4
--- closure/src/css/css-parse.lisp:1.3	Thu Mar 13 20:29:17 2003
+++ closure/src/css/css-parse.lisp	Sun Mar 13 19:00:58 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Parsing CSS1 Style Sheets (according to W3C REC-CSS1-961217)
 ;;;   Created: 1998-02-08
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998-2003 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :CSS)
 


Index: closure/src/css/css-properties.lisp
diff -u closure/src/css/css-properties.lisp:1.7 closure/src/css/css-properties.lisp:1.8
--- closure/src/css/css-properties.lisp:1.7	Fri Mar 14 18:06:16 2003
+++ closure/src/css/css-properties.lisp	Sun Mar 13 19:00:58 2005
@@ -2,25 +2,30 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Parsing CSS1 Style Sheets (according to W3C REC-CSS1-961217)
 ;;;   Created: 1998-02-08
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
-;;;       $Id: css-properties.lisp,v 1.7 2003/03/14 17:06:16 dan Exp $
+;;;    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 $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998-2002 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;;;;;;;;;;;;;;;
 
@@ -937,6 +942,9 @@
 
 
 ;; $Log: css-properties.lisp,v $
+;; Revision 1.8  2005/03/13 18:00:58  gbaumann
+;; Gross license change
+;;
 ;; Revision 1.7  2003/03/14 17:06:16  dan
 ;; replace defconstants for non-constant variables with defvar, to placate SBCL, which suffers from offensively ANSI behaviour with same
 ;;


Index: closure/src/css/css-selector.lisp
diff -u closure/src/css/css-selector.lisp:1.3 closure/src/css/css-selector.lisp:1.4
--- closure/src/css/css-selector.lisp:1.3	Thu Mar 13 20:29:17 2003
+++ closure/src/css/css-selector.lisp	Sun Mar 13 19:00:58 2005
@@ -3,9 +3,30 @@
 ;;;     Title: CSS selectors
 ;;;            [Split off from css-parse.lisp]
 ;;;   Created: 2001-05-19
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998-2001 by Gilbert Baumann
+
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
 
 (in-package :CSS)
 


Index: closure/src/css/css-setup.lisp
diff -u closure/src/css/css-setup.lisp:1.3 closure/src/css/css-setup.lisp:1.4
--- closure/src/css/css-setup.lisp:1.3	Thu Mar 13 20:29:17 2003
+++ closure/src/css/css-setup.lisp	Sun Mar 13 19:00:58 2005
@@ -2,25 +2,30 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Initial setup of css style attributes
 ;;;   Created: 1998-06-18
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
-;;;       $Id: css-setup.lisp,v 1.3 2003/03/13 19:29:17 gilbert Exp $
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;;       $Id: css-setup.lisp,v 1.4 2005/03/13 18:00:58 gbaumann Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998-2002 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :CSS)
 
@@ -454,6 +459,9 @@
 
 
 ;; $Log: css-setup.lisp,v $
+;; Revision 1.4  2005/03/13 18:00:58  gbaumann
+;; Gross license change
+;;
 ;; Revision 1.3  2003/03/13 19:29:17  gilbert
 ;; lots of hacking
 ;;


Index: closure/src/css/css-support.lisp
diff -u closure/src/css/css-support.lisp:1.2 closure/src/css/css-support.lisp:1.3
--- closure/src/css/css-support.lisp:1.2	Thu Mar 13 20:29:17 2003
+++ closure/src/css/css-support.lisp	Sun Mar 13 19:00:58 2005
@@ -2,9 +2,30 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: [temporary] parse tree support for the css stuff
 ;;;   Created: 2002-08-07
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 2002 by Gilbert Baumann
+
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
 
 (in-package :css)
 


Index: closure/src/css/package.lisp
diff -u closure/src/css/package.lisp:1.2 closure/src/css/package.lisp:1.3
--- closure/src/css/package.lisp:1.2	Thu Mar 13 20:29:17 2003
+++ closure/src/css/package.lisp	Sun Mar 13 19:00:58 2005
@@ -2,27 +2,31 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: CSS Package Definition
 ;;;   Created: 2002-07-23
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
-;;;  (c) copyright 2002 by Gilbert Baumann
+;;;  (c) copyright 2005 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- 
-(in-package :CL-USER)
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
+(in-package :CL-USER)
 (defpackage :css
   (:use :glisp)
   ;;



From gbaumann at common-lisp.net  Sun Mar 13 18:01:37 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 19:01:37 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/glisp/dep-acl.lisp
	closure/src/glisp/dep-acl5.lisp closure/src/glisp/dep-clisp.lisp
	closure/src/glisp/dep-cmucl-dtc.lisp
	closure/src/glisp/dep-cmucl.lisp closure/src/glisp/dep-gcl-2.lisp
	closure/src/glisp/dep-gcl.lisp
	closure/src/glisp/dep-sbcl.lisp closure/src/glisp/gendep.lisp
	closure/src/glisp/match.lisp closure/src/glisp/package.lisp
	closure/src/glisp/runes.lisp closure/src/glisp/util.lisp 
Message-ID: <20050313180137.EF9638866C@common-lisp.net>

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

Modified Files:
	dep-acl.lisp dep-acl5.lisp dep-clisp.lisp dep-cmucl-dtc.lisp 
	dep-cmucl.lisp dep-gcl-2.lisp dep-gcl.lisp dep-sbcl.lisp 
	gendep.lisp match.lisp package.lisp runes.lisp util.lisp 
Log Message:
Gross license change
Date: Sun Mar 13 19:01:16 2005
Author: gbaumann

Index: closure/src/glisp/dep-acl.lisp
diff -u closure/src/glisp/dep-acl.lisp:1.1.1.1 closure/src/glisp/dep-acl.lisp:1.2
--- closure/src/glisp/dep-acl.lisp:1.1.1.1	Mon Jul 22 04:27:22 2002
+++ closure/src/glisp/dep-acl.lisp	Sun Mar 13 19:01:15 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: ACL-4.3 dependent stuff + fixups
 ;;;   Created: 1999-05-25 22:33
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998,1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (export 'glisp::read-byte-sequence :glisp)
 (export 'glisp::read-char-sequence :glisp)


Index: closure/src/glisp/dep-acl5.lisp
diff -u closure/src/glisp/dep-acl5.lisp:1.1.1.1 closure/src/glisp/dep-acl5.lisp:1.2
--- closure/src/glisp/dep-acl5.lisp:1.1.1.1	Mon Jul 22 04:27:22 2002
+++ closure/src/glisp/dep-acl5.lisp	Sun Mar 13 19:01:15 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: ACL-5.0 dependent stuff + fixups
 ;;;   Created: 1999-05-25 22:32
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998,1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;;; Changes
 ;;; =======


Index: closure/src/glisp/dep-clisp.lisp
diff -u closure/src/glisp/dep-clisp.lisp:1.1.1.1 closure/src/glisp/dep-clisp.lisp:1.2
--- closure/src/glisp/dep-clisp.lisp:1.1.1.1	Mon Jul 22 04:27:22 2002
+++ closure/src/glisp/dep-clisp.lisp	Sun Mar 13 19:01:15 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: CLISP dependent stuff + fixups
 ;;;   Created: 1999-05-25 22:32
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :CL-USER)
 


Index: closure/src/glisp/dep-cmucl-dtc.lisp
diff -u closure/src/glisp/dep-cmucl-dtc.lisp:1.1.1.1 closure/src/glisp/dep-cmucl-dtc.lisp:1.2
--- closure/src/glisp/dep-cmucl-dtc.lisp:1.1.1.1	Mon Jul 22 04:27:22 2002
+++ closure/src/glisp/dep-cmucl-dtc.lisp	Sun Mar 13 19:01:15 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: CMUCL dependent stuff + fixups
 ;;;   Created: 1999-05-25 22:32
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (export 'glisp::read-byte-sequence :glisp)
 (export 'glisp::read-char-sequence :glisp)
@@ -156,7 +161,7 @@
 On Wednesday, 7/1/98 12:48:51 pm [-1] it was compiled from:
 target:code/run-program.lisp
   Created: Saturday, 6/20/98 07:13:08 pm [-1]
-  Comment: $Header: /project/closure/cvsroot/closure/src/glisp/dep-cmucl-dtc.lisp,v 1.1.1.1 2002/07/22 02:27:22 gilbert Exp $
+  Comment: $Header: /project/closure/cvsroot/closure/src/glisp/dep-cmucl-dtc.lisp,v 1.2 2005/03/13 18:01:15 gbaumann Exp $
 ||#
 
 ;; (process-exit-code (run-program "/bin/sh" (list "-c" "ls") :wait t :input nil :output nil))


Index: closure/src/glisp/dep-cmucl.lisp
diff -u closure/src/glisp/dep-cmucl.lisp:1.1.1.1 closure/src/glisp/dep-cmucl.lisp:1.2
--- closure/src/glisp/dep-cmucl.lisp:1.1.1.1	Mon Jul 22 04:27:22 2002
+++ closure/src/glisp/dep-cmucl.lisp	Sun Mar 13 19:01:15 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: CMUCL dependent stuff + fixups
 ;;;   Created: 1999-05-25 22:32
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (export 'glisp::read-byte-sequence :glisp)
 (export 'glisp::read-char-sequence :glisp)
@@ -187,7 +192,7 @@
 On Wednesday, 7/1/98 12:48:51 pm [-1] it was compiled from:
 target:code/run-program.lisp
   Created: Saturday, 6/20/98 07:13:08 pm [-1]
-  Comment: $Header: /project/closure/cvsroot/closure/src/glisp/dep-cmucl.lisp,v 1.1.1.1 2002/07/22 02:27:22 gilbert Exp $
+  Comment: $Header: /project/closure/cvsroot/closure/src/glisp/dep-cmucl.lisp,v 1.2 2005/03/13 18:01:15 gbaumann Exp $
 ||#
 
 ;; (process-exit-code (run-program "/bin/sh" (list "-c" "ls") :wait t :input nil :output nil))


Index: closure/src/glisp/dep-gcl-2.lisp
diff -u closure/src/glisp/dep-gcl-2.lisp:1.1.1.1 closure/src/glisp/dep-gcl-2.lisp:1.2
--- closure/src/glisp/dep-gcl-2.lisp:1.1.1.1	Mon Jul 22 04:27:22 2002
+++ closure/src/glisp/dep-gcl-2.lisp	Sun Mar 13 19:01:15 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Second part of GCL dependent stuff
 ;;;   Created: 1999-05-25 22:31
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :GLISP)
 


Index: closure/src/glisp/dep-gcl.lisp
diff -u closure/src/glisp/dep-gcl.lisp:1.1.1.1 closure/src/glisp/dep-gcl.lisp:1.2
--- closure/src/glisp/dep-gcl.lisp:1.1.1.1	Mon Jul 22 04:27:22 2002
+++ closure/src/glisp/dep-gcl.lisp	Sun Mar 13 19:01:15 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: GCL dependent stuff + fixups
 ;;;   Created: 1999-05-25 22:31
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (shadow '(make-pathname pathname-directory) :glisp)
 


Index: closure/src/glisp/dep-sbcl.lisp
diff -u closure/src/glisp/dep-sbcl.lisp:1.1 closure/src/glisp/dep-sbcl.lisp:1.2
--- closure/src/glisp/dep-sbcl.lisp:1.1	Fri Mar 14 18:09:05 2003
+++ closure/src/glisp/dep-sbcl.lisp	Sun Mar 13 19:01:15 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: SBCL dependent stuff + fixups
 ;;;   Created: 1999-05-25 22:32
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (export 'glisp::read-byte-sequence :glisp)
 (export 'glisp::read-char-sequence :glisp)


Index: closure/src/glisp/gendep.lisp
diff -u closure/src/glisp/gendep.lisp:1.1.1.1 closure/src/glisp/gendep.lisp:1.2
--- closure/src/glisp/gendep.lisp:1.1.1.1	Mon Jul 22 04:27:22 2002
+++ closure/src/glisp/gendep.lisp	Sun Mar 13 19:01:15 2005
@@ -1,10 +1,32 @@
 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; -*-
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Generating a sane DEFPACKAGE for GLISP
-;;;   Created: 1999-05-25 22:30
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
+;;;   Created: 1999-05-25
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
+
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+(in-package :CL-USER)
 
 (defparameter *all-ansi-symbols*
   '("&ALLOW-OTHER-KEYS" "&AUX" "&BODY" "&ENVIRONMENT" "&KEY" "&OPTIONAL" "&REST" "&WHOLE" "*"


Index: closure/src/glisp/match.lisp
diff -u closure/src/glisp/match.lisp:1.1.1.1 closure/src/glisp/match.lisp:1.2
--- closure/src/glisp/match.lisp:1.1.1.1	Mon Jul 22 04:27:22 2002
+++ closure/src/glisp/match.lisp	Sun Mar 13 19:01:15 2005
@@ -2,25 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Very simple (non-deterministic) regular expression matching
 ;;;   Created: 1999-01-21
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: LGPL (See file COPYING for details).
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;;; This library is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU Library General Public
-;;; License as published by the Free Software Foundation; either
-;;; version 2 of the License, or (at your option) any later version.
-;;;
-;;; This library is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; Library General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU Library General Public
-;;; License along with this library; if not, write to the 
-;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
-;;; Boston, MA  02111-1307  USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :GLISP)
 


Index: closure/src/glisp/package.lisp
diff -u closure/src/glisp/package.lisp:1.3 closure/src/glisp/package.lisp:1.4
--- closure/src/glisp/package.lisp:1.3	Sun Jun 15 18:47:44 2003
+++ closure/src/glisp/package.lisp	Sun Mar 13 19:01:15 2005
@@ -2,9 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Generating a sane DEFPACKAGE for GLISP
 ;;;   Created: 1999-05-25
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999,2000 by Gilbert Baumann
+
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (defpackage :glisp-temp (:use #:cl))
 (in-package :glisp-temp)


Index: closure/src/glisp/runes.lisp
diff -u closure/src/glisp/runes.lisp:1.3 closure/src/glisp/runes.lisp:1.4
--- closure/src/glisp/runes.lisp:1.3	Thu Mar 13 20:29:17 2003
+++ closure/src/glisp/runes.lisp	Sun Mar 13 19:01:16 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Unicode strings (called RODs)
 ;;;   Created: 1999-05-25 22:29
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998,1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; Changes
 ;;


Index: closure/src/glisp/util.lisp
diff -u closure/src/glisp/util.lisp:1.3 closure/src/glisp/util.lisp:1.4
--- closure/src/glisp/util.lisp:1.3	Sun Jun 15 18:47:44 2003
+++ closure/src/glisp/util.lisp	Sun Mar 13 19:01:16 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Some common utilities for the Closure browser
 ;;;   Created: 1997-12-27
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; Changes
 ;;



From gbaumann at common-lisp.net  Sun Mar 13 18:01:57 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 19:01:57 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/gui/clim-gui.lisp
	closure/src/gui/clue-gui.lisp closure/src/gui/clue-input.lisp
	closure/src/gui/dce-and-pce.lisp closure/src/gui/gui.lisp 
Message-ID: <20050313180157.EDCA98866C@common-lisp.net>

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

Modified Files:
	clim-gui.lisp clue-gui.lisp clue-input.lisp dce-and-pce.lisp 
	gui.lisp 
Log Message:
Gross license change
Date: Sun Mar 13 19:01:38 2005
Author: gbaumann

Index: closure/src/gui/clim-gui.lisp
diff -u closure/src/gui/clim-gui.lisp:1.11 closure/src/gui/clim-gui.lisp:1.12
--- closure/src/gui/clim-gui.lisp:1.11	Sun Jun 15 19:24:24 2003
+++ closure/src/gui/clim-gui.lisp	Sun Mar 13 19:01:37 2005
@@ -2,27 +2,35 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: CLIM GUI
 ;;;   Created: 2002-07-22
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
-;;;       $Id: clim-gui.lisp,v 1.11 2003/06/15 17:24:24 gilbert Exp $
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;;       $Id: clim-gui.lisp,v 1.12 2005/03/13 18:01:37 gbaumann Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 2002 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; $Log: clim-gui.lisp,v $
+;; Revision 1.12  2005/03/13 18:01:37  gbaumann
+;; Gross license change
+;;
 ;; Revision 1.11  2003/06/15 17:24:24  gilbert
 ;; fixes to the recent patches.
 ;;


Index: closure/src/gui/clue-gui.lisp
diff -u closure/src/gui/clue-gui.lisp:1.2 closure/src/gui/clue-gui.lisp:1.3
--- closure/src/gui/clue-gui.lisp:1.2	Thu Mar 13 20:29:17 2003
+++ closure/src/gui/clue-gui.lisp	Sun Mar 13 19:01:37 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: A GUI based on the CLUE library
 ;;;   Created: 1999-02-02 07:42
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; Changes
 ;; =======


Index: closure/src/gui/clue-input.lisp
diff -u closure/src/gui/clue-input.lisp:1.3 closure/src/gui/clue-input.lisp:1.4
--- closure/src/gui/clue-input.lisp:1.3	Fri Mar 14 17:44:07 2003
+++ closure/src/gui/clue-input.lisp	Sun Mar 13 19:01:37 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Interface for the renderer to input elements
 ;;;   Created: 1999-05-25 22:27
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; Changes
 ;;


Index: closure/src/gui/dce-and-pce.lisp
diff -u closure/src/gui/dce-and-pce.lisp:1.2 closure/src/gui/dce-and-pce.lisp:1.3
--- closure/src/gui/dce-and-pce.lisp:1.2	Thu Mar 13 20:29:17 2003
+++ closure/src/gui/dce-and-pce.lisp	Sun Mar 13 19:01:37 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Various Caches for Images et al
 ;;;   Created: 1999-05-25
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999,2001 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :CLUE-GUI2)
 


Index: closure/src/gui/gui.lisp
diff -u closure/src/gui/gui.lisp:1.4 closure/src/gui/gui.lisp:1.5
--- closure/src/gui/gui.lisp:1.4	Fri Mar 14 18:06:16 2003
+++ closure/src/gui/gui.lisp	Sun Mar 13 19:01:37 2005
@@ -2,24 +2,29 @@
 ;;; --------------------------------------------------------------------------
 ;;;     Title: Toolkit independent GUI stuff (albeit X specific)
 ;;;   Created: Sun Jan 17 06:45:18 1999
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; --------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; Changes
 ;;



From gbaumann at common-lisp.net  Sun Mar 13 18:02:01 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 19:02:01 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/html/html-style.lisp 
Message-ID: <20050313180201.6FF6B88678@common-lisp.net>

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

Modified Files:
	html-style.lisp 
Log Message:
Gross license change
Date: Sun Mar 13 19:01:54 2005
Author: gbaumann

Index: closure/src/html/html-style.lisp
diff -u closure/src/html/html-style.lisp:1.2 closure/src/html/html-style.lisp:1.3
--- closure/src/html/html-style.lisp:1.2	Thu Mar 13 21:15:08 2003
+++ closure/src/html/html-style.lisp	Sun Mar 13 19:01:54 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: HTML-Specific Parts of the Renderer
 ;;;   Created: 1999-05-25
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998,1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;;;; Notes
 



From gbaumann at common-lisp.net  Sun Mar 13 18:02:19 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 19:02:19 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/imagelib/basic.lisp
	closure/src/imagelib/deflate.lisp closure/src/imagelib/package.lisp
	closure/src/imagelib/png.lisp 
Message-ID: <20050313180219.9D93D88678@common-lisp.net>

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

Modified Files:
	basic.lisp deflate.lisp package.lisp png.lisp 
Log Message:
Gross license change
Date: Sun Mar 13 19:02:06 2005
Author: gbaumann

Index: closure/src/imagelib/basic.lisp
diff -u closure/src/imagelib/basic.lisp:1.2 closure/src/imagelib/basic.lisp:1.3
--- closure/src/imagelib/basic.lisp:1.2	Sun Jun 15 18:54:29 2003
+++ closure/src/imagelib/basic.lisp	Sun Mar 13 19:02:00 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: General image routines
 ;;;   Created: 1998-11-11
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; Changes
 ;;


Index: closure/src/imagelib/deflate.lisp
diff -u closure/src/imagelib/deflate.lisp:1.3 closure/src/imagelib/deflate.lisp:1.4
--- closure/src/imagelib/deflate.lisp:1.3	Sun Jun 15 18:54:29 2003
+++ closure/src/imagelib/deflate.lisp	Sun Mar 13 19:02:00 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: The DEFLATE Compression (rfc-1951)
 ;;;   Created: 1997-04-24
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997,1998 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :PNG)
 


Index: closure/src/imagelib/package.lisp
diff -u closure/src/imagelib/package.lisp:1.1.1.1 closure/src/imagelib/package.lisp:1.2
--- closure/src/imagelib/package.lisp:1.1.1.1	Mon Jul 22 04:27:21 2002
+++ closure/src/imagelib/package.lisp	Sun Mar 13 19:02:01 2005
@@ -1,3 +1,33 @@
+;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; -*-
+;;; ---------------------------------------------------------------------------
+;;;     Title: Package definition for IMAGELIB
+;;;   Created: ???
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;; ---------------------------------------------------------------------------
+;;;  (c) copyright 2005 by Gilbert Baumann
+
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+(in-package :CL-USER)
+
 (defpackage :imagelib
   (:use :glisp)
   (:export


Index: closure/src/imagelib/png.lisp
diff -u closure/src/imagelib/png.lisp:1.3 closure/src/imagelib/png.lisp:1.4
--- closure/src/imagelib/png.lisp:1.3	Fri Mar 14 18:06:16 2003
+++ closure/src/imagelib/png.lisp	Sun Mar 13 19:02:01 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Reading .png Files
 ;;;   Created: 1997-04-24
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-1998,2001 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :PNG)
 



From gbaumann at common-lisp.net  Sun Mar 13 18:02:40 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 19:02:40 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/net/common-parse.lisp
	closure/src/net/ftp.lisp closure/src/net/http.lisp
	closure/src/net/mime.lisp closure/src/net/package.lisp
	closure/src/net/url.lisp 
Message-ID: <20050313180240.983EE8866C@common-lisp.net>

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

Modified Files:
	common-parse.lisp ftp.lisp http.lisp mime.lisp package.lisp 
	url.lisp 
Log Message:
Gross license change
Date: Sun Mar 13 19:02:20 2005
Author: gbaumann

Index: closure/src/net/common-parse.lisp
diff -u closure/src/net/common-parse.lisp:1.2 closure/src/net/common-parse.lisp:1.3
--- closure/src/net/common-parse.lisp:1.2	Fri Mar 14 18:06:16 2003
+++ closure/src/net/common-parse.lisp	Sun Mar 13 19:02:19 2005
@@ -2,25 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Common Parsing Routines to Parse off Header Fields et al
 ;;;   Created: 2001-05-16
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: LGPL (See file COPYING for details).
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 2001 by Gilbert Baumann
 
-;;; This library is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU Library General Public
-;;; License as published by the Free Software Foundation; either
-;;; version 2 of the License, or (at your option) any later version.
-;;;
-;;; This library is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; Library General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU Library General Public
-;;; License along with this library; if not, write to the 
-;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
-;;; Boston, MA  02111-1307  USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :NETLIB)
 


Index: closure/src/net/ftp.lisp
diff -u closure/src/net/ftp.lisp:1.1.1.1 closure/src/net/ftp.lisp:1.2
--- closure/src/net/ftp.lisp:1.1.1.1	Mon Jul 22 04:27:20 2002
+++ closure/src/net/ftp.lisp	Sun Mar 13 19:02:19 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: The FTP Protocol (rfc-959)
 ;;;   Created: 1997-08-27
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997,1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :NETLIB)
 


Index: closure/src/net/http.lisp
diff -u closure/src/net/http.lisp:1.4 closure/src/net/http.lisp:1.5
--- closure/src/net/http.lisp:1.4	Fri Mar 14 17:56:37 2003
+++ closure/src/net/http.lisp	Sun Mar 13 19:02:19 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: HTTP and Stuff
 ;;;   Created: 1997-09-25
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2001 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :NETLIB)
 


Index: closure/src/net/mime.lisp
diff -u closure/src/net/mime.lisp:1.4 closure/src/net/mime.lisp:1.5
--- closure/src/net/mime.lisp:1.4	Thu Jun 19 17:02:23 2003
+++ closure/src/net/mime.lisp	Sun Mar 13 19:02:19 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Simple-minded MIME handling
 ;;;   Created: 1997-04-12
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1996-1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :NETLIB)
 


Index: closure/src/net/package.lisp
diff -u closure/src/net/package.lisp:1.1.1.1 closure/src/net/package.lisp:1.2
--- closure/src/net/package.lisp:1.1.1.1	Mon Jul 22 04:27:20 2002
+++ closure/src/net/package.lisp	Sun Mar 13 19:02:19 2005
@@ -1,3 +1,33 @@
+;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; -*-
+;;; ---------------------------------------------------------------------------
+;;;     Title: Package definition for NETLIB
+;;;   Created: ???
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;; ---------------------------------------------------------------------------
+;;;  (c) copyright 2005 by Gilbert Baumann
+
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+(in-package :CL-USER)
+
 (defpackage :ws/netlib
   (:nicknames :netlib)
   (:use :glisp :url)


Index: closure/src/net/url.lisp
diff -u closure/src/net/url.lisp:1.4 closure/src/net/url.lisp:1.5
--- closure/src/net/url.lisp:1.4	Wed Mar 26 22:16:16 2003
+++ closure/src/net/url.lisp	Sun Mar 13 19:02:19 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Parsing and Unparsing URLs, second approach
 ;;;   Created: 1997-05-10
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2002 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;;; Changes
 



From gbaumann at common-lisp.net  Sun Mar 13 18:03:01 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 19:03:01 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/parse/package.lisp
	closure/src/parse/pt.lisp closure/src/parse/sgml-dtd.lisp
	closure/src/parse/sgml-parse.lisp 
Message-ID: <20050313180301.680A28866C@common-lisp.net>

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

Modified Files:
	package.lisp pt.lisp sgml-dtd.lisp sgml-parse.lisp 
Log Message:
Gross license change
Date: Sun Mar 13 19:02:43 2005
Author: gbaumann

Index: closure/src/parse/package.lisp
diff -u closure/src/parse/package.lisp:1.2 closure/src/parse/package.lisp:1.3
--- closure/src/parse/package.lisp:1.2	Thu Mar 13 20:29:17 2003
+++ closure/src/parse/package.lisp	Sun Mar 13 19:02:40 2005
@@ -1,3 +1,33 @@
+;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; -*-
+;;; ---------------------------------------------------------------------------
+;;;     Title: Package definition for the SGML parser
+;;;   Created: perhaps 1996
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;; ---------------------------------------------------------------------------
+;;;  (c) copyright 2005 by Gilbert Baumann
+
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+(in-package :CL-USER)
+
 (defpackage :sgml
   (:use :glisp)
   (:export #:SGML-PARSE 


Index: closure/src/parse/pt.lisp
diff -u closure/src/parse/pt.lisp:1.3 closure/src/parse/pt.lisp:1.4
--- closure/src/parse/pt.lisp:1.3	Fri Mar 14 17:44:07 2003
+++ closure/src/parse/pt.lisp	Sun Mar 13 19:02:40 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Definition of PT and Misc. PT utilities 
 ;;;   Created: Somewhen in 1996
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1996-1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; Changes
 ;;


Index: closure/src/parse/sgml-dtd.lisp
diff -u closure/src/parse/sgml-dtd.lisp:1.3 closure/src/parse/sgml-dtd.lisp:1.4
--- closure/src/parse/sgml-dtd.lisp:1.3	Fri Mar 14 17:44:07 2003
+++ closure/src/parse/sgml-dtd.lisp	Sun Mar 13 19:02:40 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: A very first approach to parse DTD's directly
 ;;;   Created: 1997-10-14
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2001 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :SGML)
 


Index: closure/src/parse/sgml-parse.lisp
diff -u closure/src/parse/sgml-parse.lisp:1.3 closure/src/parse/sgml-parse.lisp:1.4
--- closure/src/parse/sgml-parse.lisp:1.3	Fri Mar 14 17:44:07 2003
+++ closure/src/parse/sgml-parse.lisp	Sun Mar 13 19:02:40 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: An SGML Parser
 ;;;   Created: 1996-10-21
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1996-1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; Changes
 ;;



From gbaumann at common-lisp.net  Sun Mar 13 18:03:05 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 19:03:05 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/patches/clx-patch.lisp 
Message-ID: <20050313180305.5D5E28867A@common-lisp.net>

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

Modified Files:
	clx-patch.lisp 
Log Message:
Gross license change
Date: Sun Mar 13 19:03:01 2005
Author: gbaumann

Index: closure/src/patches/clx-patch.lisp
diff -u closure/src/patches/clx-patch.lisp:1.3 closure/src/patches/clx-patch.lisp:1.4
--- closure/src/patches/clx-patch.lisp:1.3	Sun Jun 15 18:47:44 2003
+++ closure/src/patches/clx-patch.lisp	Sun Mar 13 19:02:58 2005
@@ -2,9 +2,10 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Some CLX patches
 ;;;   Created: 1999-05-10 23:42
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;; ---------------------------------------------------------------------------
 ;;; (c) copyright 1999 by Gilbert Baumann
+;;;
 ;;; Portions Copyright (C) 1987 Texas Instruments Incorporated.
 ;;;
 



From gbaumann at common-lisp.net  Sun Mar 13 18:03:24 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 19:03:24 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/protocols/css-support.lisp
	closure/src/protocols/element.lisp
	closure/src/protocols/package.lisp 
Message-ID: <20050313180324.B7E2B8866C@common-lisp.net>

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

Modified Files:
	css-support.lisp element.lisp package.lisp 
Log Message:
Gross license change
Date: Sun Mar 13 19:03:10 2005
Author: gbaumann

Index: closure/src/protocols/css-support.lisp
diff -u closure/src/protocols/css-support.lisp:1.2 closure/src/protocols/css-support.lisp:1.3
--- closure/src/protocols/css-support.lisp:1.2	Fri Mar 14 18:01:40 2003
+++ closure/src/protocols/css-support.lisp	Sun Mar 13 19:03:05 2005
@@ -2,25 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Protocol to support CSS style sheet cascading
 ;;;   Created: 2002-08-07 03:40
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: LGPL (See file COPYING for details).
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 2002 by Gilbert Baumann
 
-;;; This library is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU Library General Public
-;;; License as published by the Free Software Foundation; either
-;;; version 2 of the License, or (at your option) any later version.
-;;;
-;;; This library is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; Library General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU Library General Public
-;;; License along with this library; if not, write to the 
-;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
-;;; Boston, MA  02111-1307  USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
 (in-package :CLOSURE-PROTOCOL)
 


Index: closure/src/protocols/element.lisp
diff -u closure/src/protocols/element.lisp:1.2 closure/src/protocols/element.lisp:1.3
--- closure/src/protocols/element.lisp:1.2	Thu Mar 13 20:29:17 2003
+++ closure/src/protocols/element.lisp	Sun Mar 13 19:03:05 2005
@@ -2,25 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: The Closure Element Protocol
 ;;;   Created: 2002-08-07 03:29
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: LGPL (See file COPYING for details).
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 2002 by Gilbert Baumann
 
-;;; This library is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU Library General Public
-;;; License as published by the Free Software Foundation; either
-;;; version 2 of the License, or (at your option) any later version.
-;;;
-;;; This library is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; Library General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU Library General Public
-;;; License along with this library; if not, write to the 
-;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
-;;; Boston, MA  02111-1307  USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
 (in-package :CLOSURE-PROTOCOL)
 


Index: closure/src/protocols/package.lisp
diff -u closure/src/protocols/package.lisp:1.2 closure/src/protocols/package.lisp:1.3
--- closure/src/protocols/package.lisp:1.2	Thu Mar 13 20:29:17 2003
+++ closure/src/protocols/package.lisp	Sun Mar 13 19:03:05 2005
@@ -2,25 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Package definition for the Closure Protocols container package
 ;;;   Created: 2002-08-07 03:26
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: LGPL (See file COPYING for details).
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 2002 by Gilbert Baumann
 
-;;; This library is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU Library General Public
-;;; License as published by the Free Software Foundation; either
-;;; version 2 of the License, or (at your option) any later version.
-;;;
-;;; This library is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; Library General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU Library General Public
-;;; License along with this library; if not, write to the 
-;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
-;;; Boston, MA  02111-1307  USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (defpackage :CLOSURE-PROTOCOL
     (:use :glisp)



From gbaumann at common-lisp.net  Sun Mar 13 18:04:09 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 19:04:09 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/util/character-set.lisp
	closure/src/util/clex.lisp closure/src/util/xterm.lisp 
Message-ID: <20050313180409.469778866C@common-lisp.net>

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

Modified Files:
	character-set.lisp clex.lisp xterm.lisp 
Log Message:
Gross license change
Date: Sun Mar 13 19:04:00 2005
Author: gbaumann

Index: closure/src/util/character-set.lisp
diff -u closure/src/util/character-set.lisp:1.1.1.1 closure/src/util/character-set.lisp:1.2
--- closure/src/util/character-set.lisp:1.1.1.1	Mon Jul 22 04:27:19 2002
+++ closure/src/util/character-set.lisp	Sun Mar 13 19:03:57 2005
@@ -2,24 +2,29 @@
 ;;; --------------------------------------------------------------------------------------
 ;;;     Title: Character Sets (considered harmful)
 ;;;   Created: 1998-05-31
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; --------------------------------------------------------------------------------------
 ;;;  (c) copyright 1998,1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :ws/Charset)
 


Index: closure/src/util/clex.lisp
diff -u closure/src/util/clex.lisp:1.2 closure/src/util/clex.lisp:1.3
--- closure/src/util/clex.lisp:1.2	Sun Jun 22 17:07:45 2003
+++ closure/src/util/clex.lisp	Sun Mar 13 19:03:57 2005
@@ -2,25 +2,29 @@
 ;;; --------------------------------------------------------------------------------------
 ;;;     Title: A flex like scanner generator for Common LISP
 ;;;   Created: 1997-10-12
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: LGPL (See file COPYING for details).
 ;;; --------------------------------------------------------------------------------------
 ;;;  (c) copyright 1997-1999 by Gilbert Baumann
 
-;;; This library is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU Library General Public
-;;; License as published by the Free Software Foundation; either
-;;; version 2 of the License, or (at your option) any later version.
-;;;
-;;; This library is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; Library General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU Library General Public
-;;; License along with this library; if not, write to the 
-;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
-;;; Boston, MA  02111-1307  USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (defpackage :clex
   (:use :glisp)


Index: closure/src/util/xterm.lisp
diff -u closure/src/util/xterm.lisp:1.1.1.1 closure/src/util/xterm.lisp:1.2
--- closure/src/util/xterm.lisp:1.1.1.1	Mon Jul 22 04:27:19 2002
+++ closure/src/util/xterm.lisp	Sun Mar 13 19:03:58 2005
@@ -1,15 +1,31 @@
 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: XTERM; -*-
-;;; --------------------------------------------------------------------------------------
+;;; ---------------------------------------------------------------------------
 ;;;     Title: Open a stream to an xterm window
-;;;   Created: 1999-05-16 09:54
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;; --------------------------------------------------------------------------------------
+;;;   Created: 1999-05-16
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;; This is inspired by the original xterm.lsp by
-;;  Bruce Krulwich <krulwich at ils.nwu.edu> 30.12.1991
-;;  Bruno Haible <haible at ma2s2.mathematik.uni-karlsruhe.de> 4.1.1994
-;; but much more minimalistic.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
 
 (defpackage :XTERM
   (:use :glisp)



From gbaumann at common-lisp.net  Sun Mar 13 19:24:11 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 20:24:11 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/closure.system 
Message-ID: <20050313192411.9F1D688669@common-lisp.net>

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

Modified Files:
	closure.system 
Log Message:
make it at least compile and show a window with CMUCL 19a and cvs mcclim.
Date: Sun Mar 13 20:24:10 2005
Author: gbaumann

Index: closure/closure.system
diff -u closure/closure.system:1.5 closure/closure.system:1.6
--- closure/closure.system:1.5	Sun Jun 15 18:47:43 2003
+++ closure/closure.system	Sun Mar 13 20:24:10 2005
@@ -154,19 +154,19 @@
          (:file "css-support")))
 
      ;;; Libraries
-     
+
        (:module xml
         :source-pathname "xml"
         :components
         ((:file "package")
          (:file "encodings"       :depends-on ("package"))
          (:file "encodings-data"  :depends-on ("package" "encodings"))
-         (:file "dompack")
-         (:file "dom-impl"        :depends-on ("dompack"))
+         #+NIL(:file "dompack")
+         #+NIL(:file "dom-impl"        :depends-on ("dompack"))
          (:file "xml-stream"      :depends-on ("package"))
-         (:file "xml-name-rune-p" :depends-on ("package"))
-         (:file "xml-parse"       :depends-on ("package" "dompack"))
-         (:file "xml-canonic"     :depends-on ("package" "dompack" "xml-parse"))  ))
+         #+NIL (:file "xml-name-rune-p" :depends-on ("package"))
+         #+NIL(:file "xml-parse"       :depends-on ("package" "dompack"))
+         #+NIL(:file "xml-canonic"     :depends-on ("package" "dompack" "xml-parse"))  ))
 
      ;;; CLEX and LALR
      



From gbaumann at common-lisp.net  Sun Mar 13 19:24:14 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 20:24:14 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/glisp/runes.lisp 
Message-ID: <20050313192414.5F71A8866C@common-lisp.net>

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

Modified Files:
	runes.lisp 
Log Message:
make it at least compile and show a window with CMUCL 19a and cvs mcclim.
Date: Sun Mar 13 20:24:11 2005
Author: gbaumann

Index: closure/src/glisp/runes.lisp
diff -u closure/src/glisp/runes.lisp:1.4 closure/src/glisp/runes.lisp:1.5
--- closure/src/glisp/runes.lisp:1.4	Sun Mar 13 19:01:16 2005
+++ closure/src/glisp/runes.lisp	Sun Mar 13 20:24:11 2005
@@ -345,13 +345,13 @@
   #+CMU
   (unless (really-really-rod-p rod)
     (push (ext:make-weak-pointer rod)
-          (aref *rod-hash-table* (mod (cl::pointer-hash rod)
+          (aref *rod-hash-table* (mod (lisp::pointer-hash rod)
                                       (length *rod-hash-table*)))))
   rod)
 
 (defun really-really-rod-p (rod)
   #+CMU
-  (find rod (aref *rod-hash-table* (mod (cl::pointer-hash rod)
+  (find rod (aref *rod-hash-table* (mod (lisp::pointer-hash rod)
                                         (length *rod-hash-table*)))
         :key #'ext:weak-pointer-value))
 
@@ -364,7 +364,7 @@
             (loop for item in bucket do
                   (let ((v (ext:weak-pointer-value item)))
                     (when v
-                      (push item (aref new (mod (cl::pointer-hash v) n)))))))
+                      (push item (aref new (mod (lisp::pointer-hash v) n)))))))
       (setf *rod-hash-table* new)))
 
   (defun rod-hash-after-gc-hook ()



From gbaumann at common-lisp.net  Sun Mar 13 19:24:16 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 20:24:16 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/gui/clim-gui.lisp 
Message-ID: <20050313192416.B4A548867A@common-lisp.net>

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

Modified Files:
	clim-gui.lisp 
Log Message:
make it at least compile and show a window with CMUCL 19a and cvs mcclim.
Date: Sun Mar 13 20:24:14 2005
Author: gbaumann

Index: closure/src/gui/clim-gui.lisp
diff -u closure/src/gui/clim-gui.lisp:1.12 closure/src/gui/clim-gui.lisp:1.13
--- closure/src/gui/clim-gui.lisp:1.12	Sun Mar 13 19:01:37 2005
+++ closure/src/gui/clim-gui.lisp	Sun Mar 13 20:24: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.12 2005/03/13 18:01:37 gbaumann Exp $
+;;;       $Id: clim-gui.lisp,v 1.13 2005/03/13 19:24:14 gbaumann 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.13  2005/03/13 19:24:14  gbaumann
+;; make it at least compile and show a window with CMUCL 19a and cvs mcclim.
+;;
 ;; Revision 1.12  2005/03/13 18:01:37  gbaumann
 ;; Gross license change
 ;;
@@ -163,7 +166,7 @@
            wholine
            2
            (200 status)))))
-  (:top-level (closure-frame-top-level . nil))
+  ;; (:top-level (closure-frame-top-level . nil))
   )
 
 
@@ -262,7 +265,7 @@
 (define-closure-command com-hide-listener ()
   (setf (sheet-enabled-p (sheet-parent (find-pane-named *application-frame* 'interactor))) nil))
 
-(define-closure-command com-visit-url ((url 'url)) ;;; :gesture :select))
+(define-closure-command (com-visit-url :name t) ((url 'url)) ;;; :gesture :select))
   (let ((*standard-output* *query-io*)) ;;(find-pane-named *frame* 'interactor)))
     (with-text-style (*standard-output* (make-text-style :sans-serif :roman :normal))
       (format t "You are visiting "))
@@ -450,18 +453,15 @@
           :very-large 18
           :huge 24))
   (gui::init-closure)
-  #+NIL
-  (loop for port in climi::*all-ports*
-        do (destroy-port port))
-  (setq climi::*all-ports* nil)
   ;;
-  (setf *frame* (make-application-frame 'closure))
-  (setf *pane*  (find-pane-named *frame* 'canvas))
   (setf *closure-process*
         (clim-sys:make-process
          (lambda ()
            (unwind-protect
-                (run-frame-top-level *frame*)
+                (progn
+                  (setf *frame* (make-application-frame 'closure))
+                  (setf *pane*  (find-pane-named *frame* 'canvas))
+                  (run-frame-top-level *frame*))
              (ignore-errors (ws/netlib::commit-cache))
              (setf *closure-process* nil)))
          :name "Closure")))



From gbaumann at common-lisp.net  Sun Mar 13 19:24:22 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 20:24:22 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/renderer/clim-device.lisp 
Message-ID: <20050313192422.87D298866C@common-lisp.net>

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

Modified Files:
	clim-device.lisp 
Log Message:
make it at least compile and show a window with CMUCL 19a and cvs mcclim.
Date: Sun Mar 13 20:24:16 2005
Author: gbaumann

Index: closure/src/renderer/clim-device.lisp
diff -u closure/src/renderer/clim-device.lisp:1.7 closure/src/renderer/clim-device.lisp:1.8
--- closure/src/renderer/clim-device.lisp:1.7	Sun Mar 13 19:03:24 2005
+++ closure/src/renderer/clim-device.lisp	Sun Mar 13 20:24:16 2005
@@ -390,6 +390,7 @@
                    :actual-width  (or width (r2::aimage-width aim))
                    :actual-height (or height (r2::aimage-height aim)))))
 
+#+NIL
 (climi::def-grecording draw-ro (() ro x y)
         (values x
                 (- y (nth-value 1 (r2::ro/size ro)))
@@ -430,6 +431,7 @@
                          (xlib:copy-area pixmap gcontext 0 0 actual-width actual-height
                           da x (- y actual-height) ))))))))))))
 
+#+NIL
 (climi::def-grecording draw-pm3-tiled (() pixmap mask x1 y1 w h x0 y0)
                        (values x1 y1 (+ x1 w) (+ y1 h)))
 



From gbaumann at common-lisp.net  Sun Mar 13 18:03:58 2005
From: gbaumann at common-lisp.net (Gilbert Baumann)
Date: Sun, 13 Mar 2005 19:03:58 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/renderer/clim-device.lisp
	closure/src/renderer/clim-draw.lisp closure/src/renderer/device.lisp
	closure/src/renderer/document.lisp closure/src/renderer/fonts.lisp
	closure/src/renderer/hyphenation.lisp
	closure/src/renderer/images.lisp closure/src/renderer/list-item.lisp
	closure/src/renderer/package.lisp closure/src/renderer/r-struct.lisp
	closure/src/renderer/raux.lisp closure/src/renderer/renderer.lisp
	closure/src/renderer/renderer2.lisp closure/src/renderer/tables.lisp
	closure/src/renderer/texpara.lisp closure/src/renderer/x11.lisp 
Message-ID: <20050313180358.C9A8D8866C@common-lisp.net>

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

Modified Files:
	clim-device.lisp clim-draw.lisp device.lisp document.lisp 
	fonts.lisp hyphenation.lisp images.lisp list-item.lisp 
	package.lisp r-struct.lisp raux.lisp renderer.lisp 
	renderer2.lisp tables.lisp texpara.lisp x11.lisp 
Log Message:
Gross license change
Date: Sun Mar 13 19:03:27 2005
Author: gbaumann

Index: closure/src/renderer/clim-device.lisp
diff -u closure/src/renderer/clim-device.lisp:1.6 closure/src/renderer/clim-device.lisp:1.7
--- closure/src/renderer/clim-device.lisp:1.6	Sun Jun 15 18:54:30 2003
+++ closure/src/renderer/clim-device.lisp	Sun Mar 13 19:03:24 2005
@@ -1,4 +1,32 @@
-(in-package :closure/clim-device)
+;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOSURE/CLIM-DEVICE; -*-
+;;; ---------------------------------------------------------------------------
+;;;     Title: CLIM device for the renderer
+;;;   Created: ???
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;; ---------------------------------------------------------------------------
+;;;  (c) copyright 2005 by Gilbert Baumann
+
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+(in-package :CLOSURE/CLIM-DEVICE)
 
 (defclass clim-device ()
   ((medium :accessor clim-device-medium :initarg :medium)


Index: closure/src/renderer/clim-draw.lisp
diff -u closure/src/renderer/clim-draw.lisp:1.1 closure/src/renderer/clim-draw.lisp:1.2
--- closure/src/renderer/clim-draw.lisp:1.1	Thu Mar 13 20:30:56 2003
+++ closure/src/renderer/clim-draw.lisp	Sun Mar 13 19:03:24 2005
@@ -2,25 +2,30 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Drawing
 ;;;   Created: 2003-03-08
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
-;;;       $Id: clim-draw.lisp,v 1.1 2003/03/13 19:30:56 gilbert Exp $
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;;       $Id: clim-draw.lisp,v 1.2 2005/03/13 18:03:24 gbaumann Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2003 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
 (in-package :renderer)
 


Index: closure/src/renderer/device.lisp
diff -u closure/src/renderer/device.lisp:1.1 closure/src/renderer/device.lisp:1.2
--- closure/src/renderer/device.lisp:1.1	Thu Mar 13 20:30:56 2003
+++ closure/src/renderer/device.lisp	Sun Mar 13 19:03:24 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: A Little Device Abstraction
 ;;;   Created: 2003-03-08
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998-2003 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
 (in-package :RENDERER)
 


Index: closure/src/renderer/document.lisp
diff -u closure/src/renderer/document.lisp:1.3 closure/src/renderer/document.lisp:1.4
--- closure/src/renderer/document.lisp:1.3	Fri Mar 14 17:44:07 2003
+++ closure/src/renderer/document.lisp	Sun Mar 13 19:03:24 2005
@@ -2,24 +2,29 @@
 ;;; --------------------------------------------------------------------------------------
 ;;;     Title: The Document Class
 ;;;   Created: 1999-05-07 01:56
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; --------------------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :RENDERER)
 


Index: closure/src/renderer/fonts.lisp
diff -u closure/src/renderer/fonts.lisp:1.3 closure/src/renderer/fonts.lisp:1.4
--- closure/src/renderer/fonts.lisp:1.3	Fri Mar 14 18:06:16 2003
+++ closure/src/renderer/fonts.lisp	Sun Mar 13 19:03:24 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Abstract Font Database Interface 
 ;;;   Created: 1998-09-11
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998-2003 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :RENDERER)
 


Index: closure/src/renderer/hyphenation.lisp
diff -u closure/src/renderer/hyphenation.lisp:1.2 closure/src/renderer/hyphenation.lisp:1.3
--- closure/src/renderer/hyphenation.lisp:1.2	Sun Jun 15 18:54:30 2003
+++ closure/src/renderer/hyphenation.lisp	Sun Mar 13 19:03:24 2005
@@ -2,25 +2,30 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Hyphenation
 ;;;   Created: 2003-03-07
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
-;;;       $Id: hyphenation.lisp,v 1.2 2003/06/15 16:54:30 gilbert Exp $
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;;       $Id: hyphenation.lisp,v 1.3 2005/03/13 18:03:24 gbaumann Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999-2003 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
 (in-package :R2)
 
@@ -188,6 +193,9 @@
 ;; new:   .57s    2.400,000 bytes [technically zero]
 
 ;; $Log: hyphenation.lisp,v $
+;; Revision 1.3  2005/03/13 18:03:24  gbaumann
+;; Gross license change
+;;
 ;; Revision 1.2  2003/06/15 16:54:30  gilbert
 ;; Patches by Christophe Rhodes to get it going with SBCL.
 ;;


Index: closure/src/renderer/images.lisp
diff -u closure/src/renderer/images.lisp:1.1.1.1 closure/src/renderer/images.lisp:1.2
--- closure/src/renderer/images.lisp:1.1.1.1	Mon Jul 22 04:27:21 2002
+++ closure/src/renderer/images.lisp	Sun Mar 13 19:03:24 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: General image routines
 ;;;   Created: 1998-11-11
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; Changes
 ;;


Index: closure/src/renderer/list-item.lisp
diff -u closure/src/renderer/list-item.lisp:1.1 closure/src/renderer/list-item.lisp:1.2
--- closure/src/renderer/list-item.lisp:1.1	Thu Mar 13 20:30:56 2003
+++ closure/src/renderer/list-item.lisp	Sun Mar 13 19:03:24 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: List Items
 ;;;   Created: 2002-10-26
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2002 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
 (in-package :RENDERER)
 


Index: closure/src/renderer/package.lisp
diff -u closure/src/renderer/package.lisp:1.1 closure/src/renderer/package.lisp:1.2
--- closure/src/renderer/package.lisp:1.1	Thu Mar 13 20:30:56 2003
+++ closure/src/renderer/package.lisp	Sun Mar 13 19:03:24 2005
@@ -1,4 +1,32 @@
-(in-package :r2)
+;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: R2; -*-
+;;; ---------------------------------------------------------------------------
+;;;     Title: Fake package definition for R2
+;;;   Created: ???
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;; ---------------------------------------------------------------------------
+;;;  (c) copyright 2005 by Gilbert Baumann
+
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+(in-package :R2)
 
 ;; evil
 


Index: closure/src/renderer/r-struct.lisp
diff -u closure/src/renderer/r-struct.lisp:1.2 closure/src/renderer/r-struct.lisp:1.3
--- closure/src/renderer/r-struct.lisp:1.2	Thu Mar 13 20:29:17 2003
+++ closure/src/renderer/r-struct.lisp	Sun Mar 13 19:03:24 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: The Renderer's Data Structures
 ;;;   Created: 1999-01-08
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;;  When        Who     What
 ;; ----------------------------------------------------------------------------


Index: closure/src/renderer/raux.lisp
diff -u closure/src/renderer/raux.lisp:1.4 closure/src/renderer/raux.lisp:1.5
--- closure/src/renderer/raux.lisp:1.4	Thu Mar 13 20:29:17 2003
+++ closure/src/renderer/raux.lisp	Sun Mar 13 19:03:24 2005
@@ -2,24 +2,29 @@
 ;;; --------------------------------------------------------------------------------------
 ;;;     Title: Auxiliary render functions
 ;;;   Created: 1999-02-24
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; --------------------------------------------------------------------------------------
 ;;;  (c) copyright 1998,1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :R2)
 


Index: closure/src/renderer/renderer.lisp
diff -u closure/src/renderer/renderer.lisp:1.9 closure/src/renderer/renderer.lisp:1.10
--- closure/src/renderer/renderer.lisp:1.9	Fri Mar 14 18:06:16 2003
+++ closure/src/renderer/renderer.lisp	Sun Mar 13 19:03:25 2005
@@ -2,25 +2,31 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: The Renderer's Heart
 ;;;   Created: long ago
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
-;;;       $Id: renderer.lisp,v 1.9 2003/03/14 17:06:16 dan Exp $
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;;       $Id: renderer.lisp,v 1.10 2005/03/13 18:03:25 gbaumann Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2002 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
 
 (in-package :R2)
 


Index: closure/src/renderer/renderer2.lisp
diff -u closure/src/renderer/renderer2.lisp:1.6 closure/src/renderer/renderer2.lisp:1.7
--- closure/src/renderer/renderer2.lisp:1.6	Sun Jun 15 18:47:44 2003
+++ closure/src/renderer/renderer2.lisp	Sun Mar 13 19:03:25 2005
@@ -2,25 +2,30 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: The Core of the Renderer
 ;;;   Created: somewhen late 2002
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
-;;;       $Id: renderer2.lisp,v 1.6 2003/06/15 16:47:44 gilbert Exp $
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;;       $Id: renderer2.lisp,v 1.7 2005/03/13 18:03:25 gbaumann Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2003 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
 (in-package :R2)
 
@@ -5056,6 +5061,9 @@
 
 
 ;; $Log: renderer2.lisp,v $
+;; Revision 1.7  2005/03/13 18:03:25  gbaumann
+;; Gross license change
+;;
 ;; Revision 1.6  2003/06/15 16:47:44  gilbert
 ;; OpenMCL patches by Patrik Nordebo
 ;;


Index: closure/src/renderer/tables.lisp
diff -u closure/src/renderer/tables.lisp:1.2 closure/src/renderer/tables.lisp:1.3
--- closure/src/renderer/tables.lisp:1.2	Thu Mar 13 20:29:17 2003
+++ closure/src/renderer/tables.lisp	Sun Mar 13 19:03:25 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: Table Renderer
 ;;;   Created: 1999-05-25
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998,1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 (in-package :RENDERER)
 


Index: closure/src/renderer/texpara.lisp
diff -u closure/src/renderer/texpara.lisp:1.5 closure/src/renderer/texpara.lisp:1.6
--- closure/src/renderer/texpara.lisp:1.5	Sun Jun 15 18:47:44 2003
+++ closure/src/renderer/texpara.lisp	Sun Mar 13 19:03:25 2005
@@ -1,3 +1,31 @@
+;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: TEXPARA; -*-
+;;; ---------------------------------------------------------------------------
+;;;     Title: TeX like paragraph formatting
+;;;   Created: ???
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
+;;; ---------------------------------------------------------------------------
+;;;  (c) copyright 2005 by Gilbert Baumann
+
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
 (defpackage :texpara (:use #:cl))
 
 (in-package :texpara)


Index: closure/src/renderer/x11.lisp
diff -u closure/src/renderer/x11.lisp:1.5 closure/src/renderer/x11.lisp:1.6
--- closure/src/renderer/x11.lisp:1.5	Sat Mar 15 11:10:45 2003
+++ closure/src/renderer/x11.lisp	Sun Mar 13 19:03:25 2005
@@ -2,24 +2,29 @@
 ;;; ---------------------------------------------------------------------------
 ;;;     Title: X11 specific stuff
 ;;;   Created: 1998-11-11
-;;;    Author: Gilbert Baumann <unk6 at rz.uni-karlsruhe.de>
-;;;   License: GPL (See file COPYING for details).
+;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
+;;;   License: MIT style (see below)
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1998,1999 by Gilbert Baumann
 
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, write to the Free Software
-;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+;;;  Permission is hereby granted, free of charge, to any person obtaining
+;;;  a copy of this software and associated documentation files (the
+;;;  "Software"), to deal in the Software without restriction, including
+;;;  without limitation the rights to use, copy, modify, merge, publish,
+;;;  distribute, sublicense, and/or sell copies of the Software, and to
+;;;  permit persons to whom the Software is furnished to do so, subject to
+;;;  the following conditions:
+;;; 
+;;;  The above copyright notice and this permission notice shall be
+;;;  included in all copies or substantial portions of the Software.
+;;; 
+;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
+;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;;; Changes
 



From emarsden at common-lisp.net  Sun Mar 13 20:53:58 2005
From: emarsden at common-lisp.net (Eric Marsden)
Date: Sun, 13 Mar 2005 21:53:58 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/patch.lisp 
Message-ID: <20050313205358.3599888669@common-lisp.net>

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

Modified Files:
	patch.lisp 
Log Message:
 - Remove obsolete stuff in patch.lisp (this should get rid of the MATCH-ERROR
   upon startup)
 - Add a patch to clim-clx that allows SBCL to display non-ASCII characters
   via CLX

Date: Sun Mar 13 21:53:57 2005
Author: emarsden

Index: closure/src/patch.lisp
diff -u closure/src/patch.lisp:1.6 closure/src/patch.lisp:1.7
--- closure/src/patch.lisp:1.6	Sun Mar 13 19:00:56 2005
+++ closure/src/patch.lisp	Sun Mar 13 21:53:57 2005
@@ -2,126 +2,23 @@
 ;;;; Last minute patches
 ;;;;
 
-
-;;;; ----------------------------------------------------------------------------------------------------
-
+;; from http://paste.lisp.org/display/6063, to allow SBCL to display
+;; non-ASCII characters via CLX
 (in-package :clim-clx)
 
-(defclass clx-medium (basic-medium)
-  ())
-
-;; "So einfach und doch so schnell ..."
-
-;; Only problem: clipping ;( we want to cache regions to gcontexts and
-;; setup clipping by copying.
-
-;; Further: split into line gcontexts and text-gcontext or cope with
-;; don't care. A rete network might be now bad idea
-
-(defmethod (setf medium-text-style) :before (text-style (medium clx-medium)))
-(defmethod (setf medium-line-style) :before (line-style (medium clx-medium)))
-(defmethod (setf medium-clipping-region) :after (region (medium clx-medium)))
-
-(eval-when (compile eval load)
-  (fmakunbound 'medium-gcontext))
-
-(defvar *gc-hash* (make-hash-table :test #'equal))
-
-(defun medium-gcontext (medium ink)
-  (with-slots (climi::foreground climi::background line-style text-style climi::clipping-region) medium
-    (let ((foreground climi::foreground)
-          (background climi::background)
-          (clipping-region climi::clipping-region))
-      (let* ((key (list foreground background line-style text-style ink :clipping-region))
-             (gc
-              (or (gethash key *gc-hash*)
-                  (setf (gethash key *gc-hash*)
-                        (funcall 'make-medium-gcontext*
-                                 medium foreground background
-                                 line-style text-style ink
-                                 clipping-region)))))
-        (cond ((region-equal clipping-region +nowhere+)
-               )
-              ((region-equal clipping-region +everywhere+)
-               (setf (xlib:gcontext-clip-mask gc :unsorted) :none))
-              (t
-               (let ((rect-seq (clipping-region->rect-seq clipping-region)))
-                 (when rect-seq
-                   #+nil
-                   ;; ok, what McCLIM is generating is not :yx-banded... (currently at least)
-                   (setf (xlib:gcontext-clip-mask gc :yx-banded) rect-seq)
-                   #-nil
-                   ;; the region code doesn't support yx-banding...
-                   ;; or does it? what does y-banding mean in this implementation?
-                   ;; well, apparantly it doesn't mean what y-sorted means
-                   ;; to clx :] we stick with :unsorted until that can be sorted out
-                   (setf (xlib:gcontext-clip-mask gc :unsorted) rect-seq)))))
-        gc))))
-
-(defmethod make-medium-gcontext* (medium foreground background line-style text-style (ink color) clipping-region)
-  (let* ((drawable (sheet-mirror (medium-sheet medium)))
-         (port (port medium)))
-    (let ((gc (xlib:create-gcontext :drawable drawable)))
-      (setf (xlib:gcontext-font gc) (text-style-to-X-font port text-style)
-            (xlib:gcontext-foreground gc) (X-pixel port ink)
-            )
-      gc)))
-
-(defmethod make-medium-gcontext* (medium foreground background line-style text-style (ink (eql +flipping-ink+)) clipping-region)
-  (let* ((gc (make-medium-gcontext* medium foreground background line-style text-style +black+ clipping-region))
-         (port (port medium))
-	 (flipper (logxor (X-pixel port (medium-foreground medium))
-			  (X-pixel port (medium-background medium)))))
-    ;; Now, (logxor flipper foreground) => background
-    ;; (logxor flipper background) => foreground
-    (setf (xlib:gcontext-function gc) boole-xor)
-    (setf (xlib:gcontext-foreground gc) flipper)
-    (setf (xlib:gcontext-background gc) flipper)
-    gc))
-
-(defmethod make-medium-gcontext* (medium foreground background line-style text-style (ink (eql +foreground-ink+)) clipping-region)
-  (make-medium-gcontext* medium foreground background line-style text-style foreground clipping-region))
-
-(defmethod make-medium-gcontext* (medium foreground background line-style text-style (ink (eql +background-ink+)) clipping-region)
-  (make-medium-gcontext* medium foreground background line-style text-style background clipping-region))
-
-;;;;;
-
-(defmethod initialize-clx ((port clx-port))
-  (let ((options (cdr (port-server-path port))))
-    (setf (clx-port-display port)
-          #-sbcl
-	  (xlib:open-display (getf options :host "") :display (getf options :display-id 0))
-	  #+sbcl
-	  (xlib:open-default-display))
-    (progn
-      #+NIL
-      (setf (xlib:display-error-handler (clx-port-display port))
-        #'clx-error-handler)
-      )
-    
-    (setf (clx-port-screen port) (nth (getf options :screen-id 0)
-				      (xlib:display-roots (clx-port-display port))))
-    (setf (clx-port-window port) (xlib:screen-root (clx-port-screen port)))
-
-    (make-graft port)
-    (when clim-sys:*multiprocessing-p*
-      (setf (port-event-process port)
-        (clim-sys:make-process
-         (lambda ()
-           (loop
-             (with-simple-restart
-                 (restart-event-loop
-                  "Restart CLIM's event loop.")
-               (loop
-                 (process-next-event port)))))
-         :name (format nil "~S's event process." port)))) ))
-
-
-;;;; ----------------------------------------------------------------------------------------------------
-
-(in-package :climi)
-
-(defmethod clim:sheet-native-transformation ((sheet null)) clim:+identity-transformation+)
-(defmethod clim:medium-sheet ((sheet sheet)) sheet)
-
+(defun translate (src src-start src-end afont dst dst-start)
+  (let ((min-char-index (xlib:font-min-char afont))
+        (max-char-index (xlib:font-max-char afont)))
+    (if (stringp src)
+        (loop for i from src-start below src-end
+              for j from dst-start
+              for index = (char-code (aref src i))
+              while (<= min-char-index index max-char-index)
+              do (setf (aref dst j) index)
+              finally (return i))
+        (loop for i from src-start below src-end
+              for j from dst-start
+              for index = (if (characterp (aref src i)) (char-code (aref src i)) (aref src i))
+              while (<= min-char-index index max-char-index)
+              do (setf (aref dst j) index)
+              finally (return i)))))



From emarsden at common-lisp.net  Sun Mar 13 20:54:53 2005
From: emarsden at common-lisp.net (Eric Marsden)
Date: Sun, 13 Mar 2005 21:54:53 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/closure.asd 
Message-ID: <20050313205453.3413C88669@common-lisp.net>

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

Modified Files:
	closure.asd 
Log Message:
Remove dependency on the clx system.

Date: Sun Mar 13 21:54:52 2005
Author: emarsden

Index: closure/closure.asd
diff -u closure/closure.asd:1.3 closure/closure.asd:1.4
--- closure/closure.asd:1.3	Fri Jul  4 21:44:21 2003
+++ closure/closure.asd	Sun Mar 13 21:54:52 2005
@@ -84,8 +84,7 @@
 
 
 (asdf:defsystem closure
-    :depends-on (:clx
-                 :clim
+    :depends-on (:clim
                  :clim-clx
                  :glisp)
     :default-component-class closure-source-file



From emarsden at common-lisp.net  Sun Mar 13 20:58:32 2005
From: emarsden at common-lisp.net (Eric Marsden)
Date: Sun, 13 Mar 2005 21:58:32 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/gui/clim-gui.lisp 
Message-ID: <20050313205832.35D7C88669@common-lisp.net>

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

Modified Files:
	clim-gui.lisp 
Log Message:
 - Update to new McCLIM requirements on DEFINE-xx-COMMAND, adding :name t
   so that commands are available from listener pane

Date: Sun Mar 13 21:58:31 2005
Author: emarsden

Index: closure/src/gui/clim-gui.lisp
diff -u closure/src/gui/clim-gui.lisp:1.13 closure/src/gui/clim-gui.lisp:1.14
--- closure/src/gui/clim-gui.lisp:1.13	Sun Mar 13 20:24:14 2005
+++ closure/src/gui/clim-gui.lisp	Sun Mar 13 21:58:31 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.13 2005/03/13 19:24:14 gbaumann Exp $
+;;;       $Id: clim-gui.lisp,v 1.14 2005/03/13 20:58:31 emarsden Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 2002 by Gilbert Baumann
 
@@ -28,6 +28,10 @@
 ;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; $Log: clim-gui.lisp,v $
+;; Revision 1.14  2005/03/13 20:58:31  emarsden
+;;  - Update to new McCLIM requirements on DEFINE-xx-COMMAND, adding :name t
+;;    so that commands are available from listener pane
+;;
 ;; Revision 1.13  2005/03/13 19:24:14  gbaumann
 ;; make it at least compile and show a window with CMUCL 19a and cvs mcclim.
 ;;
@@ -85,7 +89,7 @@
 (defclass closure-pane (application-pane)
   ())
 
-;;; Curde History
+;;; Crude History
 
 (defvar *back-history* nil)
 (defvar *forw-history* nil)
@@ -259,10 +263,10 @@
 ;;;; Commands
 ;;;;
 
-(define-closure-command com-show-listener ()
+(define-closure-command (com-show-listener :name t) ()
   (setf (sheet-enabled-p (sheet-parent (find-pane-named *application-frame* 'interactor))) t))
 
-(define-closure-command com-hide-listener ()
+(define-closure-command (com-hide-listener :name t) ()
   (setf (sheet-enabled-p (sheet-parent (find-pane-named *application-frame* 'interactor))) nil))
 
 (define-closure-command (com-visit-url :name t) ((url 'url)) ;;; :gesture :select))
@@ -277,10 +281,10 @@
   (let ((*standard-output* *trace-output*))
     (foo url)))
 
-(define-closure-command com-reflow ()
+(define-closure-command (com-reflow :name t) ()
   (reflow))
 
-(define-closure-command com-back ()
+(define-closure-command (com-back :name t) ()
   (let ((*standard-output* *query-io*)) 
     (cond ((null (cdr *back-history*))
            (format t "There is nowhere you can go back to.~%"))
@@ -289,7 +293,7 @@
            (format t "Going back to ~S.~%" (first *back-history*))
            (foo (first *back-history*))))))
 
-(define-closure-command com-forward ()
+(define-closure-command (com-forward :name t) ()
   (let ((*standard-output* *query-io*)) 
     (cond ((null *forw-history*)
            (format t "There is nowhere you can go forward to.~%"))
@@ -298,7 +302,7 @@
            (format t "Going forward to ~S.~%" (first *back-history*))
            (foo (first *back-history*))))))
 
-(define-closure-command com-reload ()
+(define-closure-command (com-reload :name t) ()
   (let ((*standard-output* *query-io*)) 
     (cond ((null *back-history*)
            (format t "There is nothing to reload.~%"))
@@ -306,15 +310,15 @@
            (format t "Reloading ~S.~%" (first *back-history*))
            (foo (first *back-history*))))))
 
-(define-closure-command com-images-off ()
+(define-closure-command (com-images-off :name t) ()
   (setf closure:*user-wants-images-p* nil)
   (format *query-io* "Images are now off.~%"))
 
-(define-closure-command com-images-on ()
+(define-closure-command (com-images-on :name t) ()
   (setf closure:*user-wants-images-p* t)
   (format *query-io* "Images are now on. You may want to reload.~%"))
 
-(define-closure-command com-quit ()
+(define-closure-command (com-quit :name t) ()
   (throw 'closure-quit nil))
 
 (defun make-google-search-url (string)
@@ -325,15 +329,15 @@
                          (cons "q" string)))
    (url:parse-url "http://www.google.com/search")))
 
-(define-closure-command com-reverse-search-google ((url 'url))
+(define-closure-command (com-reverse-search-google :name t) ((url 'url))
   (let ((*standard-output* *trace-output*))
     (com-visit-url
      (make-google-search-url (format nil "link:~A" url)))))
 
-(define-closure-command com-search-google ((what 'string))
+(define-closure-command (com-search-google :name t) ((what 'string))
   (com-visit-url (make-google-search-url what)))
 
-(define-closure-command com-home ()
+(define-closure-command (com-home :name t) ()
   (com-visit-url closure:*home-page*))
 
 (define-presentation-translator fofo



From emarsden at common-lisp.net  Sun Mar 13 21:02:00 2005
From: emarsden at common-lisp.net (Eric Marsden)
Date: Sun, 13 Mar 2005 22:02:00 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/html/html-style.lisp 
Message-ID: <20050313210200.E30A188669@common-lisp.net>

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

Modified Files:
	html-style.lisp 
Log Message:
 - Fix use of *STYLE-SHEET-CACHE*/LOCK. Was causing recursive lock attempts
   that were detected by SBCL's mutexes. 

Date: Sun Mar 13 22:01:59 2005
Author: emarsden

Index: closure/src/html/html-style.lisp
diff -u closure/src/html/html-style.lisp:1.3 closure/src/html/html-style.lisp:1.4
--- closure/src/html/html-style.lisp:1.3	Sun Mar 13 19:01:54 2005
+++ closure/src/html/html-style.lisp	Sun Mar 13 22:01:59 2005
@@ -389,22 +389,24 @@
 (defun maybe-parse-style-sheet-from-url (url &key (name "anonymous") 
                                                   (supersheet nil)
                                                   (media-type :all))
-  (mp/with-lock (*style-sheet-cache*/lock)
-    (multiple-value-bind (looked presentp) (gethash url *style-sheet-cache*)
-      (cond (presentp
-             (format T "~&;; Serving style sheet ~S [at ~S] from cache.~%"
-                     name url)
-             looked)
-            (t
-             (format T "~&;; fetching and parsing style sheet ~S [at ~S].~%"
-                     name url)
-             (let ((res (maybe-parse-style-sheet-from-url-aux
-                         url 
-                         :name name 
-                         :supersheet supersheet
-                         :media-type media-type)))
-               (setf (gethash url *style-sheet-cache*) res)
-               res))))))
+  (multiple-value-bind (looked presentp)
+      (mp/with-lock (*style-sheet-cache*/lock)
+          (gethash url *style-sheet-cache*))
+    (cond (presentp
+           (format *debug-io* "~&;; Serving style sheet ~S [at ~S] from cache.~%"
+                   name url)
+           looked)
+          (t
+           (format *debug-io* "~&;; fetching and parsing style sheet ~S [at ~S].~%"
+                   name url)
+           (let ((res (maybe-parse-style-sheet-from-url-aux
+                       url 
+                       :name name 
+                       :supersheet supersheet
+                       :media-type media-type)))
+             (mp/with-lock (*style-sheet-cache*/lock)
+                (setf (gethash url *style-sheet-cache*) res))
+             res)))))
 
 (defun maybe-parse-style-sheet-from-url-aux (url &key (name "anonymous") 
                                                   (supersheet nil)



From emarsden at common-lisp.net  Sun Mar 13 21:15:09 2005
From: emarsden at common-lisp.net (Eric Marsden)
Date: Sun, 13 Mar 2005 22:15:09 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/gui/clim-gui.lisp 
Message-ID: <20050313211509.0AE1088669@common-lisp.net>

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

Modified Files:
	clim-gui.lisp 
Log Message:
Add zoom support to the renderer, accessible via the commands com-zoom-in,
com-zoom-out and com-zoom-100%.

Date: Sun Mar 13 22:15:07 2005
Author: emarsden

Index: closure/src/gui/clim-gui.lisp
diff -u closure/src/gui/clim-gui.lisp:1.14 closure/src/gui/clim-gui.lisp:1.15
--- closure/src/gui/clim-gui.lisp:1.14	Sun Mar 13 21:58:31 2005
+++ closure/src/gui/clim-gui.lisp	Sun Mar 13 22:15:06 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.14 2005/03/13 20:58:31 emarsden Exp $
+;;;       $Id: clim-gui.lisp,v 1.15 2005/03/13 21:15:06 emarsden Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 2002 by Gilbert Baumann
 
@@ -28,6 +28,10 @@
 ;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; $Log: clim-gui.lisp,v $
+;; Revision 1.15  2005/03/13 21:15:06  emarsden
+;; Add zoom support to the renderer, accessible via the commands com-zoom-in,
+;; com-zoom-out and com-zoom-100%.
+;;
 ;; Revision 1.14  2005/03/13 20:58:31  emarsden
 ;;  - Update to new McCLIM requirements on DEFINE-xx-COMMAND, adding :name t
 ;;    so that commands are available from listener pane
@@ -83,6 +87,7 @@
 
 (defvar closure:*home-page* "http://www.stud.uni-karlsruhe.de/~unk6/closure/user.html")
 (defvar closure:*user-wants-images-p* t)
+(defvar closure::*zoom-factor* 1.0)
 
 (defvar *closure-process* nil)
 
@@ -619,4 +624,20 @@
     (clim:window-clear (clim:frame-query-io clim:*application-frame*)))
 
 ;;;; ----------------------------------------------------------------------------------------------------
+
+
+(define-closure-command (com-zoom-100% :name t) ()
+  (setq closure::*zoom-factor* 1.0)
+  (send-closure-command 'com-reflow))
+
+;; FIXME the :shift here is a McCLIM bug
+(define-closure-command (com-zoom-in :name t :keystroke (#\+ :control :shift)) ()
+  (write-status "Zooming in...")
+  (setq closure::*zoom-factor* (* closure::*zoom-factor* 1.2))
+  (send-closure-command 'com-reflow))
+
+(define-closure-command (com-zoom-out :name t :keystroke (#\- :control :shift)) ()
+  (write-status "Zooming out...")
+  (setq closure::*zoom-factor* (* closure::*zoom-factor* 0.8))
+  (send-closure-command 'com-reflow))
 



From emarsden at common-lisp.net  Sun Mar 13 21:15:12 2005
From: emarsden at common-lisp.net (Eric Marsden)
Date: Sun, 13 Mar 2005 22:15:12 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/renderer/clim-device.lisp 
Message-ID: <20050313211512.2F0D18867E@common-lisp.net>

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

Modified Files:
	clim-device.lisp 
Log Message:
Add zoom support to the renderer, accessible via the commands com-zoom-in,
com-zoom-out and com-zoom-100%.

Date: Sun Mar 13 22:15:09 2005
Author: emarsden

Index: closure/src/renderer/clim-device.lisp
diff -u closure/src/renderer/clim-device.lisp:1.8 closure/src/renderer/clim-device.lisp:1.9
--- closure/src/renderer/clim-device.lisp:1.8	Sun Mar 13 20:24:16 2005
+++ closure/src/renderer/clim-device.lisp	Sun Mar 13 22:15:09 2005
@@ -31,8 +31,7 @@
 (defclass clim-device ()
   ((medium :accessor clim-device-medium :initarg :medium)
    (font-database :initform nil)
-   (zoom-factor :initform 1.2 :initarg :zoom-factor)
-   ))
+   (zoom-factor :initform closure::*zoom-factor* :initarg :zoom-factor)))
 
 (defmethod device-dpi ((device clim-device))
   (with-slots (zoom-factor) device



From emarsden at common-lisp.net  Sun Mar 13 21:17:29 2005
From: emarsden at common-lisp.net (Eric Marsden)
Date: Sun, 13 Mar 2005 22:17:29 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/gui/clim-gui.lisp 
Message-ID: <20050313211729.42C2888669@common-lisp.net>

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

Modified Files:
	clim-gui.lisp 
Log Message:
 - Implement PageUp and PageDown support in the CLIM GUI. 
 - Add a Redraw command (with Ctrl-R accelerator)

Date: Sun Mar 13 22:17:28 2005
Author: emarsden

Index: closure/src/gui/clim-gui.lisp
diff -u closure/src/gui/clim-gui.lisp:1.15 closure/src/gui/clim-gui.lisp:1.16
--- closure/src/gui/clim-gui.lisp:1.15	Sun Mar 13 22:15:06 2005
+++ closure/src/gui/clim-gui.lisp	Sun Mar 13 22:17:28 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.15 2005/03/13 21:15:06 emarsden Exp $
+;;;       $Id: clim-gui.lisp,v 1.16 2005/03/13 21:17:28 emarsden Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 2002 by Gilbert Baumann
 
@@ -28,6 +28,10 @@
 ;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; $Log: clim-gui.lisp,v $
+;; Revision 1.16  2005/03/13 21:17:28  emarsden
+;;  - Implement PageUp and PageDown support in the CLIM GUI.
+;;  - Add a Redraw command (with Ctrl-R accelerator)
+;;
 ;; Revision 1.15  2005/03/13 21:15:06  emarsden
 ;; Add zoom support to the renderer, accessible via the commands com-zoom-in,
 ;; com-zoom-out and com-zoom-100%.
@@ -640,4 +644,26 @@
   (write-status "Zooming out...")
   (setq closure::*zoom-factor* (* closure::*zoom-factor* 0.8))
   (send-closure-command 'com-reflow))
+
+(define-closure-command (com-page-up :name t
+                                     :keystroke :prior) ()
+  (let* ((pane (find-pane-named *frame* 'canvas))
+         (scrollbar (slot-value (pane-scroller pane) 'climi::vscrollbar))
+         (current-y (gadget-value scrollbar))
+         (window-height (bounding-rectangle-height (pane-viewport-region pane))))
+    (scroll-extent pane 0 (max (gadget-min-value scrollbar) (- current-y (* 0.9 window-height))))))
+
+(define-closure-command (com-page-down :name t
+                                       :keystroke :next) ()
+  (let* ((pane (find-pane-named *frame* 'canvas))
+         (scrollbar (slot-value (pane-scroller pane) 'climi::vscrollbar))
+         (current-y (gadget-value scrollbar))
+         (window-height (bounding-rectangle-height (pane-viewport-region pane))))
+    (scroll-extent pane 0
+                   (min (gadget-max-value scrollbar) (+ current-y (* 0.9 window-height))))))
+
+(define-closure-command (com-redraw :name t :keystroke (#\r :control)) ()
+  (let* ((*medium* (find-pane-named *frame* 'canvas)) )
+    (handle-repaint *medium* (sheet-region (pane-viewport *medium*))))
+  (xlib:display-finish-output (clim-clx::clx-port-display (find-port))))
 



From emarsden at common-lisp.net  Sun Mar 13 21:39:20 2005
From: emarsden at common-lisp.net (Eric Marsden)
Date: Sun, 13 Mar 2005 22:39:20 +0100 (CET)
Subject: [closure-cvs] CVS update: closure/src/renderer/clim-draw.lisp 
Message-ID: <20050313213920.1CD7288669@common-lisp.net>

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

Modified Files:
	clim-draw.lisp 
Log Message:
 - Fix for CLX VALUE-ERRORs when drawing dashed lines with a dash distance
   of zero, in CLIM-DRAW-BORDER

Date: Sun Mar 13 22:39:19 2005
Author: emarsden

Index: closure/src/renderer/clim-draw.lisp
diff -u closure/src/renderer/clim-draw.lisp:1.2 closure/src/renderer/clim-draw.lisp:1.3
--- closure/src/renderer/clim-draw.lisp:1.2	Sun Mar 13 19:03:24 2005
+++ closure/src/renderer/clim-draw.lisp	Sun Mar 13 22:39:19 2005
@@ -4,7 +4,7 @@
 ;;;   Created: 2003-03-08
 ;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: MIT style (see below)
-;;;       $Id: clim-draw.lisp,v 1.2 2005/03/13 18:03:24 gbaumann Exp $
+;;;       $Id: clim-draw.lisp,v 1.3 2005/03/13 21:39:19 emarsden Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2003 by Gilbert Baumann
 
@@ -66,6 +66,7 @@
                    (list x1 y1 x2 y2 x3 y3 x4 y4)
                    :filled t :ink ink))
                  ((:dotted)
+                  (let ((sw (max w 1)))
                     (clim:draw-line* medium
                      (/ (+ x1 x2) 2)
                      (/ (+ y1 y2) 2)
@@ -74,11 +75,10 @@
                      :ink ink
                      :line-thickness w
                      :line-cap-shape :round
-                     :line-dashes (vector w (* 3 w)))) 
+                     :line-dashes (vector sw (* 3 sw)))))
                  ((:dashed)
-                  ;; this triggers an CLX value-error
-                  #+NIL
-                  (clim:draw-line* medium
+                  (let ((sw (max 1 w)))
+                    (clim:draw-line* medium
                      (/ (+ x1 x2) 2)
                      (/ (+ y1 y2) 2)
                      (/ (+ x3 x4) 2)
@@ -86,7 +86,7 @@
                      :ink ink
                      :line-thickness w
                      :line-cap-shape :square
-                     :line-dashes (vector (* 3 w) (* 3 w)))) 
+                     :line-dashes (vector (* 3 sw) (* 3 sw)))))
                  ((:double)
                   (clim:draw-polygon* medium
                    (list x1 y1



From dlichteblau at common-lisp.net  Fri Mar 25 18:16:41 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Fri, 25 Mar 2005 19:16:41 +0100 (CET)
Subject: [closure-cvs] CVS update: cxml/cxml.asd 
Message-ID: <20050325181641.A235588669@common-lisp.net>

Update of /project/cxml/cvsroot/cxml
In directory common-lisp.net:/tmp/cvs-serv9430

Modified Files:
	cxml.asd 
Log Message:
- Moved utility functions from the "runes" package to the "cxml" package to
  avoid name conflicts with functions from "glisp" of the same name.
- Renamed defsubst to definline for the same reason.

(This is a commit to the cxml repository, not the main closure repository.
If you don't want cxml commit messages on the closure list, please complain
to me and I'll change it.)

Date: Fri Mar 25 19:16:29 2005
Author: dlichteblau

Index: cxml/cxml.asd
diff -u cxml/cxml.asd:1.1.1.32 cxml/cxml.asd:1.2
--- cxml/cxml.asd:1.1.1.32	Sun Mar 13 19:02:58 2005
+++ cxml/cxml.asd	Fri Mar 25 19:16:29 2005
@@ -61,7 +61,6 @@
              #+rune-is-character "characters"
 	    :depends-on ("package" dependent))
      (:file "syntax" :depends-on ("package" dependent runes))
-     (:file "util" :depends-on ("package" dependent))
      (:file "encodings" :depends-on ("package"))
      (:file "encodings-data" :depends-on ("package" "encodings"))
      (:file "xstream"
@@ -74,11 +73,12 @@
                (make-pathname :name nil :type nil :defaults *load-truename*))
     :components
     ((:file "package")
+     (:file "util"            :depends-on ("package"))
      (:file "sax-handler")
      (:file "characters"      :depends-on ("package"))
      (:file "xml-name-rune-p" :depends-on ("package"))
      (:file "split-sequence"  :depends-on ("package"))
-     (:file "xml-parse"       :depends-on ("package" "sax-handler" "split-sequence" "xml-name-rune-p" "characters"))
+     (:file "xml-parse"       :depends-on ("package" "util" "sax-handler" "split-sequence" "xml-name-rune-p" "characters"))
      (:file "characters"      :depends-on ("package"))
      (:file "unparse"         :depends-on ("xml-parse"))
      (:file "xmls-compat"     :depends-on ("xml-parse"))



From dlichteblau at common-lisp.net  Fri Mar 25 18:16:56 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Fri, 25 Mar 2005 19:16:56 +0100 (CET)
Subject: [closure-cvs] CVS update: cxml/dom/dom-impl.lisp 
Message-ID: <20050325181656.6460588669@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/dom
In directory common-lisp.net:/tmp/cvs-serv9430/dom

Modified Files:
	dom-impl.lisp 
Log Message:
- Moved utility functions from the "runes" package to the "cxml" package to
  avoid name conflicts with functions from "glisp" of the same name.
- Renamed defsubst to definline for the same reason.

(This is a commit to the cxml repository, not the main closure repository.
If you don't want cxml commit messages on the closure list, please complain
to me and I'll change it.)

Date: Fri Mar 25 19:16:42 2005
Author: dlichteblau

Index: cxml/dom/dom-impl.lisp
diff -u cxml/dom/dom-impl.lisp:1.1.1.13 cxml/dom/dom-impl.lisp:1.2
--- cxml/dom/dom-impl.lisp:1.1.1.13	Sun Mar 13 19:02:51 2005
+++ cxml/dom/dom-impl.lisp	Fri Mar 25 19:16:30 2005
@@ -698,7 +698,7 @@
     (with-slots (children owner) node
       ;; remove children, add new TEXT-NODE child
       ;; (alas, we must not reuse an old TEXT-NODE)
-      (while (plusp (length children))
+      (cxml::while (plusp (length children))
         (dom:remove-child node (dom:last-child node)))
       (dom:append-child node (dom:create-text-node owner rod))))
   new-value)
@@ -819,7 +819,7 @@
                    (i 0)
                    (previous nil))
                ;; careful here, we're modifying the array we are iterating over
-               (while (< i (length children))
+               (cxml::while (< i (length children))
                  (let ((child (elt children i)))
                    (cond
                      ((not (eq (dom:node-type child) :text))



From dlichteblau at common-lisp.net  Fri Mar 25 18:17:32 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Fri, 25 Mar 2005 19:17:32 +0100 (CET)
Subject: [closure-cvs] CVS update: cxml/runes/characters.lisp
	cxml/runes/dep-acl.lisp cxml/runes/dep-acl5.lisp
	cxml/runes/dep-clisp.lisp cxml/runes/dep-cmucl-dtc.lisp
	cxml/runes/dep-cmucl.lisp cxml/runes/dep-openmcl.lisp
	cxml/runes/dep-sbcl.lisp cxml/runes/package.lisp
	cxml/runes/runes.lisp cxml/runes/xstream.lisp cxml/runes/util.lisp 
Message-ID: <20050325181732.A3FB788669@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/runes
In directory common-lisp.net:/tmp/cvs-serv9430/runes

Modified Files:
	characters.lisp dep-acl.lisp dep-acl5.lisp dep-clisp.lisp 
	dep-cmucl-dtc.lisp dep-cmucl.lisp dep-openmcl.lisp 
	dep-sbcl.lisp package.lisp runes.lisp xstream.lisp 
Removed Files:
	util.lisp 
Log Message:
- Moved utility functions from the "runes" package to the "cxml" package to
  avoid name conflicts with functions from "glisp" of the same name.
- Renamed defsubst to definline for the same reason.

(This is a commit to the cxml repository, not the main closure repository.
If you don't want cxml commit messages on the closure list, please complain
to me and I'll change it.)

Date: Fri Mar 25 19:16:57 2005
Author: dlichteblau

Index: cxml/runes/characters.lisp
diff -u cxml/runes/characters.lisp:1.1.1.3 cxml/runes/characters.lisp:1.2
--- cxml/runes/characters.lisp:1.1.1.3	Sun Mar 13 19:02:56 2005
+++ cxml/runes/characters.lisp	Fri Mar 25 19:16:56 2005
@@ -28,31 +28,31 @@
 (deftype rod () '(vector character))
 (deftype simple-rod () '(simple-array character))
 
-(defsubst rune (rod index)
+(definline rune (rod index)
   (char rod index))
 
 (defun (setf rune) (new rod index)
   (setf (char rod index) new))
 
-(defsubst %rune (rod index)
+(definline %rune (rod index)
   (aref (the simple-string rod) (the fixnum index)))
 
-(defsubst (setf %rune) (new rod index)
+(definline (setf %rune) (new rod index)
   (setf (aref (the simple-string rod) (the fixnum index)) new))
 
 (defun rod-capitalize (rod)
   (string-upcase rod))
 
-(defsubst code-rune (x) (code-char x))
-(defsubst rune-code (x) (char-code x))
+(definline code-rune (x) (code-char x))
+(definline rune-code (x) (char-code x))
 
-(defsubst rune= (x y) 
+(definline rune= (x y) 
   (char= x y))
 
 (defun rune-downcase (rune)
   (char-downcase rune))
 
-(defsubst rune-upcase (rune)
+(definline rune-upcase (rune)
   (char-upcase rune))
 
 (defun rune-upper-case-letter-p (rune)
@@ -70,13 +70,13 @@
 (defun rod-upcase (rod)
   (string-upcase rod))
 
-(defsubst white-space-rune-p (char)
+(definline white-space-rune-p (char)
   (or (char= char #\tab)
       (char= char #.(code-char 10))     ;Linefeed
       (char= char #.(code-char 13))     ;Carriage Return
       (char= char #\space)))
 
-(defsubst digit-rune-p (char &optional (radix 10))
+(definline digit-rune-p (char &optional (radix 10))
   (digit-char-p char radix))
 
 (defun rod (x)
@@ -100,7 +100,7 @@
 (defun rod-equal (x y)
   (string-equal x y))
 
-(defsubst make-rod (size)
+(definline make-rod (size)
   (make-string size))
 
 (defun char-rune (char)


Index: cxml/runes/dep-acl.lisp
diff -u cxml/runes/dep-acl.lisp:1.1.1.1 cxml/runes/dep-acl.lisp:1.2
--- cxml/runes/dep-acl.lisp:1.1.1.1	Sun Mar 13 19:02:27 2005
+++ cxml/runes/dep-acl.lisp	Fri Mar 25 19:16:56 2005
@@ -28,13 +28,13 @@
 ;; Unfortunately it is also incapable to declaim such functions inline.
 ;; So we revoke the DEFUN hack from dep-gcl here.
 
-(defmacro runes::defsubst (fun args &body body)
+(defmacro runes::definline (fun args &body body)
   (if (and (consp fun) (eq (car fun) 'setf))
       (let ((fnam (intern (concatenate 'string "(SETF " (symbol-name (cadr fun)) ")")
                           (symbol-package (cadr fun)))))
         `(progn
            (defsetf ,(cadr fun) (&rest ap) (new-value) (list* ',fnam new-value ap))
-           (runes::defsubst ,fnam ,args .,body)))
+           (runes::definline ,fnam ,args .,body)))
     `(progn
        (defun ,fun ,args .,body)
        (define-compiler-macro ,fun (&rest .args.)


Index: cxml/runes/dep-acl5.lisp
diff -u cxml/runes/dep-acl5.lisp:1.1.1.1 cxml/runes/dep-acl5.lisp:1.2
--- cxml/runes/dep-acl5.lisp:1.1.1.1	Sun Mar 13 19:02:27 2005
+++ cxml/runes/dep-acl5.lisp	Fri Mar 25 19:16:56 2005
@@ -40,13 +40,13 @@
 ;; Unfortunately it is also incapable to declaim such functions inline.
 ;; So we revoke the DEFUN hack from dep-gcl here.
 
-(defmacro runes::defsubst (fun args &body body)
+(defmacro runes::definline (fun args &body body)
   (if (and (consp fun) (eq (car fun) 'setf))
       (let ((fnam (intern (concatenate 'string "(SETF " (symbol-name (cadr fun)) ")")
                           (symbol-package (cadr fun)))))
         `(progn
            (defsetf ,(cadr fun) (&rest ap) (new-value) (list* ',fnam new-value ap))
-           (runes::defsubst ,fnam ,args .,body)))
+           (runes::definline ,fnam ,args .,body)))
     (labels ((declp (x)
                (and (consp x) (eq (car x) 'declare))))
       `(progn


Index: cxml/runes/dep-clisp.lisp
diff -u cxml/runes/dep-clisp.lisp:1.1.1.2 cxml/runes/dep-clisp.lisp:1.2
--- cxml/runes/dep-clisp.lisp:1.1.1.2	Sun Mar 13 19:02:30 2005
+++ cxml/runes/dep-clisp.lisp	Fri Mar 25 19:16:56 2005
@@ -53,7 +53,7 @@
 ;;;    `(progn
 ;;;       ',name)))
 
-(defmacro runes::defsubst (name args &body body)
+(defmacro runes::definline (name args &body body)
   `(progn
      (declaim (inline ,name))
      (defun ,name ,args .,body)))


Index: cxml/runes/dep-cmucl-dtc.lisp
diff -u cxml/runes/dep-cmucl-dtc.lisp:1.1.1.1 cxml/runes/dep-cmucl-dtc.lisp:1.2
--- cxml/runes/dep-cmucl-dtc.lisp:1.1.1.1	Sun Mar 13 19:02:27 2005
+++ cxml/runes/dep-cmucl-dtc.lisp	Fri Mar 25 19:16:56 2005
@@ -24,7 +24,7 @@
 ;;; superseded by a newer version) or write to the Free Software
 ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
-(defmacro runes::defsubst (name args &body body)
+(defmacro runes::definline (name args &body body)
   `(progn
      (declaim (inline ,name))
      (defun ,name ,args .,body)))


Index: cxml/runes/dep-cmucl.lisp
diff -u cxml/runes/dep-cmucl.lisp:1.1.1.1 cxml/runes/dep-cmucl.lisp:1.2
--- cxml/runes/dep-cmucl.lisp:1.1.1.1	Sun Mar 13 19:02:27 2005
+++ cxml/runes/dep-cmucl.lisp	Fri Mar 25 19:16:56 2005
@@ -24,7 +24,7 @@
 ;;; superseded by a newer version) or write to the Free Software
 ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
-(defmacro runes::defsubst (name args &body body)
+(defmacro runes::definline (name args &body body)
   `(progn
      (declaim (inline ,name))
      (defun ,name ,args .,body)))


Index: cxml/runes/dep-openmcl.lisp
diff -u cxml/runes/dep-openmcl.lisp:1.1.1.1 cxml/runes/dep-openmcl.lisp:1.2
--- cxml/runes/dep-openmcl.lisp:1.1.1.1	Sun Mar 13 19:02:58 2005
+++ cxml/runes/dep-openmcl.lisp	Fri Mar 25 19:16:56 2005
@@ -5,7 +5,7 @@
 ;;;;
 ;;;; (c) copyright 1999 by Gilbert Baumann
 
-(defmacro runes::defsubst (fun args &body body)
+(defmacro runes::definline (fun args &body body)
   (if (consp fun)
       `(defun ,fun ,args
          , at body)


Index: cxml/runes/dep-sbcl.lisp
diff -u cxml/runes/dep-sbcl.lisp:1.1.1.1 cxml/runes/dep-sbcl.lisp:1.2
--- cxml/runes/dep-sbcl.lisp:1.1.1.1	Sun Mar 13 19:02:27 2005
+++ cxml/runes/dep-sbcl.lisp	Fri Mar 25 19:16:56 2005
@@ -24,7 +24,7 @@
 ;;; superseded by a newer version) or write to the Free Software
 ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
-(defmacro runes::defsubst (name args &body body)
+(defmacro runes::definline (name args &body body)
   `(progn
      (declaim (inline ,name))
      (defun ,name ,args .,body)))


Index: cxml/runes/package.lisp
diff -u cxml/runes/package.lisp:1.1.1.2 cxml/runes/package.lisp:1.2
--- cxml/runes/package.lisp:1.1.1.2	Sun Mar 13 19:02:27 2005
+++ cxml/runes/package.lisp	Fri Mar 25 19:16:56 2005
@@ -10,15 +10,8 @@
 
 (defpackage :runes
   (:use :cl)
-  (:export #:defsubst
+  (:export #:definline
 
-           ;; util.lisp :
-           #:compose
-           #:curry
-           #:rcurry
-           #:until
-           #:while
-    
            ;; runes.lisp
            #:rune
            #:rod


Index: cxml/runes/runes.lisp
diff -u cxml/runes/runes.lisp:1.1.1.4 cxml/runes/runes.lisp:1.2
--- cxml/runes/runes.lisp:1.1.1.4	Sun Mar 13 19:02:44 2005
+++ cxml/runes/runes.lisp	Fri Mar 25 19:16:56 2005
@@ -42,26 +42,26 @@
 (deftype rod () '(array rune (*)))
 (deftype simple-rod () '(simple-array rune (*)))
 
-(defsubst rune (rod index)
+(definline rune (rod index)
   (aref rod index))
 
 (defun (setf rune) (new rod index)
   (setf (aref rod index) new))
 
-(defsubst %rune (rod index)
+(definline %rune (rod index)
   (aref (the (simple-array (unsigned-byte 16) (*)) rod) (the fixnum index)))
 
-(defsubst (setf %rune) (new rod index)
+(definline (setf %rune) (new rod index)
   (setf (aref (the (simple-array (unsigned-byte 16) (*)) rod) (the fixnum index)) new))
 
 (defun rod-capitalize (rod)
   (warn "~S is not implemented." 'rod-capitalize)
   rod)
 
-(defsubst code-rune (x) x)
-(defsubst rune-code (x) x)
+(definline code-rune (x) x)
+(definline rune-code (x) x)
 
-(defsubst rune= (x y) 
+(definline rune= (x y) 
   (= x y))
 
 (defun rune-downcase (rune)
@@ -70,7 +70,7 @@
         ((<= #x00c0 rune #x00de) (+ rune #x20))
         (t rune)))
 
-(defsubst rune-upcase (rune)
+(definline rune-upcase (rune)
   (cond ((<= #x0061 rune #x007a) (- rune #x20))
         ((= rune #x00f7) rune)
         ((<= #x00e0 rune #x00fe) (- rune #x20))
@@ -95,13 +95,13 @@
   ;; FIXME
   (map '(simple-array (unsigned-byte 16) (*)) #'rune-upcase rod))
 
-(defsubst white-space-rune-p (char)
+(definline white-space-rune-p (char)
   (or (= char 9)        ;TAB
       (= char 10)       ;Linefeed
       (= char 13)       ;Carriage Return
       (= char 32)))     ;Space
 
-(defsubst digit-rune-p (char &optional (radix 10))
+(definline digit-rune-p (char &optional (radix 10))
   (cond ((<= #.(char-code #\0) char #.(char-code #\9))
          (and (< (- char #.(char-code #\0)) radix)
               (- char #.(char-code #\0))))
@@ -141,7 +141,7 @@
          (unless (rune-equal (rune x i) (rune y i))
            (return nil)))))
 
-(defsubst make-rod (size)
+(definline make-rod (size)
   (make-array size :element-type 'rune))
 
 (defun char-rune (char)


Index: cxml/runes/xstream.lisp
diff -u cxml/runes/xstream.lisp:1.1.1.5 cxml/runes/xstream.lisp:1.2
--- cxml/runes/xstream.lisp:1.1.1.5	Sun Mar 13 19:02:51 2005
+++ cxml/runes/xstream.lisp	Fri Mar 25 19:16:56 2005
@@ -217,7 +217,7 @@
       nil)
     ,input))
 
-(defsubst unread-rune (rune input)
+(definline unread-rune (rune input)
   "Unread the last recently read rune; if there wasn't such a rune, you
    deserve to lose."
   (declare (ignore rune))





From dlichteblau at common-lisp.net  Fri Mar 25 18:17:48 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Fri, 25 Mar 2005 19:17:48 +0100 (CET)
Subject: [closure-cvs] CVS update: cxml/xml/util.lisp
	cxml/xml/xml-name-rune-p.lisp cxml/xml/xml-parse.lisp 
Message-ID: <20050325181748.D62CF88672@common-lisp.net>

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv9430/xml

Modified Files:
	xml-name-rune-p.lisp xml-parse.lisp 
Added Files:
	util.lisp 
Log Message:
- Moved utility functions from the "runes" package to the "cxml" package to
  avoid name conflicts with functions from "glisp" of the same name.
- Renamed defsubst to definline for the same reason.

(This is a commit to the cxml repository, not the main closure repository.
If you don't want cxml commit messages on the closure list, please complain
to me and I'll change it.)

Date: Fri Mar 25 19:17:36 2005
Author: dlichteblau



Index: cxml/xml/xml-name-rune-p.lisp
diff -u cxml/xml/xml-name-rune-p.lisp:1.1.1.10 cxml/xml/xml-name-rune-p.lisp:1.2
--- cxml/xml/xml-name-rune-p.lisp:1.1.1.10	Sun Mar 13 19:02:51 2005
+++ cxml/xml/xml-name-rune-p.lisp	Fri Mar 25 19:17:34 2005
@@ -211,13 +211,13 @@
                      (setf (aref r i) 1))))) )
 
           `(progn
-             (DEFSUBST NAME-RUNE-P (RUNE)
+             (DEFINLINE NAME-RUNE-P (RUNE)
                (SETF RUNE (RUNE-CODE RUNE))
                (AND (<= 0 RUNE ,*max*)
                     (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0) (SPEED 3)))
                              (= 1 (SBIT ',(predicate-to-bv #'name-rune-p)
                                         (THE FIXNUM RUNE))))))
-             (DEFSUBST NAME-START-RUNE-P (RUNE)
+             (DEFINLINE NAME-START-RUNE-P (RUNE)
                (SETF RUNE (RUNE-CODE RUNE))
                (AND (<= 0 RUNE ,*MAX*)
                     (LOCALLY (DECLARE (OPTIMIZE (SAFETY 0) (SPEED 3)))


Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.1.1.121 cxml/xml/xml-parse.lisp:1.2
--- cxml/xml/xml-parse.lisp:1.1.1.121	Sun Mar 13 19:02:57 2005
+++ cxml/xml/xml-parse.lisp	Fri Mar 25 19:17:35 2005
@@ -378,7 +378,7 @@
   )
 
 (defun make-rod-hashtable (&key (size 200))
-  (setf size (runes::nearest-greater-prime size))
+  (setf size (nearest-greater-prime size))
   (make-rod-hashtable/low
    :size size
    :table (make-array size :initial-element nil)))
@@ -392,13 +392,13 @@
       (1- (expt 2 +fixnum-bits+))
     "Pessimistic approximation of the largest bit-mask, still being a fixnum."))
 
-(defsubst stir (a b)
+(definline stir (a b)
   (%and +fixnum-mask+
         (%xor (%ior (%ash (%and a #.(ash +fixnum-mask+ -5)) 5)
                     (%ash a #.(- 5 +fixnum-bits+)))
               b)))
 
-(defsubst rod-hash (rod start end)
+(definline rod-hash (rod start end)
   "Compute a hash code out of a rod."
   (let ((res (%- end start)))
     (do ((i start (%+ i 1)))
@@ -407,7 +407,7 @@
       (setf res (stir res (rune-code (%rune rod i)))))
     res))
 
-(defsubst rod=* (x y &key (start1 0) (end1 (length x))
+(definline rod=* (x y &key (start1 0) (end1 (length x))
                           (start2 0) (end2 (length y)))
   (and (%= (%- end1 start1) (%- end2 start2))
        (do ((i start1 (%+ i 1))
@@ -417,7 +417,7 @@
          (unless (rune= (%rune x i) (%rune y j))
            (return nil)))))
 
-(defsubst rod=** (x y start1 end1 start2 end2)
+(definline rod=** (x y start1 end1 start2 end2)
   (and (%= (%- end1 start1) (%- end2 start2))
        (do ((i start1 (%+ i 1))
             (j start2 (%+ j 1)))
@@ -1339,7 +1339,7 @@
                (perror input "Expected \";\"."))
              (values :NAMED name))))))
 
-(defsubst read-S? (input)
+(definline read-S? (input)
   (while (member (peek-rune input) '(#/U+0020 #/U+0009 #/U+000A #/U+000D)
                  :test #'eq)
     (consume-rune input)))
@@ -1413,7 +1413,7 @@
                         (collect c))))
            value))))
 
-(defsubst data-rune-p (rune)
+(definline data-rune-p (rune)
   ;; any Unicode character, excluding the surrogate blocks, FFFE, and FFFF.
   (let ((c (rune-code rune)))
     (or (= c #x9) (= c #xA) (= c #xD)