aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <cbeok@protonmail.com>2020-07-09 22:20:21 -0500
committerColin Okay <cbeok@protonmail.com>2020-07-09 22:20:21 -0500
commitfd686cb11ca1ba89bae3c0efb4fe5771b3102316 (patch)
tree0a922fe59e1ab85e2dcc840477c720bafefa64fb
parent81749be0ed8415b88b4c3d5c5d1ce08d329e6453 (diff)
logic error in repeater
-rw-r--r--gtwiwtg.lisp2
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)))))