anchor.diff:    If an error code > 0 has been found, the states that were found to be corrupt or missing are
     replaced with the default values.
     """
  -  (setq _DEFAULT_STATE
  +  ;; Validates a LAS type later-state and sets the error code on the returned las-state.
  +  ;;
  +  ;; The LAS type structure has an error code stored in (nth 7 las-state). This is the error code
  +  ;; that is set. See [FUNC] for more detail on the LAS type structure.
  +  ;;
  +  ;; Excerpt:
  +  ;; (nth 7 ls3-state) :> Error Code as follows:
  +  ;;                        0 = No Error
  +  ;;                        1 = Invalid amount size (# of states) for Layer State
  +  ;;                        2 = Bad value for a state (i.e. color > 255) with # being a state
  +  ;;                            numbered 0 - 6.
  +  ;;                        3 = Multiple states were found to be invalid.
  +  ;;                        4 = Unknown error
  +  ;;
  +  ;; Note that if an error was found in the las-state, the states are set to their default values.
  +  ;; This may change in the future if the user wishes to give permision on this feature.
  +  ;;
  +  ;; Calls:
  +  ;;
  +  ;; Parameters:
  +  ;;
  +  ;; Local Variables:
  +  ;;
  +  ;; Returns:
  +  ;;
  +  ;; ToDo:
  +  ;;
  +  ;; Revisions:
  +  ;;
  +  ;; Code:
  +  (setq _default-state_
       (list
         ""
         64
  
positive.code: ;;;             This allows for compatibility for Goldsmith Engineering from the depreciated
  ;;;             layerset custom program.
  ;;;
  ;;; To Do:
  ;;; (S.P.) @12-20-2015) - Finish layer_state processing.
  ;;;
  ;;; Revisions:
  ;;;
  
negative.code:      )
    )
  
  (defun HGG:Replace-N (lst new-value nth-element )
    "Returns a list with the n'th_element replaced with new-value"
    ;; [One-line summary]
    ;;
    ;; [Multi-line summary]
    ;;
    ;; Calls:
    ;;
    ;; Parameters:
    ;;
    ;; Local Variables:
    ;;
    ;; Returns:
    ;;
    ;; ToDo:
    ;;
    ;; Revisions:
    ;;
    ;; Code:
    (append
      (HGG:Get-First-N lst (- nth-element 1))
      new-value
      (HGG:Get-First-N (reverse lst) (- (length lst) nth-element))
      )
    )
  
  (defun HGG:Read-To-Delimiter (string delimiter-character-code / parsed-string delimiter-position)
    "Returns the string up to delimiter_code and removes it from string."
    ;; [One-line summary]
    ;;
    ;; [Multi-line summary]
    ;;
    ;; Calls:
    ;;
    ;; Parameters:
    ;;
    ;; Local Variables:
    ;;
    ;; Returns:
    ;;
    ;; ToDo:
    ;;
    ;; Revisions:
    ;;
    ;; Code:
    (setq delimiter-position (vl-string-position delimiter-character-code string))
    (setq parsed-string (substr string 1 delimiter-position))
    (setq string (substr string (+ 2 delimiter-position) (strlen string)))
    parsed-string
    )
  
  ;; Program continuation:
  (vl-load-com)
  (princ)
  ;;; ConvertLayerSetFile.LSP
  