X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Finterface.lisp;h=b2c359e8beed99e615ebb51d026bd99c5806bdb3;hp=92f292ab4a00b3859bbc6207f4b0a94e4611e0a2;hb=fe712aa779be8210646dd5a74a665644232de3cb;hpb=5c8699f151207953f4029e0fc6c488afce99f756

diff --git a/src/main/interface.lisp b/src/main/interface.lisp
index 92f292a..b2c359e 100644
--- a/src/main/interface.lisp
+++ b/src/main/interface.lisp
@@ -60,7 +60,7 @@
  (cl-glut:post-redisplay))
 
 (defun close-func ()
- (sb-ext:exit))
+ (sb-ext:exit :abort t))
 
 (defun reshape (width height)
  (when (and (/= 0 width) (/= 0 height))