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*)
