diff --git a/quasiquote-test.lisp b/quasiquote-test.lisp index 49b7233547dce43457d7788923b612a6d2b9d5c3..a9146857a9f05eaef8241518188936fbaefd60cb 100644 --- a/quasiquote-test.lisp +++ b/quasiquote-test.lisp @@ -80,6 +80,7 @@ (q "`(,@`a)" (quote a) a "`a") (q "``(a ,b)" (quote (list (quote a) b)) (list (quote a) b)) (q "`(a ,@b)" (cons (quote a) b) (a . 11)) + (q "`(a . ,b)" (cons (quote a) b) (a . 11) "`(a ,@b)") (q "`(a ,b ,@c)" (list* (quote a) b c) (a 11 22 33)) (q "(q-if-match `(a ,x ,@y) '(a b c d) (vector x y))" (q-if-match (list* (quote a) x y) '(a b c d) (vector x y))