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.
