This is a test post.
This post is not supposed to contain any useful information. I'm just testing the platform.
Here is some source code:
(defun render-op-list (stream maxima-sym displayed-sym exprs)
(with-aligned-rendering (stream)
(iterate-exprs (expr exprs maxima-sym :first-sym first)
(unless first
(aligned-spacing 0.2)
(render-aligned-string "~a" displayed-sym)
(aligned-spacing 0.2))
(render-aligned () (render-maxima-expression stream expr)))))