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.