code.delx.au - gnu-emacs-elpa/blob - fixtures/test/cond.el

   1 (let (a)
   2   (cond
   3    (a t)
   4    (free t)
   5    ((eq a free) t)
   6    (t (list a free))
   7    ;; c
   8    "s"))