anchor.diff:  ;;; TODO
   ;;; SOURCE
     (initget "Yes" "No")
  -  (set ans (getkword "/nCreate files in respective directories? [Y]es [N]o, default is Yes:"))
  -  (setq custom-dir-p (if (or (= ans "Yes") (not ans) ) nil ans))
  +  (setq ans (getkword (strcat "/nDo you wish to specify locations for the .LAS file(s)?"
  +                              "/n[Y]es [N]o, default is No"))
  +  (setq use-custom-dir-p (if (or (= ans "No") (not ans) ) nil ans))
     (setq file-list (LM:GETFILES "Layerset files to convert" "" "ls3"))
  -  (HGG:Convert-Ls3-File:Process-Files file-list custom-dir-p)
  +  (HGG:Convert-Ls3-File:Process-Files file-list use-custom-dir-p)
     )
   ;;)
   
  
positive.code: ;;;   From a file list using the default filename, this function will recursively go through
  ;;;   the file list and create a LAS type file for each member in the list.
  ;;; DECLARATION
  (defun HGG:Convert-Ls3-File:Process-Files (file-list default-filename / ls3-file las-filename las-file)
  ;;; ARGUMENTS
  ;;;   file-list -- List of files to convert from ls3 to las.
  ;;;   default-filename -- A predicate wannabe used to determine if the default filename
  ;;; VARIABLES
  ;;;   ls3-file -- The ls3-file being read to create the las-file.
  ;;;   las-filename -- The path of the las-file to write to.
  
negative.code: ;;;   from .ls3 to .las. Then it calls a sub function (HGG:Convert-Ls3-File:Process-Files) which
  ;;;   iterates through the list of files and converts them appropriately.
  ;;; DECLARATION
  (defun HGG:Convert-Ls3-File ( / ans file-list use-custom-dir-p)
  ;;; VARIABLES:
  ;;;   ans -- The answer for input from the user.
  ;;;   file-list -- The list of ls3 files to process.
  ;;;   use-custom-dir-p -- The path of the custom directory or 'nil' if none was requested.
  ;;; EXAMPLE
  ;;;   :> Command: HGG:CONVERT-LS3-FILE
  ;;; CALLS
  