Skip to content
Snippets Groups Projects
Commit 8618c249 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Add one test for error if comma in #.

parent 0054d583
No related branches found
No related tags found
No related merge requests found
......@@ -238,6 +238,7 @@
(loop for x in '("(x)" "`(,x)" "``(,,x)" "```(,,,x)") do
(is (equal (prq x) x)))
(is (equal (prq "`#.#(1 2 3)") "`#(1 2 3)")) ;; #. must reset the quasiquote level.
(signals error (rq "`(foo bar #.(max 5 ,*print-base*))"))
t)
;;; Double-quasiquote test from the SBCL test suite backq.impure.lisp
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment