projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Prims - Implement let
[clnl]
/
src
/
main
/
code-parse.lisp
diff --git
a/src/main/code-parse.lisp
b/src/main/code-parse.lisp
index c0e553be8106676aeb3382229f4a57cbb93268ed..7d9c42c69a21da7815d34ddd19a663e6f153be0a 100644
(file)
--- 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
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)))))
(cdr (second (find :globals code-parsed-ast :key #'car)))))