Update of /project/gsharp/cvsroot/gsharp In directory common-lisp.net:/tmp/cvs-serv8801 Modified Files: gui.lisp Log Message: Now that it is possible to start a second Gsharp after the first one exits, make the quit command call frame-exit in both CMUCL and SBCL. Date: Fri Feb 27 04:34:30 2004 Author: rstrandh Index: gsharp/gui.lisp diff -u gsharp/gui.lisp:1.7 gsharp/gui.lisp:1.8 --- gsharp/gui.lisp:1.7 Fri Feb 27 04:27:42 2004 +++ gsharp/gui.lisp Fri Feb 27 04:34:30 2004 @@ -362,8 +362,7 @@ (message "Saved buffer to ~A~%" filename))) (define-gsharp-command (com-quit :name t) () - #+cmu (unix::unix-exit) - #+sbcl (frame-exit *application-frame*)) + (frame-exit *application-frame*)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;