Close the current drawing without saving changes

I got a question by email on how to close an AutoCAD drawing without saving and without issuing any question to save changes.

Here’s my tip using AutoLISP. Just checking dbmod and if needed call Yes to discard all changes. This can be added to a toolbar as a macro or a command can be created based on it.

(command "_.close")
(if (not (equal 0 (getvar "dbmod"))) (command "_y"))