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

   1 (quote (lambda () free))
   2 (let () (backquote (,free)))
   3
   4 (defun a (a)
   5   (or (eq a 'b)
   6       (equal a '(a b))
   7       (equal a `(,(append () `(a b ,(+ 1 free) ,free b) free) b ,free
   8                  "s" ; c
   9                  ))))
  10
  11 (append '("a" ; b
  12           "b" ; a
  13           ))
  14
  15 (lambda () '((?\" ?\")))