From 440652a2a6b4d2e1cf121f802d026de4ed83614b Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 3 Aug 2008 01:02:22 +0200 Subject: Add PUSHQ. --- control-flow.lisp | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'control-flow.lisp') diff --git a/control-flow.lisp b/control-flow.lisp index cb4f329..5552e96 100644 --- a/control-flow.lisp +++ b/control-flow.lisp @@ -106,10 +106,10 @@ (cond ((atom clause) (when current-function - (push (cons current-label current-function) - labels-and-functions) - (push (cons current-label catch-tag) - labels-and-catch-tags)) + (pushq (cons current-label current-function) + labels-and-functions) + (pushq (cons current-label catch-tag) + labels-and-catch-tags)) (let ((old-function current-function)) (setq current-label clause current-function (gensym)) @@ -121,14 +121,14 @@ `(,current-function () ',end-marker))) (setq accumulated-clauses nil)))) - (t (push clause accumulated-clauses) + (t (pushq clause accumulated-clauses) (if (endp rest) (progn (when current-function - (push (cons current-label current-function) - labels-and-functions) - (push (cons current-label catch-tag) - labels-and-catch-tags)) + (pushq (cons current-label current-function) + labels-and-functions) + (pushq (cons current-label catch-tag) + labels-and-catch-tags)) `((,current-function () ,@(nreverse accumulated-clauses) ',end-marker))) -- cgit v1.2.3