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