diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp index 2a9f8501f..1d59d2019 100644 --- a/src/cmp/cmptop.lsp +++ b/src/cmp/cmptop.lsp @@ -551,6 +551,12 @@ ((special global closure replaced lexical) . NIL))))) (defun build-debug-lexical-env (var-locations &optional first) + #+:msvc + (if first + (wt-nl "cl_object _ecl_debug_env = Cnil;") + (wt-nl "ihs.lex_env = _ecl_debug_env = Cnil;")) + + #-:msvc ;; FIXME! Problem with initialization of statically defined vectors (let* ((filtered-locations '()) (filtered-codes '())) ;; Filter out variables that we know how to store in the diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp index 743407974..234b8d0be 100644 --- a/src/cmp/cmpwt.lsp +++ b/src/cmp/cmpwt.lsp @@ -286,6 +286,8 @@ (t nil))) (defun add-static-constant (object) + #+msvc + nil #-:msvc ;; FIXME! The Microsoft compiler does not allow static initialization of bit fields. (unless (or *compiler-constants* (not (listp *static-constants*)))