]> code.delx.au - gnu-emacs-elpa/blobdiff - test/fixtures/quote.el
Trivial cleanup.
[gnu-emacs-elpa] / test / fixtures / quote.el
index 85b16a51adea8d003135db3a7843a888a18b3dba..5fc126d0a68f5433f8906255810035601b626951 100644 (file)
@@ -1,7 +1,12 @@
+(quote (lambda () free))
+(let () (backquote (,free)))
+
 (defun a (a)
   (or (eq a 'b)
       (equal a '(a b))
-      (equal a `(,(append () `(a b ,(+ 1 free) ,free b) free) b ,free))))
+      (equal a `(,(append () `(a b ,(+ 1 free) ,free b) free) b ,free
+                 "s" ; c
+                 ))))
 
 (append '("a" ; b
           "b" ; a