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: ===================================== src/code/backq.lisp ===================================== --- a/src/code/backq.lisp +++ b/src/code/backq.lisp @@ -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 ===================================== --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -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))))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/380759e3d91a1d6517a202545... --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/380759e3d91a1d6517a202545... You're receiving this email because of your account on gitlab.common-lisp.net.