From 20d4f6e180d838d6fe690355400ab70488b0830e Mon Sep 17 00:00:00 2001 From: Greg Sexton Date: Sun, 17 Aug 2014 20:35:25 +0100 Subject: [PATCH] Make bind marginally faster --- parser.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/parser.el b/parser.el index d2e2068..9159549 100644 --- a/parser.el +++ b/parser.el @@ -63,7 +63,8 @@ (lambda (s) (let ((new-result (parser-run m s))) (if (null new-result) nil - (destructuring-bind (new-value . new-state) new-result + (let ((new-value (car new-result)) + (new-state (cdr new-result))) (parser-run (funcall f new-value) new-state))))))) (defmacro parser-do (expr &rest more)