November 2007 - mcclim-cvs@common-lisp.net

[mcclim-cvs] CVS mcclim
by thenriksen 19 Nov '07

19 Nov '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv23869 Modified Files: presentations.lisp Log Message: I must have been asleep, my `funcall-presentation-generic-function' fix broke the function completely. Unbroke it now. --- /project/mcclim/cvsroot/mcclim/presentations.lisp 2007/11/19 21:14:01 1.81 +++ /project/mcclim/cvsroot/mcclim/presentations.lisp 2007/11/19 22:04:29 1.82 @@ -1156,12 +1156,13 @@ (error "~S is not a presentation generic function" name)) (let* ((rebound-args (loop for arg in args unless (symbolp arg) - collect (list (gensym "ARG")))) + collect (list (gensym "ARG") arg))) (gf-name (generic-function-name gf)) - (type-spec-var (car (nth (1- (type-arg-position gf)) rebound-args)))) + (type-spec-var (nth (1- (type-arg-position gf)) args))) `(let ,rebound-args (,gf-name (prototype-or-error (presentation-type-name - ,type-spec-var)) + ,(or (first (find type-spec-var rebound-args :key #'second)) + type-spec-var))) ,@(mapcar #'(lambda (arg) ;; Order of evaluation doesn't matter ;; for symbols, and this shuts up

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 19 Nov '07

19 Nov '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv14875 Modified Files: presentations.lisp Log Message: Removed useless T clause in `fake-params-arg'. Two other clauses already handle atoms and conses respectively, there are no other kinds of objects. --- /project/mcclim/cvsroot/mcclim/presentations.lisp 2007/11/19 21:02:58 1.80 +++ /project/mcclim/cvsroot/mcclim/presentations.lisp 2007/11/19 21:14:01 1.81 @@ -240,9 +240,7 @@ (let ((var (car lambda-var))) (do-arg (if (and (eq state '&key) (consp var)) (car var) - var)))) - (t (list (fake-params-args lambda-var)))))))) - + var))))))))) ;;; Yet another variation on a theme...

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 19 Nov '07

