(defun breed->prims (breed-list)
(let*
((plural (car breed-list))
- (singular (cadr breed-list))
(plural-name (symbol-name plural)))
(list
(list :name plural :type :reporter :precedence 10 :macro `(lambda () ,plural))
((*dynamic-prims*
(append
(mapcar #'global->prim (mapcar #'car external-globals))
- (procedures->prims lexed-ast)))
+ (procedures->prims lexed-ast)
+ (clnl-extensions:load-extension :cli)))
(parsed (parse-internal lexed-ast)))
(values
(butlast parsed)