Index: main/env.lisp
===================================================================
--- main/env.lisp	(revision main,1)
+++ main/env.lisp	(revision main,1)
@@ -0,0 +1,36 @@
+#|
+Copyright (C) 2008  David Owen <dsowen@fugue88.ws>
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU Lesser Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU Lesser Public License for more details.
+
+You should have received a copy of the GNU Lesser Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.
+|#
+
+(defpackage #:dso-simple-template-env
+  (:use #:cl)
+  (:export #:env #:env-value))
+
+(in-package #:dso-simple-template-env)
+
+
+
+(defclass env ()
+  ((table :type hash-table :initform (make-hash-table :test 'equal)
+          :reader table)))
+
+(defgeneric env-value (env name &optional default)
+  (:method ((env env) name &optional default)
+    (gethash name (table env) default)))
+
+(defgeneric (setf env-value) (value env name)
+  (:method (value (env env) name)
+    (setf (gethash name (table env)) value)))