Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

parenthesize :seq-s in literal objects

  • Loading branch information...
commit c233c968fae875bde1b03e584fe345ad00346f4c 1 parent ec1e9fd
@mishoo authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/codegen.lisp
View
2  src/codegen.lisp
@@ -249,7 +249,7 @@ characters in string S to STREAM."
")")
(format-body (sixth p))))
(t (join `(,(quote-object-prop (car p))
- ,(gencode (cdr p)))
+ ,(parenthesize (cdr p) :seq))
": " ":"))))) props))
#.(format nil ",~%") ",")
,(indent "}")) *codegen-newline*)))
Please sign in to comment.
Something went wrong with that request. Please try again.