diff options
| -rw-r--r-- | gtwiwtg.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gtwiwtg.lisp b/gtwiwtg.lisp index c0f5da5..2cba70d 100644 --- a/gtwiwtg.lisp +++ b/gtwiwtg.lisp @@ -233,7 +233,7 @@ the values passed as ARGS looped forever." (let ((state (copy-list args))) (from-thunk (lambda () - (unless (car state) + (unless state (setf state (copy-list args))) (pop state))))) |