hiredman

[  0%] clojure-lsp                 
[  5%] Finding kondo config        
[ 10%] Finding cache               
[ 15%] Copying kondo configs       
[ 15%] Resolving config paths      
[ 20%] Analyzing project files     Exception in thread "pool-5-thread-2" java.lang.StackOverflowError
	at org.graalvm.nativeimage.builder/com.oracle.svm.core.graal.snippets.StackOverflowCheckImpl.newStackOverflowError0(StackOverflowCheckImpl.java:348)
	at org.graalvm.nativeimage.builder/com.oracle.svm.core.graal.snippets.StackOverflowCheckImpl.newStackOverflowError(StackOverflowCheckImpl.java:344)
	at org.graalvm.nativeimage.builder/com.oracle.svm.core.graal.snippets.StackOverflowCheckImpl.throwNewStackOverflowError(StackOverflowCheckImpl.java:324)

hiredman

#!/bin/bash
set -euo pipefail
IFS=$'\n\t'

SERVER=
CLIENT_NAME=
CLIENT_ID=
CLIENT_SECRET=
AUTH_CODE=
ACCESS_TOKEN=

hiredman

#!/bin/sh

#_(
   true; exec clj -J-Xmx256M -J-XX:-OmitStackTraceInFastThrow -Sdeps "`sed -n -e '/;;(DEPS$/,/;;DEPS)$/p' $0`" -M -i $0 -e '(user/main)'
   )

(ns user
  #?(:cljs (:require-macros [user :as m]))
  (:require
   #?@(:clj ([cljs.build.api :as cljs]

hiredman

(import '(java.util ArrayList
                    List)
        '(java.util.concurrent.locks ReentrantLock)
        '(java.util.concurrent.atomic AtomicReference
                                      AtomicReferenceArray))

(set! *warn-on-reflection* true)
(set! *unchecked-math* :warn-on-boxed)

;; TODO: should you be able to sync multiple times on the same event

hiredman

(defmacro let-macro
  ([bindings body]
   (let [names (map first bindings)]
     `(let-macro ~(eval `(letfn ~bindings ~(into {} (map (fn [n] [(list 'quote n) n])) names)))
        ~identity
        ~body)))
  ([bindings k body]
   (cond (and (seq? body)
              (symbol? (first body))
              (contains? bindings (first body)))

hiredman

cat > /tmp/storeid.lisp <<EOF
#!/usr/bin/sbcl --script

(loop
 (let* ((parts (list ""))
        (_ (loop for c across (read-line) do
                (cond
                  ((equal c #\Space)
                   (setf parts (cons "" parts)))
                  ('t

hiredman

(defn generate-state-machine [init-state inputs states state transition? accum]
  (gen/sized
   (fn [size]
     (if (zero? size)
       (let [prev (into {} (for [[a b] (partion-all 2 1 (sort inputs))] [b a]))]
         ((fn f [events]
            (gen/gen-pure
             (rose/make-rose
              events

hiredman

(defmacro return% [a]
  `(fn return-fn# [success# error#]
     #(try
        (success# ~a)
        (catch Throwable t#
          (error# t#)))))

(defn bind% [m b]
  (fn a [success error]
    #(m (fn x [value] ((b value) success error)) error)))

hiredman

(let [addr (java.net.UnixDomainSocketAddress/of "/tmp/222")
      sc (doto (java.nio.channels.ServerSocketChannel/open java.net.StandardProtocolFamily/UNIX)
           (.bind addr))]
  (while true
    (let [c (.accept sc)]
      (future
        (let [in (java.nio.channels.Channels/newInputStream c)
              out (java.nio.channels.Channels/newOutputStream c)]
          (binding [*in* (clojure.lang.LineNumberingPushbackReader.
                          (clojure.java.io/reader in))

hiredman

(defn async-iteration [from-process
                       to-process
                       output-channel
                       & {:keys [values-selector some? init]
                          :or {values-selector vector
                               some? some?}}]
  (async/go
    (async/>! to-process init)
    (loop [value (async/<! from-process)]
      (if (some? value)