Prims - Implement stop

[clnl] / src / main / main.lisp

diff --git a/src/main/main.lisp b/src/main/main.lisp
index 09244a02229c2f11e8c54799557cef8dae6985a3..3acd6e366f193e9fa1e4aaeee248fc24734f7897 100644 (file)
--- a/src/main/main.lisp
+++ b/src/main/main.lisp
@@ -1,26 +1,5 @@
 (in-package #:clnl)
 
-(defvar *model-package* (find-package :cl-user)
- "*MODEL-PACKAGE*
-
-VALUE TYPE:
-
-  a package
-
-INITIAL VALUE:
-
-  The common-lisp-user package
-
-DESCRIPTION:
-
-  *MODEL-PACKAGE* is used for interning symbols as a NetLogo code
-  gets compiled.
-
-  Any local symbols are interned in this package, for use either
-  by other code, or in order to have all symbols interned in the
-  same placakge.  This is also the package in which a model should
-  be run, whether by clnl code or independently.")
-
 (defun e (ast) ast)
 
 (defun r (str)
@@ -83,7 +62,7 @@ DESCRIPTION:
 
   RUN-COMMANDS will take NetLogo commands, put them through the various
   stages need to turn them into Common Lisp code, and run it."
- (eval (clnl-transpiler:transpile-commands (clnl-parser:parse (clnl-lexer:lex cmds)))))
+ (clnl-nvm:with-stop-handler (eval (clnl-transpiler:transpile-commands (clnl-parser:parse (clnl-lexer:lex cmds))))))
 
 (defun run-reporter (reporter)
  "RUN-REPORTER REPORTER => RESULT