;;;File dialog for loading lisp files.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-28-96
;;;>		   EDITED: 07-23-2004
;;;
(defun c:LDLSP ( / )
  (setq edfil (getfiled "Load Lisp File" "v:/UTIL/LSP/" "lsp" 4))
  (if (> (strlen edfil) 4)
    (progn
      (setq efsln (-(strlen edfil)4))
      (setq edfil (substr edfil 1 efsln))
    );progn
  )
  (load edfil)
  (setq lfil (strcat "(c:" (substr edfil 4)")"))
  (eval(read lfil))
);defun