[nongnu] elpa/parseclj 0974b56833 035/185: Stick to non CL functions

[ELPA Syncer]

branch: elpa/parseclj
commit 0974b568331c97c70b48b6dbfd16ee7ad5969e8e
Author: Arne Brasseur <arne@arnebrasseur.net>
Commit: Arne Brasseur <arne@arnebrasseur.net>

    Stick to non CL functions
---
 clj-parse.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/clj-parse.el b/clj-parse.el
index 37c724af0c..3bff007a36 100644
--- a/clj-parse.el
+++ b/clj-parse.el
@@ -155,7 +155,7 @@
 
       ;; Reduce based on top two items on the stack
       (if (not (clj-lex-token? (car stack))) ;; top is fully reduced
-          (cl-case (clj-lex-token-type (second stack))
+          (cl-case (clj-lex-token-type (cadr stack))
             (:discard (setf stack (funcall reduceN (cddr stack) :discard 
(-take 2 stack))))))
 
       (setq token (clj-lex-next)))