anchor.diff:    )
   ;;)
   
  -;;(f* HGG/ConvertLayerSetFile/HGG:Load-Functions
  +;;(f* HGG/Load-Testing
  +;;; NAME
  +;;;   HGG:Load-Testing -- Sets up testing environment for key users. (V0.0.1)
  +;;; PURPOSE
  +;;;   Loads specific functions for specific users specified.
  +;;; DECLARATION
  +(defun HGG:Load-Testing (/ +acad-dlls+ +acad-users+)
  +;;; VARIABLES:
  +;;; EXAMPLE
  +;;;   :> Command: (HGG:Load-Testing)
  +;;; CALLS
  +;;; TODO
  +;;; SOURCE
  +
  +  (let +acad-dlls+ '(
  +	("plotstamp.dll")
  +    )
  +  )
  +
  +  (let +acad-users+ '(
  +    ("bgoldsmith")
  +    ("kford")
  +    ("spasztor")
  +    ("wgoldsmith")
  +    )
  +  )
  +
  +  (setq testing-users +acad-users+)
  +  (repeat (length +acad-users+)
  +    (if (equal (getvar "loginname") (car testing-users))
  +      (setq is-testing-user (1+ is-testing-user))
  +    )
  +    (setq testing-users (cdr testing-users))
  +  )
  +
  +  (setq dlls-left-to-load +acad-dlls+)
  +  (if (> is-testing-user 0)
  +    (repeat (length +acad-funcs+)
  +      (command "_.netload" (car dlls-left-to-load))
  +      (setq dlls-left-to-load (cdr dlls-left-to-load))
  +      )
  +    )
  +  )
  +;;)
  +
  +;;(f* HGG/HGG:Startup
   ;;; NAME
   ;;;   HGG:Startup -- Startup function to be appended to S::STARTUP. (V0.0.1)
   ;;; PURPOSE
  
positive.code: ;;;   |html https://rfsber.home.xs4all.nl/Robo/
  ;;)
  
  ;;(f* HGG/ConvertLayerSetFile/HGG:Load-Variables
  ;;; NAME
  ;;;   HGG:Load_Variables -- A simple Autocad System Variable setup function. (V0.0.1)
  ;;; PURPOSE
  
negative.code: ;;; TODO
  ;;;   S.P.@04-24-16 -- Debug in Visual Lisp
  ;;; SOURCE
    (HGG:Load-Variables)
    (HGG:Load-Functions)
    (HGG:Load-Testing)
    )
  ;;)
  
  