Add simple ncurses command center

[clnl] / src / main / interface.lisp

diff --git a/src/main/interface.lisp b/src/main/interface.lisp
index 92f292ab4a00b3859bbc6207f4b0a94e4611e0a2..b2c359e8beed99e615ebb51d026bd99c5806bdb3 100644 (file)
--- 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))