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                  "s" ; c
   6                  ))))
   7
   8 (append '("a" ; b
   9           "b" ; a
  10           ))
  11
  12 (lambda () '((?\" ?\")))