;;; testen von backquote


(setf x '(a b c))
(a b c)

`(x ,x ,@x foo ,(cadr  x) bar ,(cdr x) baz ,@(cdr x) ,. x)
(X (A B C) A B C FOO B BAR (B C) BAZ B C A B C)

(read-from-string "`,@x")
ERROR

`(,x . ,x)      ; = (append (list x) x)
((a b c) a b c)


(read-from-string "`(,x . ,@x)")
ERROR


(read-from-string ",x")
ERROR

`#(1 2 3 4)
#(1 2 3 4)