diff options
| author | Colin Okay <cbeok@protonmail.com> | 2020-07-09 22:20:21 -0500 |
|---|---|---|
| committer | Colin Okay <cbeok@protonmail.com> | 2020-07-09 22:20:21 -0500 |
| commit | fd686cb11ca1ba89bae3c0efb4fe5771b3102316 (patch) | |
| tree | 0a922fe59e1ab85e2dcc840477c720bafefa64fb | |
| parent | 81749be0ed8415b88b4c3d5c5d1ce08d329e6453 (diff) | |
logic error in repeater
| -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))))) |