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