[gsharp-cvs] CVS update: gsharp/gui.lisp

[Robert Strandh]

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*))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;