phoe

(defun ssl-connect () ;; this is a god damn hack
  (let* ((socket (usocket:socket-connect "lightbringer.furcadia.com" 80))
         (stream (usocket:socket-stream socket)))
    (sleep 1)
    (loop while (listen stream)
          for line = (read-line stream nil stream)
          until (eq line stream)
          do (format t "S> ~A~%" line))
    (format t "C> ~A~%" "starttls")
    (format stream "starttls~C~C" #\Return #\Linefeed)

phoe

// based on a keyboard map from an 'xkb/symbols/pl' file

default  partial alphanumeric_keys
xkb_symbols "basic" {

    // Visualisation and description: http://podziemie.net/xkb/pl
    // Contact: Michał Górny <zrchos+freedesktop@gmail.com>

    include "latin"

phoe

;;; Matrix utilities.

(defun matrix= (matrix-1 matrix-2)
  (destructuring-bind (m1y m1x) (array-dimensions matrix-1)
    (destructuring-bind (m2y m2x) (array-dimensions matrix-2)
      (and (= m1y m2y)
           (= m1x m2x)
           (loop for y below m1y
                 always (loop for x below m1x
                              always (= (aref matrix-1 y x)

phoe

;; modified from pzmq examples

(defun hwclient (&optional (server-address "tcp://localhost:5555"))
  "Translation of http://zguide.zeromq.org/c:hwclient updated for ZMQ 3.
Includes some parameters in with-* macros to demonstrate syntax."
  (pzmq:with-context (ctx :max-sockets 10)
    (pzmq:with-socket (requester ctx) (:dealer :affinity 3 :linger 100)
      ;; linger is important in case of (keyboard) interrupt;
      ;; see http://api.zeromq.org/3-3:zmq-ctx-destroy
      (pzmq:connect requester server-address)

phoe

;; Do not use - a proper fix was committed into my fork at phoe-trash/ccl.

(defconstant single-float-min-e
  (- 2 ccl::ieee-single-float-bias ccl::ieee-single-float-digits))
(defconstant double-float-min-e
  (- 2 ccl::ieee-double-float-bias ccl::ieee-double-float-digits))

;; TODO: maybe-inline %flonum-to-digits, we don't need the indirection
(declaim (inline %flonum-to-digits))
(defun %flonum-to-digits (char-fun

phoe

So recently a religious debate intense discussion happened on #lisp about whether the following form:

;; Form 1
(loop for i from 1 to 5 finally (return i))

should return 5 or 6 (or, in other words, (1+ 5) - this notation is important as it will be used later).

I argue that it is invalid for it to return 6 and 5 must be returned instead.

phoe

[{
"romaji": "Agari",
"kanji": "和がり",
"english": "Win",
"explanation": "Generic call for winning a hand."
},
{
"romaji": "Agaripai",
"kanji": "和がり牌",
"english": "Winning tile",

phoe

Dear GitHub Trust and Safety Team,

you've requested me to edit and delete the contents of the two posts, which has now happened:

• https://gist.github.com/phoe/c9dcb769e295c06f9963ed65d9164d1c
• https://gist.github.com/phoe/ccba343687dc21e3a71d0dc6db68c96e

I would like to thank you for moderating GitHub and upholding your GitHub Community Guidelines, specifically including the following points:

Hate speech and discrimination

phoe

Dear GitHub Trust and Safety Team,

you've requested me to edit and delete the contents of the two posts, which has now happened:

• https://gist.github.com/phoe/c9dcb769e295c06f9963ed65d9164d1c
• https://gist.github.com/phoe/ccba343687dc21e3a71d0dc6db68c96e

I would like to thank you for moderating GitHub and upholding your GitHub Community Guidelines, specifically including the following points:

Hate speech and discrimination

phoe

(defun starts-with (string substring)
  (let ((length (length substring)))
    (and (<= length (length string))
         (string= (subseq string 0 length) substring))))

(defun list-all-sbcl-packages ()
  (flet ((sbcl-package-p (package)
           (starts-with (package-name package) "SB-")))
    (remove-if-not #'sbcl-package-p (list-all-packages))))