[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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