diff options
Diffstat (limited to 'src/interp/parsing.lisp')
-rw-r--r-- | src/interp/parsing.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/parsing.lisp b/src/interp/parsing.lisp index ffb2bc55..6a33d361 100644 --- a/src/interp/parsing.lisp +++ b/src/interp/parsing.lisp @@ -358,7 +358,7 @@ the stack, then stack a NIL. Return the value of prod." (loop (let ((m (length /gensymlist))) (if (< m n) - (setq /gensymlist (nconc /gensymlist `(,(intern (format nil "G~D" (1+ m)))))) + (setq /gensymlist (|append!| /gensymlist `(,(intern (format nil "G~D" (1+ m)))))) (return (nth (1- n) /gensymlist)))))) ; 3 D. Managing rule sets |