From 936972d4c7f31a16fdddfd31eb824e867c30bf08 Mon Sep 17 00:00:00 2001 From: Chew Theam Yong Date: Tue, 11 May 2010 21:38:55 +1200 Subject: [PATCH] Changed gensym to ps-gensym for consistency/replicable gensyms. --- src/lib/ps-loop.lisp | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lib/ps-loop.lisp b/src/lib/ps-loop.lisp index dbc45b5..a0195bb 100644 --- a/src/lib/ps-loop.lisp +++ b/src/lib/ps-loop.lisp @@ -191,10 +191,10 @@ (push (list var nil expr expr test tag) (iterations state))))) (defun while-clause (state) - (while-or-until :while (gensym) state)) + (while-or-until :while (ps-gensym) state)) (defun until-clause (state) - (while-or-until :until (gensym) state))) + (while-or-until :until (ps-gensym) state))) (defun body-clause (term state) (case term -- 1.6.0.4