[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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)