diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-03 01:02:22 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-03 01:02:22 +0200 |
| commit | 440652a2a6b4d2e1cf121f802d026de4ed83614b (patch) | |
| tree | 52e256239379f1d0f059f7f40db4625ac61bf70b /list-functions.lisp | |
| parent | 6ed66892fe330fb8e422923993b262b44533bdb5 (diff) | |
Add PUSHQ.
Diffstat (limited to 'list-functions.lisp')
| -rw-r--r-- | list-functions.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/list-functions.lisp b/list-functions.lisp index 1fe749b..29d913f 100644 --- a/list-functions.lisp +++ b/list-functions.lisp @@ -236,3 +236,13 @@ ;;;;----------------------------------------------------------------- +;;;; UTILITIES +;;;;----------------------------------------------------------------- +(defmacro pushq (thing variable) + (let ((tmp (gensym))) + `(let ((,tmp ,thing)) + (setq ,variable (cons ,tmp ,variable)) + ,tmp))) + + +;;;;----------------------------------------------------------------- |