UI/Model Parse - Sliders - WIP

[clnl] / src / main / code-parse.lisp

diff --git a/src/main/code-parse.lisp b/src/main/code-parse.lisp
index 4e75407706a9fc9f4268c57f1d4e64cfd66edd10..e159f39e47135513d557bd04237aa32bc1f46c7c 100644 (file)
--- 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))