Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

• dc4a7e00
  by Raymond Toy at 2018-01-28T18:20:20-08:00

  Fix #47: Print backquote multiple splices correctly
  
  * Print multiple splices correclty without the extra set of
    parenthesis around each splice.
  * Add test for this.
  

• e7f97a5d
  by Raymond Toy at 2018-01-30T03:04:30+00:00

  Merge branch 'rtoy-fix-47-backq-splice-printer' into 'master'
  
  Fix #47: Print backquote multiple splices correctly
  
  Closes #47
  
  See merge request cmucl/cmucl!33

2 changed files:

• src/code/backq.lisp
• tests/issues.lisp

Changes:

 		   (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))

 			    "./"

 			    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)))))