anchor.diff:  ;   local variables
   ;     direxists: name of directory or nil if it does not exist
   (defun makedir (dirname / cdir)
  -	(setq cdir (vl-directory-files "" dirname -1))
  +	(setq cdir (vl-directory-files (getvar "DWGPREFIX") dirname -1))
     	(if (not cdir)
   		(progn
  -			(vl-mkdir (strcat ".//" dirname))
  +			(vl-mkdir (strcat (getvar "DWGPREFIX") "//" dirname))
   			(vl-directory-files "" dirname -1)
   		) ;progn
   	) ;if
  
positive.code: 	) ;setq
    	; create a directory named (bakName) in the current directory if it does not exist
  	(makedir bakName)
    	(vl-file-copy (strcat "./" (getvar "DWGNAME")) bakPath)
    	(princ "\n")
  	(princ "DONE")
    	(princ)
  ) ;defun
  
  
negative.code:   
       ;concatenate 
       (strcat yr mo day "-" hr m s)
  ) ;defun
  