projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Prims - Optional arguments
[clnl]
/
src
/
main
/
nvm
/
base.lisp
diff --git
a/src/main/nvm/base.lisp
b/src/main/nvm/base.lisp
index cd494a7be4c012e57b8bd6067662a3b6bbe48979..d93089e32e7b1bacb53a7581d4cb6ef55ce197bd 100644
(file)
--- a/
src/main/nvm/base.lisp
+++ b/
src/main/nvm/base.lisp
@@
-20,6
+20,9
@@
((and (listp agentset) (eql :agentset (car agentset))) (cdr agentset))
(t (error "Doesn't seem to be an agentset: ~A" agentset))))
+(defun list->agentset (list)
+ (cons :agentset list))
+
(defun agentset-p (o)
(or
(eql o :turtles)