anchor.diff:  ;;;   HGG:CONVERT-Ls3-File:Process-Files
   ;;;   HGG:Convert-Ls3-File
   ;;; TODO
  -;;;   S.P.@01-05-16 -- Update the behavior of default-filename to act more like a
  -;;;                    custom-file-dir-p.
  -;;;   S.P.@01-03-16 -- Consider using cond to split up statements and allow for output upon
  -;;;                    success.
  -;;; SOURCE
  -  (if (and (/= file-list nil) (setq ls3-file (open (car file-list) "r")a))
  +;;;   S.P.@01-20-16 -- Consider using generic and helpful error messages when generated upon failed
  +;;;                    read or write operations.
  +;;; SOURCE
  +  (if (and file-list (setq ls3-file (open (car file-list) "r")))
       (progn
  -      (print (concatenate "\nLS3 File \"" ls3-file "\" loaded."))
  -      (if default-filename
  +      (print (concatenate "LS3 File \"" ls3-file "\" loaded."))
  +      (if use-custom-dir-p
           (setq las-filename (vl-string-subst "las" "ls3" ls3-file))
  -        (setq las-filename (getfiled "Specify location to save layer state file:" "" "las" 0))
  +        (setq las-filename (getfiled "Specify location to save .LAS file:" "" "las" 0))
           )
         (if (setq las-file (open las-filename "w"))
           (progn
             (HGG:Convert-Ls3-File:Process-File (ls3-file las-file))
  -          (close ls3-file)
  -          (close las-file)
             (print (concatenate "\n" las-filename " created."))
             )
  -        ;; replace with generic *error:
  -        (print (print (concatenate "\nWARNING: Error creating \"" las-filename "\".")))
  +        (print (print (concatenate "\nWARNING: Error in writing to \"" las-filename "\".")))
           )
  +      (close las-file)
         )
  -    ;; replace with generic *error:
  -    (print (print (concatenate "\nWARNING: Error reading \"" ls3-file "\".")))
  -    (HGG:Convert-Ls3-File:Process-Files (cdr file-list) default-filename); Recursive call
  -    )
  +    (print (print (concatenate "\nWARNING: Error in reading \"" ls3-file "\".")))
  +    )
  +  (close ls3-file)
  +  (HGG:Convert-Ls3-File:Process-Files (cdr file-list) use-custom-dir-p); Recursive call
     )
   ;;)
   
  
positive.code: ;;; 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 file-list (LM:GETFILES "Layerset files to convert" "" "ls3"))
    (HGG:Convert-Ls3-File:Process-Files file-list custom-dir-p)
    )
  ;;)
  
  
negative.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 use-custom-dir-p / ls3-file las-filename las-file)
  ;;; ARGUMENTS
  ;;;   file-list -- List of files to convert from ls3 to las.
  ;;;   use-custom-dir-p -- The path of the custom directory or 'nil' if none was requested.
  ;;; VARIABLES
  ;;;   ls3-file -- The ls3-file being read to create the las-file.
  ;;;   las-filename -- The path of the las-file to write to.
  