From mantoniotti at common-lisp.net Wed Dec 8 15:36:30 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Wed, 08 Dec 2010 10:36:30 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv3169 Added Files: enumerations.asd Log Message: Added .asd file. --- /project/cl-enumeration/cvsroot/enumerations/enumerations.asd 2010/12/08 15:36:30 NONE +++ /project/cl-enumeration/cvsroot/enumerations/enumerations.asd 2010/12/08 15:36:30 1.1 ;;; -*- Mode: Lisp -*- (use-package "ASDF") (defsystem :cl-enumerations ;; :source-pathname "" :components ("enumerations-pkg" (:file "enumerations" :depends-on ("enumerations-pkg")) (:file "sequence-enumeration" :depends-on ("enumerations-pkg")) (:file "list-enumerations" :depends-on ("sequence-enumeration")) (:file "vector-enumerations" :depends-on ("sequence-enumeration")) (:file "string-enumerations" :depends-on ("vector-enumerations")) (:file "hash-table-enumerations" :depends-on ("enumerations")) (:file "array-enumerations" :depends-on ("enumerations")) (:file "number-enumerations" :depends-on ("enumerations")) (:file "foreach" :depends-on ("enumerations")) )) ;;; end of file -- enumerations.asd -- From mantoniotti at common-lisp.net Wed Dec 8 15:47:50 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Wed, 08 Dec 2010 10:47:50 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv8040 Modified Files: enumerations.asd Log Message: Minor change to make sure that ASDF does not bomb. --- /project/cl-enumeration/cvsroot/enumerations/enumerations.asd 2010/12/08 15:36:30 1.1 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations.asd 2010/12/08 15:47:50 1.2 @@ -4,7 +4,7 @@ (defsystem :cl-enumerations ;; :source-pathname "" - :components ("enumerations-pkg" + :components ((:file "enumerations-pkg") (:file "enumerations" :depends-on ("enumerations-pkg")) (:file "sequence-enumeration" :depends-on ("enumerations-pkg")) (:file "list-enumerations" :depends-on ("sequence-enumeration")) From mantoniotti at common-lisp.net Wed Dec 8 15:49:35 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Wed, 08 Dec 2010 10:49:35 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv8113 Modified Files: enumerations.asd Log Message: Added conditional dependency on ITERATE. --- /project/cl-enumeration/cvsroot/enumerations/enumerations.asd 2010/12/08 15:47:50 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations.asd 2010/12/08 15:49:35 1.3 @@ -1,9 +1,10 @@ ;;; -*- Mode: Lisp -*- +;;; enumerations.asd -- + (use-package "ASDF") (defsystem :cl-enumerations - ;; :source-pathname "" :components ((:file "enumerations-pkg") (:file "enumerations" :depends-on ("enumerations-pkg")) (:file "sequence-enumeration" :depends-on ("enumerations-pkg")) @@ -14,6 +15,8 @@ (:file "array-enumerations" :depends-on ("enumerations")) (:file "number-enumerations" :depends-on ("enumerations")) (:file "foreach" :depends-on ("enumerations")) + #+:iterate (:file "iterate-extension" + :depends-on ("enumerations")) )) ;;; end of file -- enumerations.asd -- From mantoniotti at common-lisp.net Wed Dec 8 15:51:12 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Wed, 08 Dec 2010 10:51:12 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv8189 Added Files: iterate-enumeration.lisp Log Message: Added file. --- /project/cl-enumeration/cvsroot/enumerations/iterate-enumeration.lisp 2010/12/08 15:51:12 NONE +++ /project/cl-enumeration/cvsroot/enumerations/iterate-enumeration.lisp 2010/12/08 15:51:12 1.1 ;;;; -*- Mode: Lisp -*- ;;;; iterate-enumeration.lisp -- ;;;; ITERATE extension for ENUMERATIONs. (in-package "ITERATE") (defmacro-driver (FOR var OVER enum) (let ((e (gensym "ENUM-")) (kwd (if generate 'generate 'for)) ) `(progn (with ,e = ,enum) (,kwd ,var next (if (enum:has-more-elements-p ,e) (enum:next ,e) (terminate)))))) ;;;; end of file -- iterate-enumeration.lisp -- From mantoniotti at common-lisp.net Sun Dec 12 21:58:14 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Sun, 12 Dec 2010 16:58:14 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv12635 Modified Files: enumerations.asd Log Message: Changed system name. --- /project/cl-enumeration/cvsroot/enumerations/enumerations.asd 2010/12/08 15:49:35 1.3 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations.asd 2010/12/12 21:58:14 1.4 @@ -4,7 +4,7 @@ (use-package "ASDF") -(defsystem :cl-enumerations +(defsystem :enumerations :components ((:file "enumerations-pkg") (:file "enumerations" :depends-on ("enumerations-pkg")) (:file "sequence-enumeration" :depends-on ("enumerations-pkg")) From mantoniotti at common-lisp.net Sun Dec 12 21:59:00 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Sun, 12 Dec 2010 16:59:00 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv12688 Modified Files: ChangeLog Log Message: ChangeLog updated. --- /project/cl-enumeration/cvsroot/enumerations/ChangeLog 2005/11/14 16:49:16 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/ChangeLog 2010/12/12 21:59:00 1.3 @@ -1,3 +1,28 @@ +2010-12-12 author + + * enumerations.asd: Changed system name. + +2010-12-08 author + + * iterate-enumeration.lisp: Added file. + + * enumerations.asd: Added conditional dependency on ITERATE. + + * enumerations.asd: Minor change to make sure that ASDF does not bomb. + + * enumerations.asd: Added .asd file. + +2005-11-14 author + + * ChangeLog: ChangeLog updated. + + * string-enumerations.lisp: + Commented out the protocol implementation for SIMPLE-STRING. The + methods may be a good idea, but CL does not support DEFMETHODs with a + "type" discriminant, and SIMPLE-STRING is a type and not a class. + This does not seem to cause problems in LW and CMUCL, but, for + example, it breaks ECL. + 2005-11-14 mantoniotti * string-enumerations.lisp: From mantoniotti at common-lisp.net Fri Dec 17 15:34:42 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Fri, 17 Dec 2010 10:34:42 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv9370 Modified Files: enumerations.lisp Log Message: Fixed stupid error in base methods for PREVIOUS and HAS-PREVIOUS-P. --- /project/cl-enumeration/cvsroot/enumerations/enumerations.lisp 2005/03/10 18:08:50 1.3 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations.lisp 2010/12/17 15:34:41 1.4 @@ -132,12 +132,12 @@ (defgeneric previous (x &optional default) (:method ((x enumeration) &optional default) (declare (ignore default)) - (error "~S is not a bi-directional enumeration.") x)) + (error "~S is not a bi-directional enumeration." x))) (defgeneric has-previous-p (x) (:method ((x enumeration)) - (error "~S is not a bi-directional enumeration.") x)) + (error "~S is not a bi-directional enumeration." x))) (defmethod previous :around ((x enumeration) From mantoniotti at common-lisp.net Fri Dec 17 15:43:04 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Fri, 17 Dec 2010 10:43:04 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv20543 Added Files: .cvsignore Log Message: Added .cvsignore file. --- /project/cl-enumeration/cvsroot/enumerations/.cvsignore 2010/12/17 15:43:04 NONE +++ /project/cl-enumeration/cvsroot/enumerations/.cvsignore 2010/12/17 15:43:04 1.1 *.fasl *.fsl *.*fasl From mantoniotti at common-lisp.net Fri Dec 17 15:43:40 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Fri, 17 Dec 2010 10:43:40 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv21035 Modified Files: ChangeLog Log Message: ChangLog updated. --- /project/cl-enumeration/cvsroot/enumerations/ChangeLog 2010/12/12 21:59:00 1.3 +++ /project/cl-enumeration/cvsroot/enumerations/ChangeLog 2010/12/17 15:43:40 1.4 @@ -1,3 +1,16 @@ +2010-12-17 author + + * .cvsignore: Added .cvsignore file. + + * enumerations.lisp: + Fixed stupid error in base methods for PREVIOUS and HAS-PREVIOUS-P. + +2010-12-12 author + + * ChangeLog: ChangeLog updated. + + * enumerations.asd: Changed system name. + 2010-12-12 author * enumerations.asd: Changed system name. From mantoniotti at common-lisp.net Thu Dec 30 11:51:11 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 06:51:11 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv27430 Modified Files: COPYING Log Message: Copyright updated. --- /project/cl-enumeration/cvsroot/enumerations/COPYING 2005/03/10 22:11:59 1.1 +++ /project/cl-enumeration/cvsroot/enumerations/COPYING 2010/12/30 11:51:08 1.2 @@ -1,4 +1,4 @@ -Copyright (c) 2004-2005 Marco Antoniotti +Copyright (c) 2004-2011 Marco Antoniotti All rights reserved. Permission is hereby granted, without written agreement and without From mantoniotti at common-lisp.net Thu Dec 30 11:56:01 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 06:56:01 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv28223 Modified Files: enumerations-pkg.lisp Log Message: Package definition updated alongside the copyright notice. --- /project/cl-enumeration/cvsroot/enumerations/enumerations-pkg.lisp 2005/03/10 17:40:58 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations-pkg.lisp 2010/12/30 11:56:01 1.3 @@ -1,12 +1,24 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- -(defpackage "ORG.NTUNIOTT.COMMON-LISP.EXTENSIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS" (:use "COMMON-LISP") +;;;; enumeration-pkg.lisp -- +;;;; The ENUMERATIONS package. +;;;; +;;;; See file COPYING for copyright and licensing information. + +(defpackage "IT.UNIMIB.DISCO.MA.COMMON-LISP.EXTENSIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS" + (:use "COMMON-LISP") (:nicknames "ENUM" "enum" "CL.EXTENSIONS.ENUMERATIONS" "CL.EXT.ENUMERATIONS" + "CL.EXTENSIONS.DAC.ENUMERATIONS" + "CL.EXT.DAC.ENUMERATIONS" "COMMON-LISP.EXTENSIONS.DATA-AND-CONTROL-FLOW.ENUMERATIONS") + (:documentation "The CL Extensions Enemeration Package. + +The package containing the API for a generic enumeration protocol in +Common Lisp." (:export #:enumeration #:enumerationp From mantoniotti at common-lisp.net Thu Dec 30 11:58:21 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 06:58:21 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv28416 Modified Files: list-enumerations.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/list-enumerations.lisp 2005/03/10 22:40:57 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/list-enumerations.lisp 2010/12/30 11:58:20 1.3 @@ -1,9 +1,14 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- -(in-package "CL.EXTENSIONS.ENUMERATIONS") +;;;; list-enumerations.lisp -- +;;;; Eunmerations for lists. +;;;; +;;;; See file COPYING for copyright and licensing information. -;;;--------------------------------------------------------------------------- -;;; List Enumeration. +(in-package "CL.EXTENSIONS.DAC.ENUMERATIONS") + +;;;;=========================================================================== +;;;; List Enumeration. (defclass list-enumeration (sequence-enumeration) ((end-cons :accessor end-cons)) @@ -62,4 +67,4 @@ default) (t (first (enumeration-cursor x))))) -;;; end of file -- list-enumerations.lisp -- +;;;; end of file -- list-enumerations.lisp -- From mantoniotti at common-lisp.net Thu Dec 30 12:02:39 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 07:02:39 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv794 Modified Files: enumerations.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/enumerations.lisp 2010/12/17 15:34:41 1.4 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations.lisp 2010/12/30 12:02:38 1.5 @@ -1,6 +1,14 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- -(in-package "CL.EXTENSIONS.ENUMERATIONS") +;;;; enumerations.lisp -- +;;;; The main definitions for the CL Enumerations API. +;;;; +;;;; See the file COPYING for copyright and licensing information. + +(in-package "CL.EXTENSIONS.DAC.ENUMERATIONS") + +;;;;=========================================================================== +;;;; Main definitions. (define-condition no-such-element (error) ((enum :reader no-such-element-enumeration :initarg :enumeration)) @@ -32,8 +40,8 @@ ))) -;;;--------------------------------------------------------------------------- -;;; Protocol. +;;;;=========================================================================== +;;;; Protocol. (defgeneric enumerate (enumerable-item &key start end @@ -83,9 +91,9 @@ "Returns the type of the elements in the underlying data structure.")) -;;;--------------------------------------------------------------------------- -;;; Implementation. -;;; Bare bone general implementation of some methods. +;;;;=========================================================================== +;;;; Implementation. +;;;; Bare bone general implementation of some methods. (defmethod next ((x enumeration) &optional default) @@ -112,8 +120,8 @@ x) -;;;=========================================================================== -;;; Bi-directional enumerations. +;;;;--------------------------------------------------------------------------- +;;;; Bi-directional enumerations. (defclass bi-directional-enumeration (enumeration) () @@ -126,8 +134,8 @@ (:method ((e bi-directional-enumeration)) t)) -;;;--------------------------------------------------------------------------- -;;; Protocol for bi-directional enumerations. +;;;;--------------------------------------------------------------------------- +;;;; Protocol for bi-directional enumerations. (defgeneric previous (x &optional default) (:method ((x enumeration) &optional default) @@ -148,8 +156,8 @@ (t (error 'no-such-element :enumeration x)))) -;;;=========================================================================== -;;; Bounded Enumerations. +;;;;=========================================================================== +;;;; Bounded Enumerations. (defclass bounded-enumeration (enumeration) ((start :accessor enumeration-start :initarg :start) @@ -163,10 +171,10 @@ (:method ((x bounded-enumeration)) nil)) -;;;=========================================================================== -;;; Functional Enumerations. -;;; I.e. enumerations that depend on an "implicit" data structure, -;;; e.g. numbers. +;;;;=========================================================================== +;;;; Functional Enumerations. +;;;; I.e. enumerations that depend on an "implicit" data structure, +;;;; e.g. numbers. (defclass functional-enumeration (enumeration) () @@ -178,4 +186,4 @@ (:method ((x functional-enumeration)) t)) -;;; end of file -- enumerations.lisp -- +;;;; end of file -- enumerations.lisp -- From mantoniotti at common-lisp.net Thu Dec 30 13:13:07 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 08:13:07 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv29551 Modified Files: README Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/README 2005/03/10 22:08:13 1.1 +++ /project/cl-enumeration/cvsroot/enumerations/README 2010/12/30 13:13:07 1.2 @@ -1,6 +1,6 @@ CL-ENUMERATION -Marco Antoniotti 2004-2005 +Marco Antoniotti (c) 2004-2011 The directory containing this file you are reading should contain the code and the documentation of the CL-ENUMERATION package. From mantoniotti at common-lisp.net Thu Dec 30 13:19:57 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 08:19:57 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv31624 Modified Files: array-enumerations.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/array-enumerations.lisp 2005/03/09 18:18:02 1.1.1.1 +++ /project/cl-enumeration/cvsroot/enumerations/array-enumerations.lisp 2010/12/30 13:19:56 1.2 @@ -1,11 +1,16 @@ ;;; -*- Mode: Lisp -*- -(in-package "CL.EXTENSIONS.ENUMERATIONS") +;;;; array-enumerations.lisp -- +;;;; +;;;; See file COPYING for copyright and licensing information. -;;;--------------------------------------------------------------------------- -;;; Array Table Enumeration. +(in-package "CL.EXTENSIONS.DAC.ENUMERATIONS") -(defclass array-table-enumeration (bounded-enumeration bi-directional-enumeration) +;;;;=========================================================================== +;;;; Array Table Enumeration. + +(defclass array-table-enumeration (bounded-enumeration + bi-directional-enumeration) () (:documentation "The Array Table Enumeration Class.")) @@ -78,4 +83,4 @@ (setf (enumeration-cursor x) (enumeration-start x))) -;;; end of file -- enumerations.lisp -- +;;;; end of file -- array-enumerations.lisp -- From mantoniotti at common-lisp.net Thu Dec 30 13:20:48 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 08:20:48 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv1706 Modified Files: enumerations.asd Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/enumerations.asd 2010/12/12 21:58:14 1.4 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations.asd 2010/12/30 13:20:48 1.5 @@ -1,6 +1,8 @@ ;;; -*- Mode: Lisp -*- -;;; enumerations.asd -- +;;;; enumerations.asd -- +;;;; +;;;; See file COPYING for copyright and licensing information. (use-package "ASDF") From mantoniotti at common-lisp.net Thu Dec 30 13:21:46 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 08:21:46 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv1829 Modified Files: enumerations.system Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/enumerations.system 2005/06/30 17:48:48 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations.system 2010/12/30 13:21:46 1.3 @@ -1,4 +1,8 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- + +;;;; enumerations.system -- +;;;; +;;;; See file COPYING for copyright and licensing information. (mk:defsystem "ENUMERATIONS" :components ("enumerations-pkg" From mantoniotti at common-lisp.net Thu Dec 30 13:22:52 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 08:22:52 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv1974 Modified Files: foreach.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/foreach.lisp 2005/03/09 18:18:02 1.1.1.1 +++ /project/cl-enumeration/cvsroot/enumerations/foreach.lisp 2010/12/30 13:22:52 1.2 @@ -1,10 +1,15 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- + +;;;; foreach.lisp -- +;;;; +;;;; See file COPYING for copyright and licensing information. + (in-package "ENUM") -;;; foreach -- -;;; Of course it'd be better to do a DEFINE-LOOP-PATH or whatever. But this ain't standard. -;;; Note also that declarations are not properly handled. +;;;; foreach -- +;;;; Of course it'd be better to do a DEFINE-LOOP-PATH or whatever. But this ain't standard. +;;;; Note also that declarations are not properly handled. (defmacro foreach ((var object &rest keys) &body forms-and-clauses) "Simplified iteration construct over an `enumerable' object. @@ -51,4 +56,4 @@ , at forms-only ; This trick allows us to reuse the full LOOP forms. ))))) -;;; end of file -- foreach.lisp -- +;;;; end of file -- foreach.lisp -- From mantoniotti at common-lisp.net Thu Dec 30 13:24:24 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 08:24:24 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv2113 Modified Files: hash-table-enumerations.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/hash-table-enumerations.lisp 2005/06/30 17:48:05 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/hash-table-enumerations.lisp 2010/12/30 13:24:23 1.3 @@ -1,10 +1,14 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- -(in-package "CL.EXTENSIONS.ENUMERATIONS") +;;;; hash-table-enumerations.lisp -- +;;;; +;;;; See file COPYING for copyright and licensing information. +(in-package "CL.EXTENSIONS.DAC.ENUMERATIONS") -;;;--------------------------------------------------------------------------- -;;; Hash Table Enumerations. + +;;;;=========================================================================== +;;;; Hash Table Enumerations. (defclass hash-table-enumeration (enumeration) ((keysp :reader keysp :initarg :keys) @@ -88,4 +92,4 @@ (reset (underlying-enumeration x))) -;;; end of file -- hash-table-enumerations.lisp -- +;;;; end of file -- hash-table-enumerations.lisp -- From mantoniotti at common-lisp.net Thu Dec 30 13:25:39 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 08:25:39 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv2281 Modified Files: iterate-enumeration.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/iterate-enumeration.lisp 2010/12/08 15:51:12 1.1 +++ /project/cl-enumeration/cvsroot/enumerations/iterate-enumeration.lisp 2010/12/30 13:25:38 1.2 @@ -2,6 +2,10 @@ ;;;; iterate-enumeration.lisp -- ;;;; ITERATE extension for ENUMERATIONs. +;;;; +;;;; See file COPYING for copyright and licensing information. + +(require :iterate) (in-package "ITERATE") From mantoniotti at common-lisp.net Thu Dec 30 13:27:14 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 08:27:14 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv2757 Modified Files: number-enumerations.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/number-enumerations.lisp 2005/03/09 18:18:02 1.1.1.1 +++ /project/cl-enumeration/cvsroot/enumerations/number-enumerations.lisp 2010/12/30 13:27:13 1.2 @@ -1,10 +1,14 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- -(in-package "CL.EXTENSIONS.ENUMERATIONS") +;;;; number-enumerations.lisp -- +;;;; +;;;; See file COPYING for copyright and licensing information. +(in-package "CL.EXTENSIONS.DAC.ENUMERATIONS") -;;;--------------------------------------------------------------------------- -;;; Vector Enumeration. + +;;;;=========================================================================== +;;;; Number Enumeration. (defclass number-enumeration (bounded-enumeration bi-directional-enumeration @@ -106,4 +110,4 @@ (enumerate 'number :start start :end end :by incr)) -;;; end of file -- number-enumerations.lisp -- +;;;; end of file -- number-enumerations.lisp -- From mantoniotti at common-lisp.net Thu Dec 30 13:28:16 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 08:28:16 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv3127 Modified Files: sequence-enumeration.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/sequence-enumeration.lisp 2005/03/09 18:18:02 1.1.1.1 +++ /project/cl-enumeration/cvsroot/enumerations/sequence-enumeration.lisp 2010/12/30 13:28:16 1.2 @@ -1,9 +1,13 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- + +;;;; sequence-enumeration.lisp -- +;;;; +;;;; See file COPYING for copyright and licensing information. (in-package "CL.EXTENSIONS.ENUMERATIONS") -;;;--------------------------------------------------------------------------- -;;; Sequence Enumeration. +;;;;=========================================================================== +;;;; Sequence Enumeration. (defclass sequence-enumeration (bounded-enumeration) () @@ -13,4 +17,4 @@ (:method ((x t)) nil) (:method ((x sequence-enumeration)) t)) -;;; end of file -- sequence-enumerations.lisp -- +;;;; end of file -- sequence-enumerations.lisp -- From mantoniotti at common-lisp.net Thu Dec 30 13:29:54 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 08:29:54 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv4224 Modified Files: sequence-enumeration.lisp Log Message: Minor change. --- /project/cl-enumeration/cvsroot/enumerations/sequence-enumeration.lisp 2010/12/30 13:28:16 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/sequence-enumeration.lisp 2010/12/30 13:29:54 1.3 @@ -4,7 +4,7 @@ ;;;; ;;;; See file COPYING for copyright and licensing information. -(in-package "CL.EXTENSIONS.ENUMERATIONS") +(in-package "CL.EXTENSIONS.DAC.ENUMERATIONS") ;;;;=========================================================================== ;;;; Sequence Enumeration. From mantoniotti at common-lisp.net Thu Dec 30 13:31:16 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 08:31:16 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv5926 Modified Files: string-enumerations.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/string-enumerations.lisp 2005/11/14 16:38:54 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/string-enumerations.lisp 2010/12/30 13:31:16 1.3 @@ -1,9 +1,13 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- -(in-package "CL.EXTENSIONS.ENUMERATIONS") +;;;; sequence-enumeration.lisp -- +;;;; +;;;; See file COPYING for copyright and licensing information. -;;;--------------------------------------------------------------------------- -;;; String Enumeration. +(in-package "CL.EXTENSIONS.DAC.ENUMERATIONS") + +;;;;=========================================================================== +;;;; String Enumeration. (defclass string-enumeration (vector-enumeration) () From mantoniotti at common-lisp.net Thu Dec 30 13:32:42 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 08:32:42 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv6000 Modified Files: vector-enumerations.lisp Log Message: Copyright updated and other minor cosmetic changes. --- /project/cl-enumeration/cvsroot/enumerations/vector-enumerations.lisp 2005/03/09 18:18:02 1.1.1.1 +++ /project/cl-enumeration/cvsroot/enumerations/vector-enumerations.lisp 2010/12/30 13:32:41 1.2 @@ -1,10 +1,13 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- -(in-package "CL.EXTENSIONS.ENUMERATIONS") +;;;; vector-enumeration.lisp -- +;;;; +;;;; See file COPYING for copyright and licensing information. +(in-package "CL.EXTENSIONS.DAC.ENUMERATIONS") -;;;--------------------------------------------------------------------------- -;;; Vector Enumeration. +;;;;=========================================================================== +;;;; Vector Enumeration. (defclass vector-enumeration (sequence-enumeration bi-directional-enumeration) ((cursor :type fixnum))) From mantoniotti at common-lisp.net Thu Dec 30 13:33:22 2010 From: mantoniotti at common-lisp.net (mantoniotti) Date: Thu, 30 Dec 2010 08:33:22 -0500 Subject: [cl-enumeration-cvs] CVS enumerations Message-ID: Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv6052 Modified Files: string-enumerations.lisp Log Message: Minor change. --- /project/cl-enumeration/cvsroot/enumerations/string-enumerations.lisp 2010/12/30 13:31:16 1.3 +++ /project/cl-enumeration/cvsroot/enumerations/string-enumerations.lisp 2010/12/30 13:33:22 1.4 @@ -1,6 +1,6 @@ ;;;; -*- Mode: Lisp -*- -;;;; sequence-enumeration.lisp -- +;;;; string-enumeration.lisp -- ;;;; ;;;; See file COPYING for copyright and licensing information.