summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
66836e1)
Because other kinds of decls will have their own semicolons. Previously
the semicolons were added as part of the block output machinery.
(definst var (stream :export t) (name type init)
(pprint-c-type type stream name)
(when init
(definst var (stream :export t) (name type init)
(pprint-c-type type stream name)
(when init
- (format stream " = ~A" init)))
+ (format stream " = ~A" init))
+ (write-char #\; stream))
(definst set (stream :export t) (var expr)
(format stream "~@<~A = ~@_~2I~A;~:>" var expr))
(definst update (stream :export t) (var op expr)
(definst set (stream :export t) (var expr)
(format stream "~@<~A = ~@_~2I~A;~:>" var expr))
(definst update (stream :export t) (var op expr)
(definst expr (stream :export t) (expr)
(format stream "~A;" expr))
(definst block (stream :export t) (decls body)
(definst expr (stream :export t) (expr)
(format stream "~A;" expr))
(definst block (stream :export t) (decls body)
- (format stream "{~:@_~@< ~2I~@[~{~A;~:@_~}~:@_~]~{~A~^~:@_~}~:>~:@_}"
+ (format stream "{~:@_~@< ~2I~@[~{~A~:@_~}~:@_~]~{~A~^~:@_~}~:>~:@_}"
decls body))
(definst function (stream :export t) (name type body)
(pprint-logical-block (stream nil)
decls body))
(definst function (stream :export t) (name type body)
(pprint-logical-block (stream nil)