home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / TY / SSSL.LSP < prev    next >
Encoding:
Text File  |  1990-11-19  |  465 b   |  17 lines
  1. ;****** TY\SSSl.LSP ****** 6-22-89 BJ
  2. (defun sssl (fn1 / f1 k sname)
  3.   (if (setq f1 (open fn1 "r")) (progn
  4.     (setq k 1 sss (list "sss") wxr 1)
  5.     (read-line f1)
  6.     (while wxr
  7.       (if (setq sname (read-line f1))
  8. ;       (progn (setq sss (cons (setq sname (read sname)) sss))
  9.         (progn (setq sss (cons (read sname) sss))
  10.           (setq k (1+ k)))
  11.         (progn (setq wxr nil sss (reverse sss)) (close f1))
  12.       )
  13.     )
  14.   ))
  15.   (princ)
  16. )
  17.