この文章は、 Steve Losh 氏の記事 "A Road to Common Lisp" の翻訳です。
原文はこちらです: http://stevelosh.com/blog/2018/08/a-road-to-common-lisp/
A Road to Common Lisp (Common Lisp への道)
これまで、「最近のCommon Lispをどう学ぶとよいでしょう？」と助言を求めるメールをたくさん受け取ってきました。そこで私は、これまでメールやソーシャルメディアに投稿した全てのアドバイスを書き下すことにしました。これが誰かに有益ならば幸いです。
| ;; forked from https://gist.github.com/fujimisakari/11518720 | |
| ;; special thanks @fujimisakari | |
| ;; ref: http://qiita.com/fujimisakari/items/d7f1b904de11dcb018c3 | |
| (defun elscreen-swap-previous() | |
| "Interchange screens selected currently and previous." | |
| (interactive) | |
| (cond | |
| ((elscreen-one-screen-p) | |
| (elscreen-message "There is only one screen, cannot swap")) |
| (require 'org-table) | |
| (require 'org-clock) | |
| (defun clocktable-by-tag/shift-cell (n) | |
| (let ((str "")) | |
| (dotimes (i n) | |
| (setq str (concat str "| "))) | |
| str)) | |
| (defun clocktable-by-tag/insert-tag (params) |
| ;; from https://gist.github.com/cofi/3013327 | |
| (require 'helm) | |
| (defun helm-flyspell-correct () | |
| "Use helm for flyspell correction. | |
| Adapted from `flyspell-correct-word-before-point'." | |
| (interactive) | |
| ;; use the correct dictionary | |
| (flyspell-accept-buffer-local-defs) | |
| (let ((cursor-location (point)) |