[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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

Modified Files:
	debugger.lisp climacs.lisp 
Log Message:
Small fixups.


--- /project/clim-desktop/cvsroot/clim-desktop/debugger.lisp	2006/03/30 10:33:55	1.2
+++ /project/clim-desktop/cvsroot/clim-desktop/debugger.lisp	2006/08/28 19:56:27	1.3
@@ -1,4 +1,6 @@
 (in-package :common-lisp-user)
-#+sbcl (setf *debugger-hook* #'clim-debugger:debugger)
+#+sbcl (progn
+         (setf *debugger-hook* #'clim-debugger:debugger)
+         (setf sb-ext:*invoke-debugger-hook* #'clim-debugger:debugger))
 #+cmucl (setf *debug-hook* #'clim-debugger:debugger)
 
--- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/08/04 09:26:13	1.15
+++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/08/28 19:56:27	1.16
@@ -7,7 +7,7 @@
 		(clouseau:inspector (current-window)))
 
 (define-command (com-inspect-syntax :name "Inspect Syntax" :command-table base-table) ()
-		(clouseau:inspector (syntax (current-buffer))))
+		(clouseau:inspector (syntax (current-buffer *application-frame*))))
 
 (set-key 'com-inspect-buffer
 	 'base-table
@@ -54,7 +54,7 @@
   (with-climacs-frame (frame)
     (when frame
       (execute-frame-command 
-       frame `(com-find-file ,thing)))))
+       frame `(esa-io::com-find-file ,thing)))))
 
 (defmethod edit-in-climacs ((thing string) &key &allow-other-keys)
   ;; Hope it is a pathname.