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))))