- (list :name (car breed-list))
- (list :name (intern (format nil "~A-HERE" plural-name) :keyword))
- (list :name (intern (format nil "CREATE-~A" plural-name) :keyword) :args '(:number :command-block)))))
+ (list :name plural :type :reporter :precedence 10 :macro `(lambda () ,plural))
+ (list
+ :name (intern (format nil "~A-HERE" plural-name) :keyword)
+ :type :reporter
+ :precedence 10
+ :macro `(lambda () '(clnl-nvm:turtles-here ,plural)))
+ (list
+ :name (intern (format nil "CREATE-~A" plural-name) :keyword)
+ :type :command
+ :args '(:number (:command-block :optional))
+ :precedence 0
+ :macro `(lambda (num &optional command-block)
+ `(clnl-nvm:create-turtles ,num ,,plural ,command-block))))))