- (if (and (listp form) (eql 'js-block (car form))) ; ignore top-level block
- (loop for (statement . remaining) on (third form) do
- (ps-print statement) (psw ";") (when remaining (psw #\Newline)))
- (ps-print form))
- (reduce (lambda (acc next-token)
- (if (and (stringp next-token)
- (stringp (car (last acc))))
- (append (butlast acc) (list (concatenate 'string (car (last acc)) next-token)))
- (append acc (list next-token))))
- (cons () (reverse *print-accumulator*)))))
+ (if (and (listp form) (eql 'js-block (car form))) ; ignore top-level block
+ (loop for (statement . remaining) on (third form) do
+ (ps-print statement) (psw ";") (when remaining (psw #\Newline)))
+ (ps-print form))
+ (nreverse *print-accumulator*)))