例．xyzzyでの実施例 eqはシンボルだけと言いながら意外と比較しています。取りあえず、使い分けはしようと思いますが。 ;シンボル (equalp 'a 'a) t (equal 'a 'a) t (eql 'a 'a) t (eq 'a 'a) t (= 'a 'a) 不正なデータ型です: a: number (string-equal 'a…

ここは条件文の章if 条件文ifで空リストのみ偽と判定 空リストの表現は4つある 例． '() () 'nil nil (eq '() nil) t (eq '() ()) t (eq '() 'nil) t 例. 条件判定の例 リストの長さ (defun my-length (list) (if list (1+ (my-length (cdr list))) 0)) my-l…