+
+(defun load-file (file)
+ (clnl:boot file))
+
+(defun help (&optional token)
+ (format t
+ (if (not token)
+ "Placeholder help facility, try <:help :q> or <:help :load> for information about the commands we accept"
+ (case token
+ (:|:Q| ":q quits out of clnl")
+ (:|:LOAD|
+ (concatenate 'string
+ ":load <filename> loads up a model into the current clnl instance."
+ " Try :load \"Wolf Sheep Predation.nlogo\""))
+ (t (format nil "Don't have help for ~S" token))))))