 ;  LLD - Lisp loader with dialog box.
 ;  Copyright 1994, 2001 by Rocket Software Ltd.
 ;  Saves time wasted on repeated typing errors.
 ;  Shares ff default with XX.lsp and Find.lsp for easy editing & reloading.
 (DEFUN C:LLD (/ fn tt)
  (if (= (type ff) 'str)
      (setq tt ff)
      (setq tt " "))
  (setq fn (getfiled "Lisp load" tt "lsp" 12))
  (if fn
     (progn
          (setq ff fn)
          (setq fn (load ff))
          (print fn))
     (write-line "\nNo file selected"))
 (PRINC))