Commit 325ce787 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Downcased all the lisp sources.

Changed the license to the AGPL3.
Completed the README file and added Makefile rules to generate "README.pdf".
parent 4e8acd3d
......@@ -22,22 +22,22 @@
#MODIFICATIONS
# 2001-06-19 <PJB> Reorganized and simplified.
#LEGAL
# Copyright Pascal J. Bourguignon 1992 - 2003
#
# This script 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 script 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 library; see the file COPYING.LIB.
# If not, write to the Free Software Foundation,
# 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# AGPL3
#
# Copyright Pascal J. Bourguignon 2012 - 2012
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU Affero General Public License as published by
# the Free Software Foundation, either version 3 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 Affero General Public License for more details.
#
# You should have received a copy of the GNU Affero General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
#******************************************************************************
all::
......@@ -129,5 +129,19 @@ etags tags TAGS::
| etags -
@printf ';; Done.\n'
help::
@printf $(HELP_FMT) 'documentation' 'Generates the README.pdf file.'
documentation: README.pdf
README.pdf:README
rst2pdf README
showpdf show-pdfs:README.pdf
open README.pdf
#### THE END ####
......@@ -41,14 +41,72 @@ clisp/
susv3/
POSIX API.
POSIX API (clisp specific for now).
tools/
Various tools to help developing and compiling these packages.
(Mostly obsolete since the introduction of ASDF and Quicklisp).
rdp/
Simple Recursive-Descent Parser.
objcl/
Objective-CL reader macros.
small-cl-pgms/
Various small lisp programs and proof-of-concept demos.
Those are not gathered with ASDF system definitions.
Repository
==========
These libraries can be obtained from the `git` repository at
https://gitorious.org/com-informatimago/ ::
git clone https://git.gitorious.org/com-informatimago/com-informatimago.git informatimago
They're also available thru `quicklisp <http://quicklisp.org/>`_: ::
(ql:quickload :com.informatimago.common-lisp)
(ql:quickload :com.informatimago.clext)
(ql:quickload :com.informatimago.clmisc)
#+clisp (ql:quickload :com.informatimago.clisp)
#+clisp (ql:quickload :com.informatimago.susv3)
(ql:quickload :com.informatimago.rdp)
(ql:quickload :com.informatimago.objcl)
Authors & License
=================
All this code is authored by Pascal J. Bourguignon, apart from
`com.informatimago.lisp-reader.package` which is authored by Zach
Beane and modified by Pascal J. Bourguignon.
All this code is released under the `GNU AFFERO GENERAL PUBLIC LICENSE
<http://www.gnu.org/licenses/agpl-3.0.html>`_,
apart from `com.informatimago.lisp-reader.package` which is released
under the BSD license.
References
==========
- AGPL: http://www.gnu.org/licenses/agpl-3.0.html
- Common Lisp: http://en.wikipedia.org/wiki/Common_lisp
- Common Lisp Wiki: http://cliki.net
- Pascal J. Bourguignon: mailto:pjb@informatimago.com http://www.informatimago.com/
- Quicklisp: http://quicklisp.org/
- Zach Beane: http://xach.com/
.. comment:
......
This diff is collapsed.
......@@ -4,11 +4,11 @@
;; -- CMU-AI -- AIMA: Artificial Inteligence - A Modern Approach --
;; ----------------------------------------------------------------
(LOAD "cmu-ai:bookcode;aima;aima")
(AIMA-LOAD 'ALL)
(load "cmu-ai:bookcode;aima;aima")
(aima-load 'all)
(DEFUN COMPILE-AIMA ()
(AIMA-COMPILE)
(TEST 'ALL))
(defun compile-aima ()
(aima-compile)
(test 'all))
;;;; aima.lisp -- 2003-05-02 08:02:18 -- pascal ;;;;
......@@ -16,24 +16,22 @@
;;;; 2003-06-05 <PJB> Created.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2003 - 2005.
;;;; Copyright Pascal Bourguignon 2003 - 2005
;;;;
;;;; 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 free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 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.
;;;; 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 Affero 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
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;****************************************************************************
(in-package "COMMON-LISP-USER")
......@@ -44,24 +42,24 @@
;; (handler-case (ASDF:OPERATE 'ASDF:load-OP :CCLAN-GET)
;; (error () (ASDF:OPERATE 'ASDF:compile-OP :CCLAN-GET)))
(LOAD "PACKAGES:NET;SOURCEFORGE;CCLAN;ASDF;ASDF.LISP")
(load "PACKAGES:NET;SOURCEFORGE;CCLAN;ASDF;ASDF.LISP")
;;(LOAD "PACKAGES:NET;SOURCEFORGE;CCLAN;ASDF;ASDF-INSTALL.LISP")
(in-package "COM.INFORMATIMAGO.PJB")
(defparameter *original-asdf-registry* ASDF:*CENTRAL-REGISTRY*)
(defparameter *original-asdf-registry* asdf:*central-registry*)
(defun asdf-rescan-packages ()
(when *load-verbose*
(format *trace-output* "~&;; Scanning ASDF packages...~%"))
(prog1
(SORT
(DELETE-DUPLICATES
(MAPCAR
(LAMBDA (P) (MAKE-PATHNAME :NAME NIL :TYPE NIL :VERSION NIL :DEFAULTS P))
(DIRECTORY "PACKAGES:**;*.ASD"))
(sort
(delete-duplicates
(mapcar
(lambda (p) (make-pathname :name nil :type nil :version nil :defaults p))
(directory "PACKAGES:**;*.ASD"))
:test (function equal))
(LAMBDA (A B) (if (= (length a) (length b))
(lambda (a b) (if (= (length a) (length b))
(string< a b)
(< (length a) (length b))))
:key (function namestring))
......@@ -70,12 +68,12 @@
(defun update-asdf-registry ()
(setf ASDF:*CENTRAL-REGISTRY*
(setf asdf:*central-registry*
(nconc (asdf-rescan-packages)
;;(list CCLAN-GET::*CCLAN-ASDF-REGISTRY*)
*original-asdf-registry*)))
(EXPORT 'UPDATE-ASDF-REGISTRY)
(export 'update-asdf-registry)
(update-asdf-registry)
(in-package "COMMON-LISP-USER")
......
......@@ -14,34 +14,32 @@
;;;; 2003-06-05 <PJB> Created.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2003 - 2003
;;;;
;;;; 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 free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 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.
;;;; 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 Affero 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
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;****************************************************************************
(LOAD "CCLAN:ASDF;ASDF.LISP")
(LOAD "CCLAN:CCLAN-GET;PACKAGE.LISP")
(LOAD "CCLAN:CCLAN-GET;CCLAN-GET.ASD")
(ASDF:OPERATE 'ASDF:LOAD-OP :CCLAN-GET)
(SETF CCLAN-GET::*CCLAN-TARBALL-DIRECTORY* "SHARE-LISP:CCLAN;TARBALL;"
CCLAN-GET::*CCLAN-SOURCE-DIRECTORY* "SHARE-LISP:CCLAN;SOURCE;"
CCLAN-GET::*CCLAN-ASDF-REGISTRY* "SHARE-LISP:CCLAN;REGISTRY;")
(PUSH CCLAN-GET::*CCLAN-ASDF-REGISTRY* ASDF:*CENTRAL-REGISTRY*)
(load "CCLAN:ASDF;ASDF.LISP")
(load "CCLAN:CCLAN-GET;PACKAGE.LISP")
(load "CCLAN:CCLAN-GET;CCLAN-GET.ASD")
(asdf:operate 'asdf:load-op :cclan-get)
(setf cclan-get::*cclan-tarball-directory* "SHARE-LISP:CCLAN;TARBALL;"
cclan-get::*cclan-source-directory* "SHARE-LISP:CCLAN;SOURCE;"
cclan-get::*cclan-asdf-registry* "SHARE-LISP:CCLAN;REGISTRY;")
(push cclan-get::*cclan-asdf-registry* asdf:*central-registry*)
(format t "Push on ASDF:*CENTRAL-REGISTRY* directories where .asd files are ~
to be found.~%")
......
......@@ -14,28 +14,26 @@
;;;; 2004-10-05 <PJB> Created.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2004 - 2004
;;;;
;;;; 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 free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 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.
;;;; 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 Affero 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
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;****************************************************************************
(LOAD "LOADERS:ASDF")
(PUSHNEW "PACKAGES:COM;FRACTALCONCEPT;CL-PDF;" ASDF:*CENTRAL-REGISTRY*)
(ASDF:OPERATE 'ASDF:LOAD-OP :CL-PDF)
(load "LOADERS:ASDF")
(pushnew "PACKAGES:COM;FRACTALCONCEPT;CL-PDF;" asdf:*central-registry*)
(asdf:operate 'asdf:load-op :cl-pdf)
;;;; cl-pdf.lisp -- -- ;;;;
......@@ -14,27 +14,25 @@
;;;; 2004-12-25 <PJB> Created.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2004 - 2004
;;;;
;;;; 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 free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 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.
;;;; 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 Affero 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
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;****************************************************************************
(if (string= (lisp-implementation-type) "SBCL")
(SB-EXT:WITHOUT-PACKAGE-LOCKS (require 'cliki))
(sb-ext:without-package-locks (require 'cliki))
(format t "~&cliki works only on SBCL~%"))
......@@ -4,23 +4,23 @@
;; CLOCC -- Compiling the CLOCC --
;; -------------------------------
(DEFPARAMETER *CLOCC-ROOT*
(defparameter *clocc-root*
(namestring
(translate-logical-pathname "PACKAGES:NET;SOURCEFORGE;CLOCC;CLOCC;")))
(LOAD "CLOCC:CLOCC")
(LOAD "CLOCC:SRC;DEFSYSTEM;DEFSYSTEM")
(LOAD "CLOCC:SRC;CLLIB;BASE")
(load "CLOCC:CLOCC")
(load "CLOCC:SRC;DEFSYSTEM;DEFSYSTEM")
(load "CLOCC:SRC;CLLIB;BASE")
(DEFUN COMPILE-CLOCC ()
(LOAD (compile-file "CLOCC:CLOCC"))
(LOAD (compile-file "CLOCC:SRC;DEFSYSTEM;DEFSYSTEM"))
(defun compile-clocc ()
(load (compile-file "CLOCC:CLOCC"))
(load (compile-file "CLOCC:SRC;DEFSYSTEM;DEFSYSTEM"))
;; * compile some systems
(SETQ MK::*CENTRAL-REGISTRY*
(NCONC
(setq mk::*central-registry*
(nconc
;; select the systems you want to use
(MAPCAR (LAMBDA (SYSSUB)
(TRANSLATE-LOGICAL-PATHNAME
(CONCATENATE 'STRING "CLOCC:SRC;" SYSSUB)))
(mapcar (lambda (syssub)
(translate-logical-pathname
(concatenate 'string "CLOCC:SRC;" syssub)))
'("CLLIB;"
"EXT;QUEUES;"
"EXT;UNION-FIND;"
......@@ -36,39 +36,39 @@
"SCREAMER;"
"SCREAMER;"
))
MK::*CENTRAL-REGISTRY*))
(MK:OOS "cllib" :COMPILE)
(MK:OOS "f2cl" :COMPILE));;COMPILE-CLOCC
mk::*central-registry*))
(mk:oos "cllib" :compile)
(mk:oos "f2cl" :compile));;COMPILE-CLOCC
;; ----------------------------------------------------------------------
;; -- CLOCC -- FORTRAN to LISP translator --
;; -----------------------------------------
(DEFVAR *EXT*
#+CLISP ".fas"
#+CMUCL ".x86f"
#+SBCL ".fasl"
#+ALLEGRO ".fasl"
#+VMS ".fas"
#+LUCID ".sbin")
(DEFVAR *F2CL_DIR* "CLOCC:CLOCC;SRC;F2CL;SRC;")
(DEFUN LOAD-F2CL-MODULE (X)
(LOAD (CONCATENATE 'STRING *F2CL_DIR* X *EXT*) :PRINT NIL :VERBOSE NIL)) ;;LOAD-F2CL-MODULE
(DEFUN LOAD-F2CL ()
(LOAD-F2CL-MODULE "f2cl0" )
(LOAD-F2CL-MODULE "f2cl1" )
(LOAD-F2CL-MODULE "f2cl2" )
(LOAD-F2CL-MODULE "f2cl3" )
(LOAD-F2CL-MODULE "f2cl4" )
(LOAD-F2CL-MODULE "f2cl5" )
(LOAD-F2CL-MODULE "f2cl6" )
(LOAD-F2CL-MODULE "f2cl7" )
(LOAD-F2CL-MODULE "macros" )
(FORMAT T "~&The f2cl software has been loaded.~%"));;LOAD-F2CL
(defvar *ext*
#+clisp ".fas"
#+cmucl ".x86f"
#+sbcl ".fasl"
#+allegro ".fasl"
#+vms ".fas"
#+lucid ".sbin")
(defvar *f2cl_dir* "CLOCC:CLOCC;SRC;F2CL;SRC;")
(defun load-f2cl-module (x)
(load (concatenate 'string *f2cl_dir* x *ext*) :print nil :verbose nil)) ;;LOAD-F2CL-MODULE
(defun load-f2cl ()
(load-f2cl-module "f2cl0" )
(load-f2cl-module "f2cl1" )
(load-f2cl-module "f2cl2" )
(load-f2cl-module "f2cl3" )
(load-f2cl-module "f2cl4" )
(load-f2cl-module "f2cl5" )
(load-f2cl-module "f2cl6" )
(load-f2cl-module "f2cl7" )
(load-f2cl-module "macros" )
(format t "~&The f2cl software has been loaded.~%"));;LOAD-F2CL
(format t "Push on MK::*CENTRAL-REGISTRY* directories where .system files are ~
to be found.~%")
(push "clocc:src;port;" MK::*CENTRAL-REGISTRY*)
(push "clocc:src;port;" mk::*central-registry*)
;;;; clocc.lisp -- -- ;;;;
;;;; -*- coding:utf-8 -*-
(IN-PACKAGE "COMMON-LISP-USER")
(in-package "COMMON-LISP-USER")
#+SBCL (PROGN
(LOAD "db-sockets")
(PUSHNEW :DB-SOCKETS *FEATURES*) )
#+sbcl (progn
(load "db-sockets")
(pushnew :db-sockets *features*) )
#+CLISP (DEFPARAMETER SAVED-WOFPC CUSTOM:*WARN-ON-FLOATING-POINT-CONTAGION*)
#+CLISP (SETQ CUSTOM:*WARN-ON-FLOATING-POINT-CONTAGION* NIL)
#+clisp (defparameter saved-wofpc custom:*warn-on-floating-point-contagion*)
#+clisp (setq custom:*warn-on-floating-point-contagion* nil)
(LET ((HOME (OR #+SBCL (SB-EXT:POSIX-GETENV "HOME")
#+CLISP (EXT:GETENV "HOME")
(let ((home (or #+sbcl (sb-ext:posix-getenv "HOME")
#+clisp (ext:getenv "HOME")
"/home/pascal")))
(SETF (LOGICAL-PATHNAME-TRANSLATIONS "HOME")
(LIST
(LIST "**;*.*" (CONCATENATE 'STRING HOME "/**/*.*"))
(LIST ";**;*.*" (CONCATENATE 'STRING HOME "/**/*.*")))))
(setf (logical-pathname-translations "HOME")
(list
(list "**;*.*" (concatenate 'string home "/**/*.*"))
(list ";**;*.*" (concatenate 'string home "/**/*.*")))))
(PUSHNEW :CLX-DEBUGGING *FEATURES*)
(pushnew :clx-debugging *features*)
(DEFPARAMETER *CLX-SOURCES*
(defparameter *clx-sources*
'(
;; First load port:
"clocc:clocc;src;port;ext"
......@@ -62,23 +62,23 @@
))
(DOLIST (FILE *CLX-SOURCES*) (LOAD FILE))
(dolist (file *clx-sources*) (load file))
#+CLISP (SETQ CUSTOM:*WARN-ON-FLOATING-POINT-CONTAGION* SAVED-WOFPC)
#+clisp (setq custom:*warn-on-floating-point-contagion* saved-wofpc)
(DEFUN COMPILE-CLX ()
(DOLIST (FILE *CLX-SOURCES*)
(defun compile-clx ()
(dolist (file *clx-sources*)
(format t "Compiling ~A~%" file)
(LOAD (COMPILE-FILE FILE))))
(load (compile-file file))))
(DEFUN TEST-CLX ()
(XLIB::HELLO-WORLD ""))
(defun test-clx ()
(xlib::hello-world ""))
(LOAD "PACKAGE:CLX-DEMOS;QIX.LISP")
(LOAD "PACKAGE:CLX-DEMOS;SOKOBAN.LISP")
(load "PACKAGE:CLX-DEMOS;QIX.LISP")
(load "PACKAGE:CLX-DEMOS;SOKOBAN.LISP")
;; note: sokoban only works with clisp clx for it needs xpm extension.
......
......@@ -14,25 +14,23 @@
;;;; 2004-03-29 <PJB> Created.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2004 - 2004
;;;;
;;;; 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 free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 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.
;;;; 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 Affero 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
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;****************************************************************************
(LOAD "PACKAGES:NET;SOURCEFORGE;GARNET;GARNET-LOADER")
(load "PACKAGES:NET;SOURCEFORGE;GARNET;GARNET-LOADER")
......@@ -14,24 +14,22 @@
;;;; 2004-07-29 <PJB> Created.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2004 - 2004
;;;;
;;;; 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 free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 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.
;;;; 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 Affero 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
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.