Skip to content

Instantly share code, notes, and snippets.

View svetlyak40wt's full-sized avatar
💭
Making Ultralisp.org

Alexander Artemenko svetlyak40wt

💭
Making Ultralisp.org
View GitHub Profile
@svetlyak40wt
svetlyak40wt / docker-overlay2-view.sh
Created July 26, 2025 14:19
Script to find hanging docker overlays
#!/bin/bash
# Original is here:
# https://utils.bitdoze.com/scripts/docker-overlay2-view.sh
# Define the overlay2 directory
overlay_dir="/var/lib/docker/overlay2"
# Create a temporary file to store the results
temp_file=$(mktemp)
@svetlyak40wt
svetlyak40wt / cursor-agent-system-prompt.txt
Created July 19, 2025 15:50 — forked from sshh12/cursor-agent-system-prompt.txt
Cursor Agent System Prompt (March 2025)
You are a powerful agentic AI coding assistant, powered by Claude 3.5 Sonnet. You operate exclusively in Cursor, the world's best IDE.
You are pair programming with a USER to solve their coding task.
The task may require creating a new codebase, modifying or debugging an existing codebase, or simply answering a question.
Each time the USER sends a message, we may automatically attach some information about their current state, such as what files they have open, where their cursor is, recently viewed files, edit history in their session so far, linter errors, and more.
This information may or may not be relevant to the coding task, it is up for you to decide.
Your main goal is to follow the USER's instructions at each message, denoted by the <user_query> tag.
<communication>
1. Be conversational but professional.
@svetlyak40wt
svetlyak40wt / clack-server-sent-events.lisp
Created June 26, 2025 22:22
Clack server sent events example
(uiop:define-package #:clack-sse-demo
(:use #:cl)
(:import-from #:lack)
(:import-from #:clack)
(:import-from #:log)
(:import-from #:lack/util/writer-stream)
(:nicknames #:clack-sse-demo/app))
(in-package #:clack-sse-demo)
@svetlyak40wt
svetlyak40wt / test-macro-optimization.lisp
Created May 8, 2025 10:41
Testing if it will be slower to make a macro calling a separate function or SBCL will optimize
(uiop:define-package #:test-macro-optimization
(:use #:cl)
(:documentation "Checking if lambda function will be optimized away depending on optimization settings."))
(in-package #:test-macro-optimization)
;; (declaim (optimize (debug 0) (safety 0) (speed 3)))
;; (declaim (optimize (debug 3) (safety 1) (speed 1)))
;; (declaim (optimize (debug 3) (safety 3) (speed 1)))
@svetlyak40wt
svetlyak40wt / deep-seek-response.md
Last active March 14, 2025 11:51
Технические средства для AI-callцентра

Для реализации автоматического колл-центра на базе искусственного интеллекта потребуется комплекс технических средств и инструментов. Вот ключевые компоненты:


1. Инфраструктура связи

  • VoIP-платформа: Обработка голосовых вызовов (входящих/исходящих).
    Примеры: Twilio, Amazon Connect, Asterisk, Plivo.
  • SIP-серверы: Для маршрутизации звонков (например, Kamailio, FreeSWITCH).
  • Облачные сервисы: Масштабируемость и отказоустойчивость (AWS, Google Cloud, Azure).
@svetlyak40wt
svetlyak40wt / gh-enable-all-inactivity-disabled-workflows.sh
Last active February 11, 2025 14:04 — forked from jemc/gh-enable-all-inactivity-disabled-workflows.fish
Use GitHub CLI to enable all workflows that were disabled due to repository inactivity - either for all repos in a given org that you manage, or (by default) your personal repos.
function gh-enable-all-inactivity-disabled-workflows-for-org () {
org=$1
gh repo list --no-archived --limit 1000 $org | cut -f 1 | xargs -I REPO sh -c 'gh workflow list --all -R REPO | grep disabled_inactivity | cut -f 3 | xargs -I WORKFLOW sh -xc "gh workflow enable WORKFLOW -R REPO"'
}
function gh-enable-all-inactivity-disabled-workflows () {
# for user
gh-enable-all-inactivity-disabled-workflows-for-org
# for his organizations
@svetlyak40wt
svetlyak40wt / baseline.txt
Created January 29, 2025 20:22
Sento benchmark results
SENTO/BENCH> (run-all)
Results for benchmark: (:DISPATCHER :PINNED :WITH-REPLY-P NIL :ASYNC-ASK-P NIL
:NUM-SHARED-WORKERS 8 :QUEUE-SIZE NIL
:WAIT-IF-QUEUE-LARGER-THAN 10000 :TIME-OUT NIL)
┌─────────────────────┬──────────────┬────────────┬─────────────┬─────────────┬─────────────┬────────────┐
│ - │ TOTAL │ MINIMUM │ MAXIMUM │ MEDIAN │ AVERAGE │ DEVIATION │
├─────────────────────┼──────────────┼────────────┼─────────────┼─────────────┼─────────────┼────────────┤
│ MESSAGES-PER-SECOND │ 61679256.0 │ 880182.8 │ 1087739.3 │ 1036553.25 │ 1027987.6 │ 47512.734 │
├─────────────────────┼──────────────┼────────────┼─────────────┼─────────────┼─────────────┼────────────┤
@svetlyak40wt
svetlyak40wt / reblocks-simple-form.lisp
Created July 7, 2024 08:48
Reblocks Simple Form Demo
(uiop:define-package #:reblocks-examples/simple-form
(:use #:cl)
(:import-from #:reblocks/app
#:defapp)
(:import-from #:reblocks/server)
(:import-from #:reblocks/html
#:with-html)
(:import-from #:reblocks/widget
#:update
#:defwidget)
@svetlyak40wt
svetlyak40wt / README.md
Created December 13, 2023 19:13
A fix for quicklisp-client making it work well with package-inferred-asdf systems

This patch fixes two problems:

  • Is that quicklisp is unable to load primary system's dependencies, which are subsystems of other primary system not mentioned in the quicklisp distribution's metadata. Issue quicklisp/quicklisp-client#139
  • When asdf system is known to ASDF, quicklisp client ignores it's dependencies and again, if the system depends on a subsystem of other primary system, ASDF can't load it and quicklisp client too.

How to reproduce the problem

For example, I have reblocks-ui-docs ASDF system. One of it's subsystems depends on reblocks/doc/example subsystem of other package-inferred system available from Quicklisp.

Checkout this repository somewhere:

curl -v http://dist.ultralisp.org
* Trying 172.67.169.20...
* TCP_NODELAY set
* Connected to dist.ultralisp.org (172.67.169.20) port 80 (#0)
> GET / HTTP/1.1
> Host: dist.ultralisp.org
> User-Agent: curl/7.64.1
> Accept: */*
>
< HTTP/1.1 200 OK