Update of /project/clim-desktop/cvsroot/clim-desktop In directory clnet:/tmp/cvs-serv13310

Modified Files: clim-desktop.asd clim-launcher.lisp Log Message: Taking over the system debugger is probably A Bad Thing. Instead, use it when starting stuff via CLIM Launcher.

--- /project/clim-desktop/cvsroot/clim-desktop/clim-desktop.asd 2006/07/10 22:26:12 1.7 +++ /project/clim-desktop/cvsroot/clim-desktop/clim-desktop.asd 2007/01/15 22:46:46 1.8 @@ -27,6 +27,6 @@ (:file "beirc" :depends-on ("clim-launcher")) (:file "closure" :depends-on ("beirc" "clim-launcher" "clhs-lookup")) (:file "climacs" :depends-on ("EDITME")) - (:file "debugger" :depends-on ("EDITME")) + #+nil (:file "debugger" :depends-on ("EDITME")) (:file "listener") (:file "clim-launcher" :depends-on ("EDITME")))) --- /project/clim-desktop/cvsroot/clim-desktop/clim-launcher.lisp 2006/07/28 08:10:40 1.7 +++ /project/clim-desktop/cvsroot/clim-desktop/clim-launcher.lisp 2007/01/15 22:46:46 1.8 @@ -37,10 +37,10 @@ ;; when invoking a new thread, so we'll have to create the threads ;; and the bindings ourselves. (flet ((run () - (let #+sbcl ((sb-ext:*invoke-debugger-hook* #'clim-debugger:debugger) - (*debugger-hook* #'clim-debugger:debugger)) + (let #+sbcl ((sb-ext:*invoke-debugger-hook* 'clim-debugger:debugger) + (*debugger-hook* 'clim-debugger:debugger)) #-sbcl nil - (funcall (entry appl))))) + (funcall (entry appl))))) (clim-sys:make-process #'run :name (name appl))))

(define-launcher-command (com-remove-app)