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. --- list-functions.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'list-functions.lisp') diff --git a/list-functions.lisp b/list-functions.lisp index 1fe749b..29d913f 100644 --- a/list-functions.lisp +++ b/list-functions.lisp @@ -235,4 +235,14 @@ ,result)) +;;;;----------------------------------------------------------------- +;;;; UTILITIES +;;;;----------------------------------------------------------------- +(defmacro pushq (thing variable) + (let ((tmp (gensym))) + `(let ((,tmp ,thing)) + (setq ,variable (cons ,tmp ,variable)) + ,tmp))) + + ;;;;----------------------------------------------------------------- -- cgit v1.2.3