/* There is no "continue" in Maxima, the easiest is using a "if" instead */
block(
   [s: ""],
   for n thru 10 do (
      s: sconcat(s, n),
      if mod(n, 5) = 0 then (
         ldisp(s),
         s: ""
      ) else (
         s: sconcat(s, ", ")
      )
   )
)$