jbouwman

Backend implementation

• src/runtime/x86-64-fiber.h — struct fiber_context (RSP + callee-saved GPRs)
• src/runtime/x86-64-fiber.S — fiber_swap_context asm + fiber_trampoline_asm
• src/runtime/x86-64-fiber-glue.c — sb_fiber_prepare, ctx SP/reg accessors, Lisp-stack hooks (alias to n
• contrib/sb-fiber/x86-64-vops.lisp — inline %fiber-register-swap VOP

GC integration

• src/runtime/gencgc.c — scan_fiber_stacks, scav_fiber_binding_stacks
• src/runtime/pmrgc.c — mark-region GC equivalents

jbouwman

;;;; -*- mode: lisp -*-
;;;;
;;;; some scaling benchmarks for sb-fiber.
;;;;
;;;; Three sweeps:
;;;;
;;;;   A. Multi-thread switch throughput
;;;;   B. GC pause vs suspended-fiber population (single thread)
;;;;   C. Cross-thread population stress (memory + parallel GC)
;;;;

jbouwman

# Shared GitHub Actions runner configuration for NixOS hosts
# Usage: Import this module and set services.github-runner-config.enable = true
{ config, lib, pkgs, ... }:

let
  cfg = config.services.github-runner-config;
  hostname = config.networking.hostName;
  runnerUser = "github-runner-${hostname}";
  runnerUid = 993;
in

jbouwman

https://www.google.com/books/edition/Canzonette_anacreontiche_di_Lindoro_Elat/iWY0AAAAMAAJ

• Il Candiero

Barely cooked egg yolks,
Beat them in clean porcelain,
If you want something supreme,
Beat as much as you're able:
Then add sugar

jbouwman

J:

Design the world's most expensive and annoying alarm clock.

GPT:

Introducing the "Aurum Irritatus" – the world's most expensive and
annoying alarm clock!

Materials & Design:

jbouwman

(ns user
  (:import [org.apache.solr.client.solrj.impl Http2SolrClient$Builder]
           [org.apache.solr.client.solrj SolrQuery]
           [org.apache.solr.common SolrInputDocument]))

(defn make-client [url]
  (.build (Http2SolrClient$Builder. url)))

(defn input-document [{:keys [id doc]}]
  (let [document (SolrInputDocument.)]

jbouwman

(ns user
  (:require [clojure.java.io :as io]
            [hickory.core :as hickory])
  (:import [java.net URL]))

(defn walk [value & [path]]
  (letfn [(mapcat-indexed [f value]
            (apply concat (map-indexed f value)))
          (walk-map [i [k value]]
            (walk value (conj (or path []) k)))