Code - procedures

[clnl] / src / main / base.lisp

diff --git a/src/main/base.lisp b/src/main/base.lisp
index f90c77f8c200f9b3202f847f1361c6e196802af5..667285c6faf830ad89eed0138796a7d655bf837e 100644 (file)
--- a/src/main/base.lisp
+++ b/src/main/base.lisp
@@ -1,6 +1,6 @@
 (in-package #:clnl)
 
-(defvar *model-package* (find-package :cl-user)
+(defvar *model-package* (find-package :clnl-default-model-package)
  "*MODEL-PACKAGE*
 
 VALUE TYPE:
@@ -9,13 +9,18 @@ VALUE TYPE:
 
 INITIAL VALUE:
 
-  The common-lisp-user package
+  The package named by :clnl-default-model-package
 
 DESCRIPTION:
 
   *MODEL-PACKAGE* is used for interning symbols as a NetLogo code
   gets compiled.
 
+  :clnl-default-model-package is used because it's set up to shadow
+  common overlaps between the :cl package and netlogo programs, most
+  notably GO.  When you set this to a package of your choosing, be
+  aware of those overlaps in the case that use :use :common-lisp
+
   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