[cl-unification-cvs] CVS cl-unification

[mantoniotti]

Update of /project/cl-unification/cvsroot/cl-unification
In directory clnet:/tmp/cvs-serv30125

Modified Files:
	substitutions.lisp 
Log Message:
Changed the top comment and added a (:copier nil) option to the
ENVIRONMENT defstruct, as COPY-ENVIRONMENT is defined later in the
file.


--- /project/cl-unification/cvsroot/cl-unification/substitutions.lisp	2007/05/21 12:33:09	1.2
+++ /project/cl-unification/cvsroot/cl-unification/substitutions.lisp	2007/11/09 13:35:55	1.3
@@ -1,8 +1,8 @@
-;;; -*- Mode: Lisp -*-
+;;;; -*- Mode: Lisp -*-
 
-;;; substitutions.lisp
-;;; General CL structures unifier.
-;;; Substitution definitions.
+;;;; substitutions.lisp --
+;;;; General CL structures unifier.
+;;;; Substitution definitions.  Mostly a rehash of the usual SICP stuff.
 
 (in-package "CL.EXT.DACF.UNIFICATION") ; DACF = Data And Control Flow.
 
@@ -76,7 +76,8 @@
 ;;;---------------------------------------------------------------------------
 ;;; Environments.
 
-(defstruct (environment (:print-object print-environment))
+(defstruct (environment (:print-object print-environment)
+                        (:copier nil))
   (frames () :type list))
 
 (defun print-environment (env stream)
@@ -137,4 +138,4 @@
     env))
 
 
-;;; end of file -- substitutions.lisp --
+;;;; end of file -- substitutions.lisp --