more fantasy land

gistfile1.txt

LISP
(defun lazy-mapcan (fun lst)
  (labels ((f (lst-cur)
          (if (lazy-null lst-cur)
                  (force (lazy-mapcan fun (lazy-cdr lst)))
                (cons (lazy-car lst-cur) (lazy (f (lazy-cdr lst-cur)))))))
    (lazy (unless (lazy-null lst)
        (f (funcall fun (lazy-car lst)))))))

1 (semi-compact)
defun 
    lazy-mapcan
    fun lst
    labels
        f
            lst-cur
            if
                lazy-null lst-cur
                force (lazy-mapcan fun (lazy-cdr lst))
        lazy
            unless (lazy-null lst)
            f (funcall fun (lazy-car lst))


2 (expanded)
defun 
    lazy-mapcan
    fun lst
    labels
        f
            lst-cur
            if
                lazy-null lst-cur
                force
                    lazy-mapcan
                        fun
                        lazy-cdr lst
        lazy
            unless
                lazy-null lst
            f
                funcall
                    fun
                    lazy-car lst