Define TRUCLER:GLOBAL-ENVIRONMENT

This is proving to be important for extrinsicl.
s-expressionists · Oct 23, 2023 · 9543a19 · 9543a19
1 parent e916a7e
commit 9543a19
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/compile/compile.lisp b/compile/compile.lisp
@@ -512,6 +512,10 @@
 ;;; TODO: Once trucler actually implements augmentation we should
 ;;; maybe use that and not have our own environments at all.
 
+(defmethod trucler:global-environment (client (env lexical-environment))
+  (declare (ignore env))
+  (global-environment env))
+
 (defmethod trucler:describe-variable
     (client (env lexical-environment) name)
   (or (cdr (assoc name (vars env)))