Re: A Mandelbrot set generator in HG LISP

I was never a fan of “parenthesis pileup” layout. Try this for comparison:
>
(SETQ MANDELBROT
  (LAMBDA (X Y)
    (PROGN
      (SETQ C 126)
      (SETQ Z (LIST X Y))
      (SETQ A Z)
      (SETQ ITERATE
        (LAMBDA ()
          (COND
            ((OR (< C 32) (> (CABS Z) 2))
                 (- 126 C)
            )
            (T
              (PROGN
                (SETQ TEMP-CMUL (CMUL Z Z))
                (SETQ TEMP-CADD (CADD A TEMP-CMUL))
                (SETQ Z TEMP-CADD)
                (SETQ C (- C 1))
                (ITERATE)
              ) ; PROGN
            )
          ) ; COND
        ) ; LAMBDA
      ) ; ITERATE
      (ITERATE)
    ) ; PROGN
  ) ; LAMBDA
) ; MANDELBROT