19 Nov '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv14605 Modified Files: presentation-defs.lisp Log Message: `accept-from-string' is still WIP, but it should cause fewer compiler warnings now. The remaining one is actually out of our control, in fact, an SBCL hacker would be welcome to fix it, if that is possible. --- /project/mcclim/cvsroot/mcclim/presentation-defs.lisp 2007/02/10 21:32:22 1.71 +++ /project/mcclim/cvsroot/mcclim/presentation-defs.lisp 2007/11/19 21:10:40 1.72 @@ -1121,11 +1121,11 @@ &key view (default nil defaultp) (default-type nil default-type-p) - activation-gestures + (activation-gestures nil activationsp) (additional-activation-gestures nil additional-activations-p) - delimiter-gestures + (delimiter-gestures nil delimitersp) (additional-delimiter-gestures nil additional-delimiters-p) @@ -1141,8 +1141,7 @@ additional-delimiter-gestures delimiter-gestures) :override delimitersp))) - (when (or (zerop (- end start)) - (let ((maybe-end)))) + (when (zerop (- end start)) (if defaultp (return-from accept-from-string (values default (if default-type-p @@ -1153,7 +1152,7 @@ (let ((index 0)) (multiple-value-bind (val ptype) (with-input-from-string (stream string :start start :end end - :index index) + :index index) (with-keywords-removed (args (:start :end)) (apply #'stream-accept stream type :view +textual-view+ args))) (values val ptype index))))

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 19 Nov '07

19 Nov '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv13661 Modified Files: presentations.lisp Log Message: Changed the `funcall-presentation-generic-function' macro to cause fewer compiler warnings. It still yells about "unknown keyword arguments" because, say, the accept generic function isn't strictly specified to take, say, :default and :default-type arguments. --- /project/mcclim/cvsroot/mcclim/presentations.lisp 2007/01/10 11:19:01 1.79 +++ /project/mcclim/cvsroot/mcclim/presentations.lisp 2007/11/19 21:02:58 1.80 @@ -1156,15 +1156,24 @@ (let ((gf (gethash name *presentation-gf-table*))) (unless gf (error "~S is not a presentation generic function" name)) - (let* ((rebound-args (mapcar (lambda (arg) - `(,(gensym "ARG") ,arg)) - args)) - (gf-name (generic-function-name gf)) - (type-spec-var (car (nth (1- (type-arg-position gf)) rebound-args)))) + (let* ((rebound-args (loop for arg in args + unless (symbolp arg) + collect (list (gensym "ARG")))) + (gf-name (generic-function-name gf)) + (type-spec-var (car (nth (1- (type-arg-position gf)) rebound-args)))) `(let ,rebound-args - (,gf-name (prototype-or-error (presentation-type-name - ,type-spec-var)) - ,@(mapcar #'car rebound-args)))))) + (,gf-name (prototype-or-error (presentation-type-name + ,type-spec-var)) + ,@(mapcar #'(lambda (arg) + ;; Order of evaluation doesn't matter + ;; for symbols, and this shuts up + ;; warnings about arguments in a + ;; keyword position not being + ;; constant. By the way, why do we + ;; care about order of evaluation + ;; here? -trh + (or (first (find arg rebound-args :key #'second)) + arg)) args)))))) (defmacro apply-presentation-generic-function (name &rest args) (let ((gf (gethash name *presentation-gf-table*)))

1 0

[mcclim-cvs] CVS mcclim/Doc
by thenriksen 19 Nov '07

19 Nov '07

Update of /project/mcclim/cvsroot/mcclim/Doc In directory clnet:/tmp/cvs-serv7960/Doc Modified Files: drei.texi Log Message: Added mention of new Drei functions to the documentation. --- /project/mcclim/cvsroot/mcclim/Doc/drei.texi 2007/08/20 17:52:44 1.8 +++ /project/mcclim/cvsroot/mcclim/Doc/drei.texi 2007/11/19 20:38:10 1.9 @@ -75,52 +75,35 @@ malfunction. @menu -* Special Variables:: +* Special Variables:: +* Access Functions:: @end menu @node Special Variables @subsection Special Variables -Drei commands are meant to work by using the values of a number of -special variables bound by Drei during its pseudo command loop. Here is -a list of them: - -@defvar *current-window* -@vindex *current-window* -Somewhat counter-intuitively, the Drei instance. Not necessarily the -same as the editor pane. -@end defvar -@defvar *current-buffer* -@vindex *current-buffer* -The buffer of the Drei instance the command is being executed for. -@end defvar -@defvar *current-mark* -@vindex *current-mark* -The mark of the Drei instance. -@end defvar -@defvar *current-point* -@vindex *current-point* -The point of the Drei instance. -@end defvar -@defvar *current-syntax* -@vindex *current-syntax* -The syntax of @cl{*current-buffer*}. -@end defvar -@defvar *kill-ring* -@vindex *kill-ring* -The kill-ring object of the Drei instance. -@end defvar -@defvar *minibuffer* -@vindex *minibuffer* -The minibuffer of the Drei instance, which is where commands should -print information and other interesting things (using -@cl{display-message} or @cl{with-minibuffer-stream}). This may be -@cl{NIL} if no minibuffer is associated with the Drei instance. -@end defvar -@defvar *previous-command* -@vindex *previous-command* -The previous CLIM command that was executed by the Drei instance. -@end defvar +Drei uses a number of special variables to provide access to data +structures. These are described below. + +@include var-drei-star-drei-instance-star.texi +@include var-drei-kill-ring-star-kill-ring-star.texi + +Additionally, a number of ESA special variables are used in Drei. + +@include var-esa-star-minibuffer-star.texi +@include var-esa-star-previous-command-star.texi + +@node Access Functions +@subsection Access Functions + +The special variables essentially provide all that is needed to access +all parts of the Drei state, but for convenience, a number of utility +functions providing access to commonly used objects have been defined. + +@include fun-esa-current-buffer.texi +@include fun-drei-point.texi +@include fun-drei-mark.texi +@include fun-drei-current-syntax.texi @node External API @section External API @@ -1189,13 +1172,12 @@ (define-command (com-repeat-word :name t :command-table editing-table) () - (let ((mark (clone-mark *current-point*))) - (backward-word mark *current-syntax* 1) - (insert-sequence mark (region-to-sequence mark *current-point*)))) + (let ((mark (clone-mark (point))) + (backward-word mark (current-syntax 1) + (insert-sequence mark (region-to-sequence mark (point)))) @end lisp -For @cl{*current-point*} and @cl{*current-syntax*}, see @ref{Special -Variables}. +For @cl{(point)} and @cl{(current-syntax)}, see @ref{Access Functions}. This command facilitates the single repeat of a word, but that's it. This is not very useful - instead, we would like a command that @@ -1208,9 +1190,9 @@ (define-command (com-repeat-word :name t :command-table editing-table) ((count 'integer :prompt "Number of repeats")) - (let ((mark (clone-mark *current-point*))) - (backward-word mark *current-syntax* 1) - (let ((word (region-to-sequence mark *current-point*))) + (let ((mark (clone-mark (point))) + (backward-word mark (current-syntax 1) + (let ((word (region-to-sequence mark (point))) (dotimes (i count) (insert-sequence mark word))))) @end lisp

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 19 Nov '07

19 Nov '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv7891/Drei Modified Files: packages.lisp Log Message: Removed DREI-LISP-SYNTAX package symbol exports for symbols not actually used for anything, and added export for `invalid-lambda-list'. --- /project/mcclim/cvsroot/mcclim/Drei/packages.lisp 2007/11/19 20:28:43 1.17 +++ /project/mcclim/cvsroot/mcclim/Drei/packages.lisp 2007/11/19 20:37:18 1.18 @@ -508,7 +508,7 @@ #:destructuring-parameter #:required-parameter #:destructuring-required-parameter #:named-required-parameter #:optional-parameter #:destructuring-optional-parameter #:named-optional-parameter - #:keyword-parameter #:destructuring-keyword-parameter #:named-keyword-parameter + #:keyword-parameter #:destructuring-keyword-parameter #:rest-parameter #:body-parameter @@ -522,7 +522,7 @@ ;; Conditions. #:form-conversion-error - #:invalid-arglist) + #:invalid-lambda-list) (:shadow clim:form) (:documentation "Implementation of the syntax module used for editing Common Lisp code."))

1 0

[mcclim-cvs] CVS mcclim/ESA
by thenriksen 19 Nov '07

19 Nov '07

Update of /project/mcclim/cvsroot/mcclim/ESA In directory clnet:/tmp/cvs-serv7676/ESA Modified Files: packages.lisp Log Message: ESA no longer defines a `macrorecord-processed-gestures-mixin' class, so removed the symbol export from the package. --- /project/mcclim/cvsroot/mcclim/ESA/packages.lisp 2007/11/19 20:28:42 1.4 +++ /project/mcclim/cvsroot/mcclim/ESA/packages.lisp 2007/11/19 20:34:10 1.5 @@ -56,7 +56,7 @@ #:esa-frame-mixin #:recordingp #:executingp #:*esa-abort-gestures* #:*numeric-argument-p* #:*current-gesture* #:*command-processor* #:unbound-gesture-sequence #:gestures - #:command-processor #:instant-macro-execution-mixin #:macrorecord-processed-gestures-mixin + #:command-processor #:instant-macro-execution-mixin #:asynchronous-command-processor #:command-loop-command-processor #:overriding-handler #:directly-processing-p #:process-gesture #:process-gestures-or-command #:*extended-command-prompt*

1 0

[mcclim-cvs] CVS mcclim/ESA
by thenriksen 19 Nov '07

19 Nov '07

Update of /project/mcclim/cvsroot/mcclim/ESA In directory clnet:/tmp/cvs-serv7575/ESA Modified Files: esa.texi Log Message: Texinfoficated ESA's embryonic documentation (which I really think should be in mcclim/Doc, btw). The indexes don't work yet, for some esoteric Texinfo reason I do not understand. --- /project/mcclim/cvsroot/mcclim/ESA/esa.texi 2007/11/18 05:17:59 1.2 +++ /project/mcclim/cvsroot/mcclim/ESA/esa.texi 2007/11/19 20:32:23 1.3 @@ -1,4 +1,80 @@ -* Introduction +% @c -*- Coding: utf-8; Mode: Texinfo -*- +% @c Note that Texinfo does not support UTF-8. Please do not use literal +% @c UTF-8 characters in this document. +\input texinfo + +@setfilename esa +@settitle ESA User's Manual + +@copying +Copyright @copyright{} 2004,2005,2006,2007 the ESA hackers. +@end copying + +@dircategory Common Lisp +@direntry +* ESA User's Manual: (esa). A library for creating Emacs-Style Applications. +@end direntry + +@titlepage +@title{ESA User's Manual} + +@page +@vskip 0pt plus 1filll +@insertcopying + +@end titlepage + +@iftex +@contents +@end iftex + +@macro glossentry{ENTRY} +@b{\ENTRY\} +@cindex \ENTRY\ +@end macro + +@macro func{FUN} +@b{\FUN\} +@end macro + +@macro fmacro{MACRO} +@func{\MACRO\} +@end macro + +@macro genfun{FUN} +@func{\FUN\} +@end macro + +@alias gloss = i +@alias func = code +@alias class = code +@alias package = code +@alias gadget = code +@alias pane = code +@alias methcomp = t +@alias slot = code +@alias longref = t +@alias cl = code +@alias initarg = code + +@ifnottex +@node Top +@top McCLIM User's Manual +@insertcopying +@end ifnottex + +@menu +* Introduction:: +* Using the ESA input/output functions:: + +Index +* Concept Index:: +* Variable Index:: +* Function And Macro Index:: +@end menu + +@node Introduction +@chapter Introduction ESA is a library that makes it easier to write Emacs-Style Applications on top of McCLIM. It supplies a command processor that @@ -10,32 +86,43 @@ buffers in a certain number of windows, and that at all times, there is a current buffer that is being worked on. -* Basic use of ESA - -** Mixin classes +@node Basic use of ESA +@chapter Basic use of ESA -For basic use of the ESA library, the application needs to supply -it with certain functionality. The basic application document should -be a class that inherits from the class esa-buffer:esa-buffer mixin. +@menu +* Mixin classes:: +* The info pane:: +* The minibuffer pane:: +* Command tables:: +@end menu + +@node Mixin classes +@section Mixin classes +@cindex mixin classes + +For basic use of the ESA library, the application needs to supply it +with certain functionality. The basic application document should be a +class that inherits from the class @class{esa-buffer:esa-buffer} mixin. This class supplies functionality for associating the buffer with a file, to determine whether the buffer has been modified since last -saved, and whether the buffer is read-only. +saved, and whether the buffer is read-only. -Application panes should inherit from the class esa:esa-pane-mixin. +Application panes should inherit from the class +@class{esa:esa-pane-mixin}. -Application frames should inherit from the class esa:esa-frame-mixin. -This class supplies a slot that stores a list of the windows used by -the application, and an accessor esa:windows that can be used by -application code to return or to modify the list of windows used. -Notice that the class definition for the application frame must -explicitly inherit not only from esa-frame-mixin, but also from -standard-application-frame, since the latter is automatically supplied -only if the list of superclasses is empty. +Application frames should inherit from the class +@class{esa:esa-frame-mixin}. This class supplies a slot that stores a +list of the windows used by the application, and an accessor esa:windows +that can be used by application code to return or to modify the list of +windows used. Notice that the class definition for the application +frame must explicitly inherit not only from @class{esa-frame-mixin}, but +also from @class{standard-application-frame}, since the latter is +automatically supplied only if the list of superclasses is empty. Applications should supply a method on the generic function -esa:buffers which takes a single argument, the application frame. It -should return a list of all the application documents (buffers) that -the application is currently manipulating. +@cl{esa:buffers} which takes a single argument, the application frame. +It should return a list of all the application documents (buffers) that +the application is currently manipulating. Applications should also supply a method on the generic function esa:frame-current-buffer, which also take a single argument, the @@ -46,7 +133,9 @@ current buffer, in particular in order to save the current buffer to file, or to toggle the read-only flag of the current buffer. -** The info pane +@node The info pane +@section The info pane +@cindex info pane ESA supplies a class esa:info-pane which is typically used to display something similar to the status line of Emacs. It supplies a slot @@ -56,44 +145,54 @@ display-function for an info pane that displays some data about its master pane. -** The minibuffer pane +@node The minibuffer pane +@section The minibuffer pane +@cindex minibuffer pane ESA supplies a class esa:minibuffer-pane that is used to display messages to the user of the application, and also to acquire arguments to commands. Applications should make sure the application frame contains an instance of this class, or of a subclass of it. -** Command tables +@node Command tables +@section Command tables +@cindex command tables Typically, an application using the ESA library will need a number of CLIM command tables. ESA supplies a number of such command tables that the application can inherit from. - esa:global-esa-table [command table] - +@deftp {Command Table} esa:global-esa-table This command table contains a few basic commands that every application using the ESA library will need. +@end deftp - esa:com-quit [command] +@deffn {Command} esa:com-quit This command quits the application by invoking the CLIM function FRAME-EXIT on the application frame. It is included in the global-esa-table, together with the standard key bindings C-x C-c. +@end deffn -The global-esa-table also contains the keyboard binding M-x which -invokes the command esa:com-extended-command. This command prompts -the user for the name of a command in the minibuffer, and executes -that command. - - esa:keyboard-macro-table [command table] +The @class{global-esa-table} also contains the keyboard binding +@kbd{M-x} which invokes the command @cl{esa:com-extended-command}. This +command prompts the user for the name of a command in the minibuffer, +and executes that command. +@deftp {Command Table} esa:keyboard-macro-table This command table contains three commands, com-start-kbd-macro (C-x (), com-end-kbd-macro (C-x )) and com-call-last-kbd-macro (C-x e). Applications that want to use Emacs-style keyboard macros should include this table in the global application command table. +@end deftp + +@node Using the ESA input/output functions +@chapter Using the ESA input/output functions +@cindex IO +@cindex input +@cindex output -* Using the ESA input/output functions The ESA library provides facilities for loading a buffer from a file, and saving a buffer to a file. The esa-io package contains symbols @@ -130,7 +229,23 @@ or provide :before, :after, or :around methods on them in order to customize their behavior. -* Help facility +@node Help facility +@chapter Help facility + +@node Concept Index +@unnumbered Concept Index + +@printindex cp + +@node Variable Index +@unnumbered Variable Index + +@printindex vr + +@node Function And Macro Index +@unnumbered Function And Macro Index +@printindex fn +@bye

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 19 Nov '07

19 Nov '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv7043 Modified Files: package.lisp Log Message: Change the use of global variables in Drei to functions that query a single global variable (*drei-instance*). At the same time, change a few things in ESA to make Dreis use of it less hacky. --- /project/mcclim/cvsroot/mcclim/package.lisp 2007/02/07 12:44:17 1.62 +++ /project/mcclim/cvsroot/mcclim/package.lisp 2007/11/19 20:28:44 1.63 @@ -2072,6 +2072,7 @@ (defpackage :goatee (:use :clim :clim-lisp :clim-sys) (:import-from :clim-internals #:letf) + (:shadow #:point) (:export #:execute-gesture-command #:goatee-input-editing-mixin

1 0

[mcclim-cvs] CVS mcclim/ESA
by thenriksen 19 Nov '07

19 Nov '07

Update of /project/mcclim/cvsroot/mcclim/ESA In directory clnet:/tmp/cvs-serv7043/ESA Modified Files: packages.lisp esa.lisp Log Message: Change the use of global variables in Drei to functions that query a single global variable (*drei-instance*). At the same time, change a few things in ESA to make Dreis use of it less hacky. --- /project/mcclim/cvsroot/mcclim/ESA/packages.lisp 2007/08/13 21:56:04 1.3 +++ /project/mcclim/cvsroot/mcclim/ESA/packages.lisp 2007/11/19 20:28:42 1.4 @@ -45,8 +45,9 @@ (defpackage :esa (:use :clim-lisp :clim :esa-utils) - (:export #:buffers #:frame-current-buffer #:current-buffer #:*current-buffer* - #:windows #:frame-current-window #:current-window #:*current-window* + (:export #:*esa-instance* + #:buffers #:esa-current-buffer #:current-buffer + #:windows #:esa-current-window #:current-window #:*previous-command* #:*minibuffer* #:minibuffer #:minibuffer-pane #:display-message #:with-minibuffer-stream --- /project/mcclim/cvsroot/mcclim/ESA/esa.lisp 2007/09/30 22:03:54 1.10 +++ /project/mcclim/cvsroot/mcclim/ESA/esa.lisp 2007/11/19 20:28:43 1.11 @@ -2,6 +2,8 @@ ;;; (c) copyright 2005 by ;;; Robert Strandh (strandh(a)labri.fr) +;;; (c) copyright 2006-2007 by +;;; Troels Henriksen (athas(a)sigkill.dk) ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public @@ -26,41 +28,38 @@ ;;; ;;; Querying ESAs. -(defgeneric buffers (application-frame) - (:documentation "Return a list of all the buffers of the application.")) +(defvar *esa-instance* nil + "This symbol should be bound to an ESA instance, though any +object will do, provided the proper methods are defined. It will +be used as the argument to the various \"query\" functions +defined by ESA. For the vast majority of ESAs, `*esa-instance*' +will probably have the same value as `*application-frame*'.") -(defgeneric frame-current-buffer (application-frame) - (:documentation "Return the current buffer of APPLICATION-FRAME.") - (:method ((frame application-frame)) - nil)) +(defgeneric buffers (esa) + (:documentation "Return a list of all the buffers of the application.")) -(defvar *current-buffer* nil - "When a command is being executed, the current buffer.") +(defgeneric esa-current-buffer (esa) + (:documentation "Return the current buffer of APPLICATION-FRAME.")) (defun current-buffer () - "Return the current buffer of `*application-frame*'." - (frame-current-buffer *application-frame*)) + "Return the currently active buffer of the running ESA." + (esa-current-buffer *esa-instance*)) -(defgeneric windows (application-frame) - (:documentation "Return a list of all the windows of the application.") - (:method ((application-frame application-frame)) +(defgeneric windows (esa) + (:documentation "Return a list of all the windows of the ESA.") + (:method ((esa application-frame)) '())) -(defgeneric frame-current-window (application-frame) - (:documentation "Return the current window of APPLICATION-FRAME.") - (:method ((frame application-frame)) - (first (windows frame)))) - -(defvar *current-window* nil - "When a command is being executed, the current window.") +(defgeneric esa-current-window (esa) + (:documentation "Return the current window of ESA.")) (defun current-window () - "Return the current window of `*application-frame*'." - (frame-current-window *application-frame*)) + "Return the currently active window of the running ESA instance." + (esa-current-window *esa-instance*)) (defvar *previous-command* nil "When a command is being executed, the command previously -executed by the current frame.") +executed by the application.") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -766,6 +765,12 @@ (defclass esa-frame-mixin (command-processor) ((windows :accessor windows))) +(defmethod esa-current-buffer ((esa esa-frame-mixin)) + (first (buffers esa))) + +(defmethod esa-current-window ((esa esa-frame-mixin)) + (first (windows esa))) + (defmethod command-table ((frame esa-frame-mixin)) (find-applicable-command-table frame)) @@ -795,7 +800,7 @@ ;; FIXME: I'm not sure that we want to do this for commands sent ;; from other threads; we almost certainly don't want to do it twice ;; in such cases... - (setf (previous-command (frame-current-window frame)) command)) + (setf (previous-command (esa-current-window frame)) command)) (defmethod execute-frame-command :around ((frame esa-frame-mixin) command) (call-next-method) @@ -850,16 +855,15 @@ (*partial-command-parser* ,partial-command-parser) (*extended-command-prompt* ,prompt) (*pointer-documentation-output* - (frame-pointer-documentation-output ,frame))) + (frame-pointer-documentation-output ,frame)) + (*esa-instance* ,frame)) (unless (eq (frame-state ,frame) :enabled) (enable-frame ,frame)) (redisplay-frame-panes ,frame :force-p t) (loop do (restart-case (handler-case - (let* ((*current-window* (frame-current-window ,frame)) - (*current-buffer* (frame-current-buffer ,frame)) - (*command-processor* ,frame) + (let* ((*command-processor* ,frame) (command-table (find-applicable-command-table ,frame)) ,@bindings) ;; for presentation-to-command-translators,

1 0