Allow specifying initial set of bindings while creating new environment

diff --git a/common_lisp/env.lisp b/common_lisp/env.lisp
index 238ce16..880bab5 100644 (file)
--- a/common_lisp/env.lisp
+++ b/common_lisp/env.lisp
@@ -50,3 +50,17 @@
 
 (defmethod set-env ((env mal-environment) symbol value)
   (setf (gethash symbol (mal-env-bindings env)) value))
+
+(defmethod initialize-instance :after ((env mal-environment)
+                                       &key (bindings nil)
+                                         (parent nil)
+                                         (binds nil)
+                                         (exprs nil))
+  (let ((arg-params (loop
+                       for x in binds
+                       for y in exprs
+                       collect (cons x y))))
+    (dolist (arg-param arg-params)
+      (set-env env
+               (car arg-param)
+               (cdr arg-param)))))