Skip to content

Instantly share code, notes, and snippets.

💭
Making Ultralisp.org

Alexander Artemenko svetlyak40wt

💭
Making Ultralisp.org
Block or report user

Report or block svetlyak40wt

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View gamekit-profile.txt
CL-USER> (sb-sprof:with-profiling (:mode :time
:threads :all
:reset t
:report :flat)
(gamekit:start 'hello-gamekit
:log-level :error
:blocking t))
Profiler sample vector full (11,762 traces / approximately 499,999 samples), doubling the size
Number of samples: 12462
@svetlyak40wt
svetlyak40wt / triggers.org
Created Jan 20, 2020
Спусковые крючки по Дорофееву в формате для Org Mode
View triggers.org

Спусковые крючки для очистки мозга

Как пользоваться картой

  1. Карта помогает выгрузить из головы все задачи
  2. Пройдитесь взглядом по всем разделам карты
  3. Если в голове “сидит” задача, то она обязательно всплывёт при взгляде на соответствующий узел
  4. Выписывайте задачи, пока их количество не достигнет 50
  5. Почувствуйте, как гора упала с ваших плеч :)

При составлении карты использовались материалы Максима Дорофеева, mnogosdelal.ru

Учёба

@svetlyak40wt
svetlyak40wt / gh-stats.lisp
Created Mar 16, 2019
Collects github status.
View gh-stats.lisp
(defpackage #:gh-stats/stats
(:use #:cl)
(:import-from :dexador)
(:import-from :log4cl)
(:import-from :local-time)
(:import-from :cl-arrows
:->)
(:import-from :link-header)
(:import-from :jonathan)
(:import-from :cl-strings))
View lisp-2.lisp
;; Example of Lisp-2 behaviour of the Common Lisp
(flet ((plus (item)
(list item :flet)))
(let ((plus (lambda (item)
(list item
:lambda))))
(values
(mapcar plus
(list 1 2 3))
(mapcar #'plus
@svetlyak40wt
svetlyak40wt / ultralisp.local.el
Last active Dec 17, 2018
An Emacs config I use to make SLY's tramp contrib work with Ultralisp docker containers.
View ultralisp.local.el
(require 'sly)
(defun sly-ultralisp-init ()
(defun sly-make-tramp-file-name (username remote-host lisp-filename)
"Old (with multi-hops) tramp compatability function"
(message "Makining tramp filename for %s %s and %s" username remote-host lisp-filename)
(tramp-make-tramp-file-name "docker"
username
nil
remote-host
View map.py
names = ['bobuk', 'umputun', 'ksusha', 'gray']
scores = [100500, 42, 777, 41]
list(map(print, names, scores))
# так надо лямбда будет каждый раз последним аргументом,
# что наверняка неудобно в реализации
map(tuple, names, scores)
@svetlyak40wt
svetlyak40wt / test.md
Last active Oct 1, 2018
Markdown test
View test.md

Text before:

  • This is a first line.

  • Second line is multiline.

  • And third contains few paragraphs.

    Second paragraph.

All the world's a stage, and all the men and women merely players: they have their exits and their entrances; and one man in his time plays many parts, his acts being seven ages.

@svetlyak40wt
svetlyak40wt / load-spinneret.log
Created Sep 20, 2018
Error during spinneret loading
View load-spinneret.log
Loading "spinneret".
Unhandled SIMPLE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING
{1001E68083}>:
overwriting old FUN-INFO
#<SB-C::FUN-INFO
:ATTRIBUTES (FOLDABLE FLUSHABLE UNSAFELY-FLUSHABLE MOVABLE)
:TEMPLATES (#<SB-C::VOP-INFO :NAME NUMERIC-CHAR=
:ARG-TYPES ((:CONSTANT . CHARACTER)
(:OR #<PRIMITIVE-TYPE :NAME CHARACTER>))
:RESULT-TYPES ((:OR
View sample-ql-and-asdf-output.txt
CL-USER> (asdf:load-system :mito-email-auth/models :force t)
;Compiler warnings for "home:common-lisp;mito-email-auth;src;models.lisp.newest" :
; In MITO-EMAIL-AUTH/MODELS::AUTHENTICATE: Undefined function MITO-EMAIL-AUTH/MODELS::GET-USER-BY-EMAIL
; In MITO-EMAIL-AUTH/MODELS::SEND-CODE: Undefined function MITO-EMAIL-AUTH/MODELS::MAKE-URI
T
CL-USER> (ql:quickload :mito-email-auth/models)
To load "mito-email-auth/models":
Load 1 ASDF system:
mito-email-auth/models
; Loading "mito-email-auth/models"
@svetlyak40wt
svetlyak40wt / cl-interpol-reader-error.txt
Created Apr 1, 2018
An error happening when I hit C-c C-c in emacs, to compile a function containing #?"some ${var} value"
View cl-interpol-reader-error.txt
Reader error on #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/private/var/tmp/tmp.7.yw6QC7"/9 UTF-8) #x302006D9B0FD>, near position 124, within "pi-call #?\"/v2/issue":
Undefined character #\? in a #\# dispatch macro.
[Condition of type CCL::SIMPLE-READER-ERROR]
Restarts:
0: [RETRY-COMPILE-FILE] Retry compiling #P"/var/tmp/tmp.7.yw6QC7"
1: [SKIP-COMPILE-FILE] Skip compiling and loading #P"/var/tmp/tmp.7.yw6QC7"
2: [ABORT] Abort compilation.
3: [*ABORT] Return to SLY's top level.
4: [ABORT-BREAK] Reset this thread
You can’t perform that action at this time.