Reusing time variable

certainty · Oct 17, 2022 · 27ef4a9 · 27ef4a9
1 parent c6da3d4
commit 27ef4a9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/koans/std-method-comb.lisp b/koans/std-method-comb.lisp
@@ -77,11 +77,11 @@
 (defmethod remaining-time :around ((object countdown))
   (let ((time (call-next-method)))
     (if (< 0 time)
+        ;; PROG1 returns the value of the first expression in the sequence.
         ;; DECF is similar to INCF. It decreases the value stored in the place
         ;; and returns the decreased value.
-        ;; PROG1 returns the value of the first expression in the sequence.
         (prog1
-          (slot-value object 'remaining-time)
+          time
           (decf (slot-value object 'remaining-time)))
         :bang)))