phoe

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; SWANK-LFE
;;;; © Michał "phoe" Herda 2017
;;;; swank.lfe

(defmodule swank
  (export
   ;; ## Utils
   (curry 2) (curry 3) (curry 4)
   ;; (start_server 1) (stop_server 0) (start_listener 2)

phoe

(defun char-check ()
  "Print all codes for which (code-char a) returns nil and return their number.
  
If this returns nonzero, there is a hole in the code-chars,
so be careful.
If this returns 0, the implementation is effectively
NIL-proof in this case.
NIL-bearing so far:
CCL 1.11-r16635 on Win32, beginning at 55295. 2048 codes (D800-DFFF) under 1114112 have a (code-char code) -> nil.
NIL-proof so far:

phoe

00003b(:emacs-rex (swank:connection-info) "GATEWAY/INSTALL" t 1)
000A5A(:return (:ok (:pid 15237 :style :spawn :encoding (:coding-systems ("utf-8-unix" "iso-latin-1-unix")) :lisp-implementation (:type "SBCL" :name "sbcl" :version "1.3.14.debian" :program nil) :machine (:instance "origin" :type "X86-64" :version "Quad-Core AMD Opteron(tm) Processor 2374 HE") :features (:lparallel :lparallel.with-cltl2 :lparallel.with-cas :lparallel.with-stealing-scheduler cl-postgres.features:sbcl-ipv6-available cl-postgres.features:sbcl-available :flexi-streams :cl-ppcre :cl-who :esrap.can-handle-left-recursion :esrap.multiple-transforms :esrap.function-terminals :esrap.expression-start-terminals :esrap.lookbehind :esrap.lookahead :custom-hash-table-native :global-vars :split-sequence :declare-types :named-readtables :closer-mop :postmodern-use-mop :postmodern-thread-safe cffi-features:flat-namespace cffi-features:x86-64 cffi-features:unix :cffi cffi-sys::flat-namespace :fast-io-sv :fast-io :sbcl-uses-sb-rotate-byte :cl-fad :

phoe

(defun trim-number-to-string (n)
  (let* ((string (format "%3d" n))
         (length (length string))
         (substring (substring string (- length 3) length)))
    (format " %s" (propertize substring 'face 'linum))))

(setf linum-format 'trim-number-to-string)

phoe

(defun pprint-plist (*standard-output* list)
  "Pretty-prints a plist with newlines after each key-value pair.
This will break if not called at toplevel, but works well enough for my use case."
  (pprint-logical-block (*standard-output* list :prefix "(" :suffix ")")
    (loop for cell on list by #'cddr
          do (write (first cell))
             (write-char #\Space)
             (write (second cell))
             (when (cddr cell)
               (terpri *standard-output*)

phoe

"This one should be fairly obvious."
(defun the-answer-to-life-the-universe-and-everything ()
  (+(*(+(*)(*))(+(*)(*)(*)))(*(*(+(*)(*))(+(*)(*)(*)))(*(+(*)(*))(+(*)(*)(*))))))

"The advanced version of the above."
(defun rick                           (
                                     ) (
                                    +  (+
                  ) (              *)   (
                  *)  (+)         (     *)

phoe

;; unfinished - I'll think of finishing this some other time mayhaps

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; BKNR.MULTISTORE
;;;; © Michał "phoe" Herda 2017
;;;; bknr.multistore.lisp

(defpackage #:bknr.multistore
  (:shadowing-import-from #:closer-mop
                          #:standard-generic-function #:defmethod #:defgeneric

phoe

;; thanks, beach!

(defun split-list-if (predicate list)
  "Destructively splits the provided list into two lists: one contains the
elements of the original list that satisfy the predicate, the other contains
elements that do not satisfy the predicate. The order of the original elements
is preserved."
  (loop with result1 = '()
        with result2 = '()
        with rest = list

phoe

(let* ((list (list 1 2 3 4 5 6 7 8 9 0))
       (first list)
       (second (cdr list)))
  (do ((left list (cdr left))
       (right (cdr list) (cdr right)))
      ((and (null (cdr left))
            (null (cdr right))))
    (setf (cdr left) (cddr left)
          (cdr right) (cddr right)))
  (values first second))

phoe

#|

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; CFFI LZMA Wrapper
;; © Michał "phoe" Herda 2017
;; public domain

;; Use the attached lzma.so file, which is a x64 Linux shared
;; object. To compile the shared library file yourself:
;; 1. Install the official LZMA SDK from Igor Pavlov.