* mel-ccl.el (mel-ccl-encode-q-generic): New compile-time

[elisp/flim.git] / lr-driver.el

diff --git a/lr-driver.el b/lr-driver.el
index b3de911..32fe294 100644 (file)
--- a/lr-driver.el
+++ b/lr-driver.el
@@ -29,7 +29,7 @@
 
 (defconst lr-max-stack-size 500)
 
-(defun lr-push (stack sp new-cat goto-table lval)
+(defsubst lr-push (stack sp new-cat goto-table lval)
   (let* ((state     (aref stack sp))
         (new-state (cdr (assq new-cat (aref goto-table state))))
         (new-sp    (+ sp 2)))