@@ -9,8 +9,7 @@

   :perform (test-op (o s)

                     (funcall (intern "TEST" :should-test)

                              :package :fwoar.string-utils))

-  :depends-on (#:anaphora

-               #:alexandria

+  :depends-on (#:alexandria

                #:cl-containers

                #:closer-mop

                #:iterate

@@ -42,8 +42,8 @@

        ,@body)))

 (defmacro alambda (&body body)

-  `(lambda (anaphora:it)

-     (declare (ignorable anaphora:it))

+  `(lambda (it)

+     (declare (ignorable it))

      ,@body))

 (eval-when (:compile-toplevel :load-toplevel :execute)

@@ -348,9 +348,9 @@

 (defmacro retry-once ((flag-sym) &body body)

   `(let ((,flag-sym t))

-       (tagbody

-        start

-          ,@body

+     (tagbody

+      start

+        ,@body

         (when ,flag-sym

           (setf ,flag-sym nil)

           (go start)))))

@@ -32,7 +32,8 @@

            #:transform-first-value #:may #:defun-ct

            #:define-cluser-entrypoint #:new #:make-constructor #:dive

            #:empty-hash-table-like #:v-assoc #:defclass+

-           #:closing #:inits #:retry-once #:hashtable-slot-mixin #:hsm-doc #:adjoinf))

+           #:closing #:inits #:retry-once #:hashtable-slot-mixin #:hsm-doc #:adjoinf

+           #:it))

 (defpackage :fwoar.lisputils.shortcuts