svetlyak40wt

;; This code collects all packages, created by ASDF-SYSTEM and it's dependencies
(let* ((asdf-system :cl-telegram-bot)
       (packages-before (list-all-packages))
       (packages-after (progn (ql:quickload asdf-system)
                              (list-all-packages))))
  (sort (set-difference packages-after packages-before
                        :key #'package-name
                        :test #'string=)
        #'string<
        :key #'package-name))

svetlyak40wt

(defun print-dependency-graph (system-name &key (level 0))
  (loop repeat level
        do (format t "  "))
  (format t "~A~%" system-name)
  (typecase system-name
    ((or string symbol)
     (let ((system (asdf/system:find-system system-name)))
       (loop for dep in (asdf/system:system-depends-on system)
              do (print-dependency-graph dep :level (1+ level)))))))

svetlyak40wt

(in-package :cl-user)

(defparameter *observer*
  (rx:make-observer
   (rx:on-next (x) (print x))
   (rx:on-error (x) (format t "error: ~S~%" x))
   (rx:on-completed () (print "completed")) ))


(defparameter *sequence*

svetlyak40wt

* (kandria:launch)
WARNING: No server for :PORT: 4005
2023-01-15 14:01:42 [INFO ] <TRIAL.SETTINGS>: Loading settings from /Users/art/.config/shirakumo/kandria/settings.lisp
2023-01-15 14:01:42 [INFO ] <TRIAL.SETTINGS>: Saving settings to /Users/art/.config/shirakumo/kandria/settings.lisp
2023-01-15 14:01:45 [INFO ] <TRIAL.MAIN>: GENESIS
2023-01-15 14:01:45 [INFO ] <TRAIL.MAIN>: Launching version 1.0.0-458e21a
 [CoreAudio] Matching default device sample rate 48000
[Harmony] Will use ORG.SHIRAKUMO.FRAF.MIXED.COREAUDIO:DRAIN for output (2xFLOAT @ 48000kHz)
STYLE-WARNING:
   slot names with the same SYMBOL-NAME but different SYMBOL-PACKAGE (possible

svetlyak40wt

(ql:quickload :40ants-doc-full)
(ql:quickload :polymorphic-functions)

(use-package :polymorphic-functions)
(define-polymorphic-function my= (a b)
  :documentation "Test polymorphic function.")

(uiop:define-package #:40ants-doc-full/locatives/polymorphic-function
  (:use #:cl)
  (:import-from #:polymorphic-functions

svetlyak40wt

(uiop:define-package #:ningle-defroute
  (:use #:cl))
(in-package #:ningle-defroute)


(defmacro defroute (app path-or-path-with-options (&rest view-arguments) &body view-body) 

  (let* ((path-with-options (uiop:ensure-list path-or-path-with-options))
         (params (gensym "PARAMS"))
         (bindings (loop for arg-name in view-arguments

svetlyak40wt

;; License: MIT

(uiop:define-package #:ningle-upload
  (:use #:cl)
  (:import-from #:cl-fad)
  (:import-from #:ningle)
  (:import-from #:spinneret)
  (:import-from #:log4cl))
(in-package #:ningle-upload)

svetlyak40wt

fossil clone https://tumbleweed.nu/r/usim /Users/art/tmp/l/usim.fossil
Round-trips: 5   Artifacts sent: 0  received: 3193
Clone done, wire bytes sent: 1326  received: 22819371  ip: 46.23.94.31
Rebuilding repository meta-data...
  100.0% complete...
Extra delta compression...
Vacuuming the database...
project-id: 7e9f9fd6c8f1267e4a87a4fc69bf425acba15339
server-id:  f91e714aaf26b8d2b6e61d49c7751b304c10d095
admin-user: art (password is "CohXS3R9d4")

svetlyak40wt

;; License BSD

(defpackage #:histogram
  (:use #:cl)
  (:export
   #:print-histogram))
(in-package histogram)


(defun min-value (values)

svetlyak40wt

(defmacro do-rows ((row sql &key params) &body body)
  (with-gensyms (prepared cursor-name)
    
    (let ((cursor-sql (fmt "DECLARE ~A CURSOR FOR ~A"
                           cursor-name
                           sql))
          (fetch-sql (fmt "FETCH FROM ~A"
                          cursor-name)))
      `(progn
          (dbi:do-sql *connection* ,cursor-sql ,params)