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