@@ -316,6 +316,16 @@

   (acons key datum alist))

 (define-modify-macro aconsf (key datum) do-acons)

+

+(defun do-adjoin (list item &rest r &key key test test-not)

+  (declare (ignore key test test-not))

+  (apply #'adjoin item list r))

+(define-compiler-macro do-adjoin (list item &rest r)

+  (alexandria:once-only (list item)

+    `(adjoin ,item ,list ,@r)))

+(define-modify-macro adjoinf (item &rest r)

+  do-adjoin)

+

 ;;(defun ensure-list (val)

 ;;  (typecase val

 ;;    (list val)

@@ -32,9 +32,7 @@

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

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

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

-           #:closing

-           #:inits

-           #:retry-once))

+           #:closing #:inits #:retry-once #:adjoinf))

 (defpackage :fwoar.lisputils.shortcuts