Update of /project/clim-desktop/cvsroot/clim-desktop In directory clnet:/tmp/cvs-serv28098
Modified Files: climacs.lisp closure.lisp Log Message: Fixed some bitrot.
--- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2006/11/24 15:01:43 1.17 +++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2007/12/27 19:11:09 1.18 @@ -1,13 +1,16 @@ (in-package :climacs-commands)
(define-command (com-inspect-buffer :name "Inspect Buffer" :command-table base-table) () - (clouseau:inspector *current-buffer*)) + (clouseau:inspector (current-buffer))) + +(define-command (com-inspect-frame :name "Inspect Frame" :command-table base-table) () + (clouseau:inspector *esa-instance*))
(define-command (com-inspect-window :name "Inspect Current Window" :command-table base-table) () - (clouseau:inspector *current-window*)) + (clouseau:inspector (current-window)))
(define-command (com-inspect-syntax :name "Inspect Syntax" :command-table base-table) () - (clouseau:inspector *current-syntax*)) + (clouseau:inspector (current-syntax)))
(set-key 'com-inspect-buffer 'base-table --- /project/clim-desktop/cvsroot/clim-desktop/closure.lisp 2007/01/17 21:17:49 1.5 +++ /project/clim-desktop/cvsroot/clim-desktop/closure.lisp 2007/12/27 19:11:09 1.6 @@ -13,7 +13,7 @@ ;;; This library is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -n;;; Library General Public License for more details. +;;; Library General Public License for more details. ;;; ;;; You should have received a copy of the GNU Library General Public ;;; License along with this library; if not, write to the @@ -38,8 +38,8 @@ () "Look up a symbol in the Common Lisp HyperSpec or CLIM spec." (let* ((symbol (or (form-to-object *current-syntax* - (symbol-at-mark *current-point* - *current-syntax*)) + (symbol-at-mark *current-syntax* + *current-point*)) (accept 'symbol :prompt "Lookup documentation for symbol"))) (name (symbol-name symbol)) (*standard-output* *debug-io*)