| (in-package :cl-user) | |
| (ql:quickload :cl-who) | |
| (ql:quickload :spinneret) | |
| (defpackage :html-test | |
| (:use :cl :cl-who :spinneret)) | |
| (in-package :html-test) |
| 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 |
При составлении карты использовались материалы Максима Дорофеева, mnogosdelal.ru
| (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)) |
| ;; 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 |
| (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 |
| names = ['bobuk', 'umputun', 'ksusha', 'gray'] | |
| scores = [100500, 42, 777, 41] | |
| list(map(print, names, scores)) | |
| # так надо лямбда будет каждый раз последним аргументом, | |
| # что наверняка неудобно в реализации | |
| map(tuple, names, scores) | |
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.
| 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 |
| 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" |