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