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

   1 (defun a (a)
   2   (or (eq a 'b)
   3       (equal a '(a b))
   4       (equal a `(,(append () `(a b ,(+ 1 free) ,free b) free) b ,free))))
   5
   6 (append '("a" ; b
   7           "b" ; a
   8           ))