X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fcode-parse.lisp;h=7d9c42c69a21da7815d34ddd19a663e6f153be0a;hp=c0e553be8106676aeb3382229f4a57cbb93268ed;hb=1e4bdde8e36b29b411b6a113f586d040abac331f;hpb=8b23537f6b141ee51a23ce4eb66e93105bf040a9

diff --git a/src/main/code-parse.lisp b/src/main/code-parse.lisp
index c0e553b..7d9c42c 100644
--- a/src/main/code-parse.lisp
+++ b/src/main/code-parse.lisp
@@ -119,5 +119,5 @@ DESCRIPTION:
 
   Returns the globals that get declared in the code."
  (mapcar
-  (lambda (global) (list (symbol-name global) 0d0))
+  (lambda (global) (list (intern (symbol-name global) clnl:*model-package*) 0d0))
   (cdr (second (find :globals code-parsed-ast :key #'car)))))