Skip to content
Snippets Groups Projects
Commit e7f97a5d authored by Raymond Toy's avatar Raymond Toy
Browse files

Merge branch 'rtoy-fix-47-backq-splice-printer' into 'master'

Fix #47: Print backquote multiple splices correctly

Closes #47

See merge request !33
parents 380759e3 dc4a7e00
No related branches found
No related tags found
No related merge requests found
......@@ -263,7 +263,8 @@
(backq-unparse (car tail) t)))
(push (backq-unparse (car tail)) accum)))
(backq-append
(mapcar #'(lambda (el) (backq-unparse el t))
(mapcar #'(lambda (el)
(car (backq-unparse el t)))
(cdr form)))
(backq-nconc
(mapcar #'(lambda (el) (backq-unparse el :nconc))
......
......@@ -434,4 +434,12 @@
"./"
test-dir-name
"ls-link")))))
(define-test issue.47
(:tag :issues)
(with-standard-io-syntax
(assert-equal "`(,@VARS ,@VARS)"
(with-output-to-string (s)
(write (read-from-string "`(,@vars ,@vars)")
:pretty t
:stream s)))))
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