Add CL style

[clnl] / src / main / package.lisp

diff --git a/src/main/package.lisp b/src/main/package.lisp
index 53772830916dd2c8efee3b2a83ceb4facd1c71aa..e812ac08f83e41f6e4467a7ccba4bc8de11aa08e 100644 (file)
--- a/src/main/package.lisp
+++ b/src/main/package.lisp
@@ -1,2 +1,34 @@
-(defpackage #:cl-nl (:use :common-lisp)
- (:export :run))
+(defpackage #:clnl (:use :common-lisp)
+ (:export :run :boot :run-commands :run-reporter))
+
+(defpackage #:clnl-parser
+ (:use :common-lisp)
+ (:export :parse))
+
+(defpackage #:clnl-random
+ (:use :common-lisp)
+ (:shadow #:export)
+ (:export #:export #:set-seed #:next-int #:next-double))
+
+(defpackage #:clnl-transpiler
+ (:use :common-lisp)
+ (:export :transpile-commands :transpile-reporter))
+
+(defpackage #:clnl-nvm
+ (:use :common-lisp)
+ (:export :export-world :create-world :dump-object :turtle-color :turtle-xcor :turtle-ycor :turtle-heading
+  ; API as used by transpiled NetLogo programs
+  #:ask
+  #:create-turtles
+  #:forward
+  #:random-float
+  #:show
+  #:turtles))
+
+(defpackage #:clnl-lexer
+ (:use :common-lisp)
+ (:export :lex))
+
+(defpackage #:clnl-interface
+ (:use :common-lisp)
+ (:export :run :export-view))