branch: elpa/parseclj
commit 0974b568331c97c70b48b6dbfd16ee7ad5969e8e
Author: Arne Brasseur <[email protected]>
Commit: Arne Brasseur <[email protected]>
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)))
