- cl-enumeration-cvs@lists.common-lisp.net

[cl-enumeration-cvs] CVS enumerations
by CVS User mantoniotti 09 Jan '12

09 Jan '12

Update of /project/cl-enumeration/cvsroot/enumerations In directory tiger.common-lisp.net:/tmp/cvs-serv1659 Modified Files: README Log Message: Copyright updated. --- /project/cl-enumeration/cvsroot/enumerations/README 2010/12/30 13:13:07 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/README 2012/01/09 15:09:35 1.3 @@ -1,6 +1,6 @@ CL-ENUMERATION -Marco Antoniotti (c) 2004-2011 +Marco Antoniotti (c) 2004-2012 The directory containing this file you are reading should contain the code and the documentation of the CL-ENUMERATION package.

1 0

[cl-enumeration-cvs] CVS enumerations
by CVS User mantoniotti 09 Jan '12

09 Jan '12

Update of /project/cl-enumeration/cvsroot/enumerations In directory tiger.common-lisp.net:/tmp/cvs-serv1471 Modified Files: COPYING Log Message: Copyright updated. --- /project/cl-enumeration/cvsroot/enumerations/COPYING 2010/12/30 11:51:08 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/COPYING 2012/01/09 15:09:09 1.3 @@ -1,4 +1,4 @@ -Copyright (c) 2004-2011 Marco Antoniotti +Copyright (c) 2004-2012 Marco Antoniotti All rights reserved. Permission is hereby granted, without written agreement and without

1 0

[cl-enumeration-cvs] CVS enumerations
by CVS User mantoniotti 30 Sep '11

30 Sep '11

Update of /project/cl-enumeration/cvsroot/enumerations In directory tiger.common-lisp.net:/tmp/cvs-serv7621 Modified Files: iterate-enumeration.lisp Log Message: Added patch by Mason Smith to avoid calling ENUM:ENUMERATE in the ITERATE OVER drive. --- /project/cl-enumeration/cvsroot/enumerations/iterate-enumeration.lisp 2010/12/30 13:25:38 1.2 +++ /project/cl-enumeration/cvsroot/enumerations/iterate-enumeration.lisp 2011/09/30 14:18:01 1.3 @@ -11,10 +11,15 @@ (defmacro-driver (FOR var OVER enum) (let ((e (gensym "ENUM-")) + (et (gensym "ENUM-")) (kwd (if generate 'generate 'for)) ) `(progn (with ,e = ,enum) + (with ,e = (let ((,et ,enum)) + (if (enum:enumerationp ,et) + ,et + (enum:enumerate ,et)))) (,kwd ,var next (if (enum:has-more-elements-p ,e) (enum:next ,e) (terminate))))))

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 05 Jan '11

05 Jan '11

Update of /project/cl-enumeration/cvsroot/enumerations In directory cl-net:/tmp/cvs-serv20963 Modified Files: enumerations-pkg.lisp Log Message: Fixed a (stupid!) typo that prevented compilation. --- /project/cl-enumeration/cvsroot/enumerations/enumerations-pkg.lisp 2010/12/30 11:56:01 1.3 +++ /project/cl-enumeration/cvsroot/enumerations/enumerations-pkg.lisp 2011/01/05 02:31:33 1.4 @@ -18,7 +18,7 @@ (:documentation "The CL Extensions Enemeration Package. The package containing the API for a generic enumeration protocol in -Common Lisp." +Common Lisp.") (:export #:enumeration #:enumerationp

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

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.

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

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

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

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

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

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.

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

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

1 0

[cl-enumeration-cvs] CVS enumerations
by mantoniotti 30 Dec '10

30 Dec '10

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

1 0