(with-open-file (strm file :direction :input)
(setq size (round (/ (file-length strm) 1024))))
(lml-print "<a href=\"~A~A\">~A</a>" *ftp-url* ftp-name basename)
(with-open-file (strm file :direction :input)
(setq size (round (/ (file-length strm) 1024))))
(lml-print "<a href=\"~A~A\">~A</a>" *ftp-url* ftp-name basename)