[cl-enumeration-cvs] CVS enumerations

[mantoniotti]

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