tmtvl

  ',.pyf

  (defun first-two (list)
    (assert (>= (length list)
                2))
    (list (first list)
          (second list)))

  (loop :do (print (eval (read))))

  pacman -Syu sbcl emacs
  M-x package-install slime RET

  (asdf:test-system system &rest keys &key force force-not verbose version &allow-other-keys)

  (defun merge-sort (list before?)
    (declare (type List list)
             (type Function before?))
    (flet ((merge-2 (a b)
             (declare (type List a b)
             (merge 'List a b before?)))
      (unless (null list)
        (reduce #'merge-2 list :key #'list))))

  (merge-sort '(1 9 8 2 3 4 7 6 5)
              #'<)

  (setq read-process-output-max
        (with-temp-buffer
          (insert-file-contents "/proc/sys/fs/pipe-max-size")
          (string-to-number (buffer-string))))