X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fcode-parse.lisp;h=e159f39e47135513d557bd04237aa32bc1f46c7c;hp=1cb666211151e9f3e630fa356e11131336b2d3da;hb=89cb3482de1fefc2d8e5f67e1e04a0790e8cd243;hpb=bc6386a709da76fef1393a11a7251b4be7032fda

diff --git a/src/main/code-parse.lisp b/src/main/code-parse.lisp
index 1cb6662..e159f39 100644
--- a/src/main/code-parse.lisp
+++ b/src/main/code-parse.lisp
@@ -21,7 +21,6 @@
 (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))
@@ -67,8 +66,9 @@ DESCRIPTION:
  (let*
   ((*dynamic-prims*
     (append
-     (mapcar #'global->prim external-globals)
-     (procedures->prims lexed-ast)))
+     (mapcar #'global->prim (mapcar #'car external-globals))
+     (procedures->prims lexed-ast)
+     (clnl-extensions:load-extension :cli)))
    (parsed (parse-internal lexed-ast)))
   (values
    (butlast parsed)