Merge branch 'fix-799' into 'develop'

Fix :variables command in top-level env

Closes #799

See merge request embeddable-common-lisp/ecl!359

src/cmp/cmpbackend-cxx/cmppass2-exit.lsp

@@ -199,7 +199,7 @@
       (wt-nl "ecl_bds_unwind_n(cl_env_copy," bds-bind ");"))
   (case ihs-p
     (IHS     (wt-nl "ecl_ihs_pop(cl_env_copy);"))
-    (IHS-ENV (wt-nl "ihs.lex_env = _ecl_debug_env;"))))
+    (IHS-ENV (wt-nl "ihs.lcl_env = _ecl_debug_env;"))))
 
 (defun %unwind (into from)
   (declare (si::c-local))

src/cmp/cmpbackend-cxx/cmppass2-var.lsp

@@ -75,11 +75,11 @@
              (+ 2 (length filtered-locations))
              ",,);")
       (unless first
-        (wt-nl "ihs.lex_env = _ecl_debug_env;")))
+        (wt-nl "ihs.lcl_env = _ecl_debug_env;")))
     filtered-codes))
 
 (defun pop-debug-lexical-env ()
-  (wt-nl "ihs.lex_env = _ecl_debug_env;"))
+  (wt-nl "ihs.lcl_env = _ecl_debug_env;"))
 
 (defun c2let* (c1form vars forms body
                &aux