;;;; package.lisp

(defpackage :fwoar.counter
  (:use :cl))

(defpackage :patmatch
  (:use :cl)
  (:export :let-pat* :handle-pattern))

(defpackage :fwoar.anonymous-gf
  (:use :cl)
  (:export :glambda))

(defpackage #:fwoar.lisputils
  (:use #:cl #:alexandria)
  (:nicknames #:fw.lu)
  (:shadow #:with)
  (:import-from :fwoar.anonymous-gf :glambda)
  (:import-from :patmatch :let-pat*)
  (:import-from :serapeum :op)
  (:export #:lambda-if #:lambda-cond #:alambda #:rollup-list
           #:ensure-mapping #:alist-string-hash-table #:make-pairs
           #:copy-slots #:transform-alist #:%json-pair-transform
           #:%default-pair-transform #:default-when
           #:transform-result #:slots-to-pairs #:normalize-html
           #:destructuring-lambda #:let-each #:let-first #:let-second
           #:neither #:neither-null #:m-lambda #:sets #:defparameters
           #:setfs #:prog1-let #:prog1-bind #:if-let* #:with #:aconsf
           #+null #:ensure-list #:pick #:vector-destructuring-bind #:with-accessors*
           #:skip-values #:limit-values #:substitute-values #:op #:pick/r
           #:pick-error #:twice #:glambda #:default-unless #:transform-first-value
           #:may #:defun-ct
           #:define-cluser-entrypoint
           #:new
           #:make-constructor
           #:dive)) 


(defpackage :fwoar.lisputils.shortcuts
  (:use :cl :fwoar.lisputils)
  (:nicknames #:fw.lu.t)
  (:export :~>))