test [the libarynth]

This is an old revision of the document!

~~CLOUD:33~~

(defun expand-lhtml (list)
  ;;(format t "expaling: ~a~%" list)
  (let ((forms list))
    (if (not (eq nil forms))
        (mapcar #'(lambda (x) 
                    (if (listp x)
                        (if (listp (car x))
                            (cons 'progn (expand-lhtml x))
                            (cons (car x) (expand-lhtml (cdr x))))
                        x))
                forms))))

`asdf 1,2,3,5,2,4,8,4,3,,4,6,,8,12,11,9,6,43,19,12,31,23,1,23,25

slashdot