Commit dc4a7e00 authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix #47: Print backquote multiple splices correctly 

* Print multiple splices correclty without the extra set of
  parenthesis around each splice.
* Add test for this.
parent 380759e3

src/code/backq.lisp

+2 −1
Changes for src/code/backq.lisp: 2 added lines, 1 removed line.
Original line number Diff line number Diff line
@@ -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))

tests/issues.lisp

+8 −0
Changes for tests/issues.lisp: 8 added lines, 0 removed lines.
Original line number Diff line number Diff line
@@ -435,3 +435,11 @@ 
			    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)))))