home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / CAD / PKEY11_1.ZIP / LP.LSP < prev    next >
Encoding:
Text File  |  1992-03-14  |  342 b   |  12 lines
  1. ;Load a lisp file in the default directory.
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (defun c:LP()
  7. (PRINC "Name of lisp file to load: <")
  8. (PRINC *lf1)
  9. (SETQ lf1(GETSTRING ">: "))
  10. (IF(= lf1 "")(SETQ lf1 *lf1)(SETQ *lf1 lf1))
  11. (load lf1)
  12. (princ))