Lispの今日の写経

Emacs+SlimeのCheetSheetを発見
http://www.pchristensen.com/blog/articles/public-beta-open-for-ultimate-n00b-slimeemacs-cheat-sheet/

やっとEmacsのコピペのやり方覚えた
C-@でマークセットして、M-wで範囲コピーできる
一行だけコピーするにも同じようにやらんといかんのかな

(defvar *test-name* nil)

(defmacro deftest (name parameters &body body)
`(defun ,name ,parameters
(let ((*test-name* ',name))
,@body)))

(deftest test-+ ()
(check (= (+ 1 2) 3)
(= (+ 1 2 3) 6)
(= (+ -1 -3) -4)))