/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by ejohnson, Wed Dec 29 05:49:04 2004 UTC revision 1.27 by ejohnson, Wed Dec 29 05:55:26 2004 UTC
# Line 1  Line 1 
 ; SLIME 2004-12-13  
 CL-USER> (load "cvs-dir/mcclim/system")  
 ; in: LAMBDA NIL  
 ;     (OR "Lisp-Dep/mp-nil")  
 ; ==>  
 ;   "Lisp-Dep/mp-nil"  
 ;  
 ; note: deleting unreachable code  
 ; compilation unit finished  
 ;   printed 1 note  
 T  
 CL-USER> (require 'clim-clx-user)  
 ; loading system definition from #P"/usr/local/lib/sbcl/site-systems/clx.asd"  
 ; into #<PACKAGE "ASDF4627">  
 ; registering #<SYSTEM CLX {9811989}> as CLX  
 ; in: LAMBDA (#:G5429 #:G5430 #:G5431 #:G5432 #:G5437 #:G5438)  
 ;     (EQL SB-PCL::.CASE-ARG. #:G5429)  
 ;  
 ; note: unable to  
 ;   optimize  
 ; due to type uncertainty:  
 ;   The first argument is a T, not a SINGLE-FLOAT.  
 ;   The second argument is a T, not a SINGLE-FLOAT.  
 ;  
 ; note: unable to  
 ;   optimize  
 ; due to type uncertainty:  
 ;   The first argument is a T, not a DOUBLE-FLOAT.  
 ;   The second argument is a T, not a DOUBLE-FLOAT.  
 ;  
 ; note: forced to do GENERIC-EQL (cost 10)  
 ;       unable to do inline fixnum comparison (cost 4) because:  
 ;       The first argument is a T, not a FIXNUM.  
 ;       The second argument is a T, not a FIXNUM.  
 ; in:  
 ;      LAMBDA (#:G5443 #:G5444  
 ;                  #:G5445  
 ;                  #:G5446  
 ;                  #:G5447  
 ;                  #:G5448  
 ;                  #:G5449  
 ;                  #:G5454  
 ;                  #:G5455)  
 ;     (EQL SB-PCL::.CASE-ARG. #:G5443)  
 ;  
 ; note: unable to  
 ;   optimize  
 ; due to type uncertainty:  
 ;   The first argument is a T, not a SINGLE-FLOAT.  
 ;   The second argument is a T, not a SINGLE-FLOAT.  
 ;  
 ; note: unable to  
 ;   optimize  
 ; due to type uncertainty:  
 ;   The first argument is a T, not a DOUBLE-FLOAT.  
 ;   The second argument is a T, not a DOUBLE-FLOAT.  
   
 ;     (EQL SB-PCL::.CASE-ARG. #:G5446)  
 ;  
 ; note: unable to  
 ;   optimize  
 ; due to type uncertainty:  
 ;   The first argument is a T, not a SINGLE-FLOAT.  
 ;   The second argument is a T, not a SINGLE-FLOAT.  
 ;  
 ; note: unable to  
 ;   optimize  
 ; due to type uncertainty:  
 ;   The first argument is a T, not a DOUBLE-FLOAT.  
 ;   The second argument is a T, not a DOUBLE-FLOAT.  
   
 ;     (EQL SB-PCL::.CASE-ARG. #:G5443)  
 ;  
 ; note: forced to do GENERIC-EQL (cost 10)  
 ;       unable to do inline fixnum comparison (cost 4) because:  
 ;       The first argument is a T, not a FIXNUM.  
 ;       The second argument is a T, not a FIXNUM.  
   
 ;     (EQL SB-PCL::.CASE-ARG. #:G5446)  
 ;  
 ; note: forced to do GENERIC-EQL (cost 10)  
 ;       unable to do inline fixnum comparison (cost 4) because:  
 ;       The first argument is a T, not a FIXNUM.  
 ;       The second argument is a T, not a FIXNUM.  
 ; compilation unit finished  
 ;   printed 9 notes  
 NIL  
 CL-USER> (load "cvs-dir/climacs/climacs.asd")  
 T  
 CL-USER> (require 'climacs)  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/Flexichain/skiplist-package.lisp" (written 16 AUG 2004 01:12:45 AM):  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/Flexichain/skiplist-package.fasl written  
 ; compilation finished in 0:00:00  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/Flexichain/skiplist.lisp" (written 16 AUG 2004 01:12:45 AM):  
 ; compiling top level form:  
 ; compiling DEFCLASS SKIPLIST:  
 ; compiling DEFCLASS SKIPLIST:  
 ; compiling DEFCLASS SKIPLIST:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (SKIPLIST):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD PRINT-OBJECT (SKIPLIST T):  
 ; compiling top level form:  
 ; recognizing DEFUN ENTRY-OBJ  
 ; compiling DEFUN ENTRY-OBJ:  
 ; compiling top level form:  
 ; recognizing DEFUN (SETF ENTRY-OBJ)  
 ; compiling DEFUN (SETF ENTRY-OBJ):  
 ; compiling top level form:  
 ; recognizing DEFUN ENTRY-KEY  
 ; compiling DEFUN ENTRY-KEY:  
 ; compiling top level form:  
 ; recognizing DEFUN (SETF ENTRY-KEY)  
 ; compiling DEFUN (SETF ENTRY-KEY):  
 ; compiling top level form:  
 ; recognizing DEFUN ENTRY-NEXT  
 ; compiling DEFUN ENTRY-NEXT:  
 ; compiling top level form:  
 ; recognizing DEFUN (SETF ENTRY-NEXT)  
 ; compiling DEFUN (SETF ENTRY-NEXT):  
 ; compiling top level form:  
 ; recognizing DEFUN KEY-<  
 ; compiling DEFUN KEY-<:  
 ; compiling top level form:  
 ; recognizing DEFUN KEY-<=  
 ; compiling DEFUN KEY-<=:  
 ; compiling top level form:  
 ; recognizing DEFUN KEY-=  
 ; compiling DEFUN KEY-=:  
 ; compiling top level form:  
 ; recognizing DEFUN KEY->  
 ; compiling DEFUN KEY->:  
 ; compiling top level form:  
 ; recognizing DEFUN KEY->=  
 ; compiling DEFUN KEY->=:  
 ; compiling top level form:  
 ; recognizing DEFUN LAST-ENTRY-P  
 ; compiling DEFUN LAST-ENTRY-P:  
 ; compiling top level form:  
 ; recognizing DEFUN SKIPLIST-EMPTY-P  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN SKIPLIST-EMPTY-P:  
 ; compiling top level form:  
 ; recognizing DEFUN FIND-ENTRY-LEVEL  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN FIND-ENTRY-LEVEL:  
 ; compiling top level form:  
 ; recognizing DEFUN SKIPLIST-FIND  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN SKIPLIST-FIND:  
 ; compiling top level form:  
 ; recognizing DEFUN SKIPLIST-FIND-FIRST  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN SKIPLIST-FIND-FIRST:  
 ; compiling top level form:  
 ; recognizing DEFUN PICK-A-LEVEL  
 ; compiling DEFUN PICK-A-LEVEL:  
 ; compiling top level form:  
 ; recognizing DEFUN MAKE-ENTRY  
 ; compiling DEFUN MAKE-ENTRY:  
 ; compiling top level form:  
 ; recognizing DEFUN (SETF SKIPLIST-FIND)  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN (SETF SKIPLIST-FIND):  
 ; compiling top level form:  
 ; recognizing DEFUN SKIPLIST-DELETE  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN SKIPLIST-DELETE:  
 ; compiling top level form:  
 ; recognizing DEFUN UPDATE-INTERVAL  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN UPDATE-INTERVAL:  
 ; compiling top level form:  
 ; recognizing DEFUN SKIPLIST-SLIDE-KEYS  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN SKIPLIST-SLIDE-KEYS:  
 ; compiling top level form:  
 ; recognizing DEFUN SKIPLIST-ROTATE-PREFIX  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN SKIPLIST-ROTATE-PREFIX:  
 ; compiling top level form:  
 ; recognizing DEFUN UPDATE-INTERVAL-TO-END  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN UPDATE-INTERVAL-TO-END:  
 ; compiling top level form:  
 ; recognizing DEFUN SKIPLIST-ROTATE-SUFFIX  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN SKIPLIST-ROTATE-SUFFIX:  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/Flexichain/skiplist.fasl written  
 ; compilation finished in 0:00:02  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/Flexichain/flexichain-package.lisp" (written 27 DEC 2004 10:57:00 PM):  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/Flexichain/flexichain-package.fasl written  
 ; compilation finished in 0:00:00  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/Flexichain/utilities.lisp" (written 01 AUG 2004 08:27:19 AM):  
 ; compiling top level form:  
 ; recognizing DEFUN SQUARE  
 ; compiling DEFUN SQUARE:  
 ; compiling top level form:  
 ; recognizing DEFUN FIND-IF-2  
 ; compiling DEFUN FIND-IF-2:  
 ; compiling top level form:  
 ; recognizing DEFUN MAKE-WEAK-POINTER  
 ; compiling DEFUN MAKE-WEAK-POINTER:  
 ; compiling top level form:  
 ; recognizing DEFUN WEAK-POINTER-VALUE  
 ; compiling DEFUN WEAK-POINTER-VALUE:  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/Flexichain/utilities.fasl written  
 ; compilation finished in 0:00:00  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/Flexichain/flexichain.lisp" (written 27 DEC 2004 10:57:00 PM):  
 ; compiling top level form:  
 ; compiling DEFCLASS FLEXICHAIN:  
 ; compiling DEFCLASS FLEXICHAIN:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (FLEXICHAIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFINE-CONDITION FLEXI-INITIALIZATION-ERROR:  
 ; compiling top level form:  
 ; compiling DEFINE-CONDITION FLEXI-POSITION-ERROR:  
 ; compiling top level form:  
 ; compiling DEFINE-CONDITION FLEXI-INCOMPATIBLE-TYPE-ERROR:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN REQUIRED-SPACE  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN REQUIRED-SPACE:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (STANDARD-FLEXICHAIN):  
 ; compiling top level form:  
 ; compiling DEFMACRO WITH-VIRTUAL-GAP:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD NB-ELEMENTS (STANDARD-FLEXICHAIN):  
 ; compiling top level form:  
 ; compiling DEFMETHOD FLEXI-EMPTY-P (STANDARD-FLEXICHAIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN POSITION-INDEX  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN POSITION-INDEX:  
 ; compiling top level form:  
 ; recognizing DEFUN INDEX-POSITION  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN INDEX-POSITION:  
 ; compiling top level form:  
 ; recognizing DEFUN ENSURE-GAP-POSITION  
 ; compiling DEFUN ENSURE-GAP-POSITION:  
 ; compiling top level form:  
 ; recognizing DEFUN ENSURE-ROOM  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN ENSURE-ROOM:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD INSERT* (STANDARD-FLEXICHAIN T T):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD INSERT-VECTOR* (STANDARD-FLEXICHAIN T T):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD DELETE* (STANDARD-FLEXICHAIN T):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD ELEMENT* (STANDARD-FLEXICHAIN T):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD (SETF ELEMENT*) (T STANDARD-FLEXICHAIN T):  
 ; compiling top level form:  
 ; compiling DEFMETHOD PUSH-START (STANDARD-FLEXICHAIN T):  
 ; compiling top level form:  
 ; compiling DEFMETHOD PUSH-END (STANDARD-FLEXICHAIN T):  
 ; compiling top level form:  
 ; compiling DEFMETHOD POP-START (STANDARD-FLEXICHAIN):  
 ; compiling top level form:  
 ; compiling DEFMETHOD POP-END (STANDARD-FLEXICHAIN):  
 ; compiling top level form:  
 ; compiling DEFMETHOD ROTATE (STANDARD-FLEXICHAIN):  
 ; compiling top level form:  
 ; recognizing DEFUN MOVE-GAP  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN MOVE-GAP:  
 ; compiling top level form:  
 ; recognizing DEFUN MOVE-EMPTY-GAP  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN MOVE-EMPTY-GAP:  
 ; compiling top level form:  
 ; recognizing DEFUN MOVE-LEFT-GAP  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN MOVE-LEFT-GAP:  
 ; compiling top level form:  
 ; recognizing DEFUN MOVE-RIGHT-GAP  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN MOVE-RIGHT-GAP:  
 ; compiling top level form:  
 ; recognizing DEFUN MOVE-MIDDLE-GAP  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN MOVE-MIDDLE-GAP:  
 ; compiling top level form:  
 ; recognizing DEFUN MOVE-NON-CONTIGUOUS-GAP  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN MOVE-NON-CONTIGUOUS-GAP:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD MOVE-ELEMENTS (STANDARD-FLEXICHAIN T T T T T):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD FILL-GAP (STANDARD-FLEXICHAIN T T):  
 ; compiling top level form:  
 ; recognizing DEFUN PUSH-ELEMENTS-LEFT  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN PUSH-ELEMENTS-LEFT:  
 ; compiling top level form:  
 ; recognizing DEFUN PUSH-ELEMENTS-RIGHT  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN PUSH-ELEMENTS-RIGHT:  
 ; compiling top level form:  
 ; recognizing DEFUN HOP-ELEMENTS-LEFT  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN HOP-ELEMENTS-LEFT:  
 ; compiling top level form:  
 ; recognizing DEFUN HOP-ELEMENTS-RIGHT  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN HOP-ELEMENTS-RIGHT:  
 ; compiling top level form:  
 ; recognizing DEFUN INCREASE-BUFFER-SIZE  
 ; compiling DEFUN INCREASE-BUFFER-SIZE:  
 ; compiling top level form:  
 ; recognizing DEFUN DECREASE-BUFFER-SIZE  
 ; compiling DEFUN DECREASE-BUFFER-SIZE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD RESIZE-BUFFER (STANDARD-FLEXICHAIN T):  
 ; compiling top level form:  
 ; recognizing DEFUN NORMALIZE-INDICES  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN NORMALIZE-INDICES:  
 ; compiling top level form:  
 ; recognizing DEFUN GAP-LOCATION  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN GAP-LOCATION:  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/Flexichain/flexichain.fasl written  
 ; compilation finished in 0:00:04  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/Flexichain/flexicursor.lisp" (written 06 SEP 2004 04:25:52 AM):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFINE-CONDITION AT-BEGINNING-ERROR:  
 ; compiling top level form:  
 ; compiling DEFINE-CONDITION AT-END-ERROR:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling DEFCLASS STANDARD-CURSORCHAIN:  
 ; compiling top level form:  
 ; recognizing DEFUN MAKE-WP  
 ; compiling DEFUN MAKE-WP:  
 ; compiling top level form:  
 ; recognizing DEFUN WP-VALUE  
 ; compiling DEFUN WP-VALUE:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD MOVE-ELEMENTS :AFTER (STANDARD-CURSORCHAIN T T T T T):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (LEFT-STICKY-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (RIGHT-STICKY-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling DEFMETHOD CLONE-CURSOR (STANDARD-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD CURSOR-POS (LEFT-STICKY-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD (SETF CURSOR-POS) (T LEFT-STICKY-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD CURSOR-POS (RIGHT-STICKY-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD (SETF CURSOR-POS) (T RIGHT-STICKY-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling DEFMETHOD AT-BEGINNING-P (STANDARD-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling DEFMETHOD AT-END-P (STANDARD-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling DEFMETHOD INSERT (STANDARD-FLEXICURSOR T):  
 ; compiling top level form:  
 ; compiling DEFMETHOD INSERT-SEQUENCE (STANDARD-FLEXICURSOR T):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD DELETE* :BEFORE (STANDARD-CURSORCHAIN T):  
 ; compiling top level form:  
 ; compiling DEFMETHOD DELETE> (STANDARD-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling DEFMETHOD DELETE< (STANDARD-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling DEFMETHOD ELEMENT> (STANDARD-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling DEFMETHOD (SETF ELEMENT>) (T STANDARD-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling DEFMETHOD ELEMENT< (STANDARD-FLEXICURSOR):  
 ; compiling top level form:  
 ; compiling DEFMETHOD (SETF ELEMENT<) (T STANDARD-FLEXICURSOR):  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/Flexichain/flexicursor.fasl written  
 ; compilation finished in 0:00:02  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/packages.lisp" (written 28 DEC 2004 09:38:37 PM):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/packages.fasl written  
 ; compilation finished in 0:00:00  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/buffer.lisp" (written 27 DEC 2004 10:58:36 PM):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling DEFCLASS STANDARD-BUFFER:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD OFFSET (T):  
 ; compiling top level form:  
 ; compiling DEFMETHOD (SETF OFFSET) (T T):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (LEFT-STICKY-MARK):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (RIGHT-STICKY-MARK):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (STANDARD-BUFFER):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD CLONE-MARK (STANDARD-LEFT-STICKY-MARK):  
 ; compiling top level form:  
 ; compiling DEFMETHOD CLONE-MARK (STANDARD-RIGHT-STICKY-MARK):  
 ; compiling top level form:  
 ; compiling DEFINE-CONDITION NO-SUCH-OFFSET:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD SIZE (STANDARD-BUFFER):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD NUMBER-OF-LINES (STANDARD-BUFFER):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK< (MARK-MIXIN MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK< (MARK-MIXIN INTEGER):  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK< (INTEGER MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK<= (MARK-MIXIN MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK<= (MARK-MIXIN INTEGER):  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK<= (INTEGER MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK= (MARK-MIXIN MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK= (MARK-MIXIN INTEGER):  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK= (INTEGER MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK> (MARK-MIXIN MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK> (MARK-MIXIN INTEGER):  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK> (INTEGER MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK>= (MARK-MIXIN MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK>= (MARK-MIXIN INTEGER):  
 ; compiling top level form:  
 ; compiling DEFMETHOD MARK>= (INTEGER MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD BEGINNING-OF-BUFFER (MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD END-OF-BUFFER (MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD BEGINNING-OF-BUFFER-P (MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD END-OF-BUFFER-P (MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD BEGINNING-OF-LINE-P (MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD END-OF-LINE-P (MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD BEGINNING-OF-LINE (MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD END-OF-LINE (MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD LINE-NUMBER (MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD COLUMN-NUMBER (MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD INSERT-BUFFER-OBJECT (STANDARD-BUFFER T T):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD INSERT-BUFFER-SEQUENCE (STANDARD-BUFFER T T):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD INSERT-OBJECT (MARK-MIXIN T):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD INSERT-SEQUENCE (MARK-MIXIN T):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD DELETE-BUFFER-RANGE (STANDARD-BUFFER T T):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD DELETE-RANGE (MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD DELETE-REGION (MARK-MIXIN MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling DEFMETHOD DELETE-REGION (MARK-MIXIN T):  
 ; compiling top level form:  
 ; compiling DEFMETHOD DELETE-REGION (T MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD BUFFER-OBJECT (STANDARD-BUFFER T):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD BUFFER-SEQUENCE (STANDARD-BUFFER T T):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD OBJECT-BEFORE (MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD OBJECT-AFTER (MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD REGION-TO-SEQUENCE (MARK-MIXIN MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling DEFMETHOD REGION-TO-SEQUENCE (INTEGER MARK-MIXIN):  
 ; compiling top level form:  
 ; compiling DEFMETHOD REGION-TO-SEQUENCE (MARK-MIXIN INTEGER):  
 ; compiling top level form:  
 ; compiling DEFMETHOD INSERT-BUFFER-OBJECT :BEFORE (STANDARD-BUFFER T T):  
 ; compiling top level form:  
 ; compiling DEFMETHOD INSERT-BUFFER-SEQUENCE :BEFORE (STANDARD-BUFFER T T):  
 ; compiling top level form:  
 ; compiling DEFMETHOD DELETE-BUFFER-RANGE :BEFORE (STANDARD-BUFFER T T):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD RESET-LOW-HIGH-MARKS (STANDARD-BUFFER):  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/buffer.fasl written  
 ; compilation finished in 0:00:04  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/base.lisp" (written 27 DEC 2004 03:32:46 AM):  
 ; compiling top level form:  
 ; recognizing DEFUN PREVIOUS-LINE  
 ; compiling DEFUN PREVIOUS-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN NEXT-LINE  
 ; compiling DEFUN NEXT-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN OPEN-LINE  
 ; compiling DEFUN OPEN-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN KILL-LINE  
 ; compiling DEFUN KILL-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN BUFFER-NUMBER-OF-LINES-IN-REGION  
 ; compiling DEFUN BUFFER-NUMBER-OF-LINES-IN-REGION:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFMETHOD NUMBER-OF-LINES-IN-REGION (MARK MARK):  
 ; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE CLIMACS-BUFFER:MARK)):  
 ; compiling top level form:  
 ; compiling DEFMETHOD NUMBER-OF-LINES-IN-REGION (INTEGER MARK):  
 ; compiling top level form:  
 ; compiling DEFMETHOD NUMBER-OF-LINES-IN-REGION (MARK INTEGER):  
 ; compiling top level form:  
 ; recognizing DEFUN CONSTITUENTP  
 ; compiling DEFUN CONSTITUENTP:  
 ; compiling top level form:  
 ; recognizing DEFUN FORWARD-WORD  
 ; compiling DEFUN FORWARD-WORD:  
 ; compiling top level form:  
 ; recognizing DEFUN BACKWARD-WORD  
 ; compiling DEFUN BACKWARD-WORD:  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/base.fasl written  
 ; compilation finished in 0:00:01  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/io.lisp" (written 27 DEC 2004 10:58:36 PM):  
 ; compiling top level form:  
 ; recognizing DEFUN INPUT-FROM-STREAM  
 ; compiling DEFUN INPUT-FROM-STREAM:  
 ; compiling top level form:  
 ; recognizing DEFUN OUTPUT-TO-STREAM  
 ; compiling DEFUN OUTPUT-TO-STREAM:  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/io.fasl written  
 ; compilation finished in 0:00:00  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/abbrev.lisp" (written 23 DEC 2004 12:00:33 AM):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN STRING-UPPER-CASE-P  
 ; compiling DEFUN STRING-UPPER-CASE-P:  
 ; compiling top level form:  
 ; compiling DEFMETHOD EXPAND-ABBREV (T DICTIONARY-ABBREV-EXPANDER):  
 ; compiling top level form:  
 ; recognizing DEFUN POSSIBLY-EXPAND-ABBREV  
 ; compiling DEFUN POSSIBLY-EXPAND-ABBREV:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling DEFCLASS ABBREV-MIXIN:  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/abbrev.fasl written  
 ; compilation finished in 0:00:00  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/syntax.lisp" (written 28 DEC 2004 02:41:14 PM):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN REDISPLAY-PANE  
 ; compiling DEFUN REDISPLAY-PANE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (BASIC-SYNTAX):  
 ; compiling top level form:  
 ; compiling DEFINE-PRESENTATION-TYPE URL:  
 ; compiling DEFINE-PRESENTATION-TYPE URL:  
 ; compiling top level form:  
 ; compiling DEFINE-PRESENTATION-TYPE URL:  
 ; compiling top level form:  
 ; compiling DEFMETHOD PRESENT-CONTENTS (T T BASIC-SYNTAX):  
 ; compiling top level form:  
 ; compiling DEFMACRO MAYBE-UPDATING-OUTPUT:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD DISPLAY-LINE (T BASIC-SYNTAX):  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFMETHOD REDISPLAY-WITH-SYNTAX (T BASIC-SYNTAX):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFINE-PRESENTATION-TYPE TEXINFO-COMMAND:  
 ; compiling DEFINE-PRESENTATION-TYPE TEXINFO-COMMAND:  
 ; compiling top level form:  
 ; compiling DEFINE-PRESENTATION-TYPE TEXINFO-COMMAND:  
 ; compiling top level form:  
 ; compiling DEFMETHOD PRESENT-CONTENTS (T T TEXINFO-SYNTAX):  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/syntax.fasl written  
 ; compilation finished in 0:00:02  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/kill-ring.lisp" (written 28 DEC 2004 09:28:25 PM):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN INITIALIZE-KILL-RING  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling DEFUN INITIALIZE-KILL-RING:  
 ; compiling top level form:  
 ; recognizing DEFUN KR-LENGTH  
 ; compiling DEFUN KR-LENGTH:  
 ; compiling top level form:  
 ; recognizing DEFUN KR-RESIZE  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN KR-RESIZE:  
 ; compiling top level form:  
 ; recognizing DEFUN KR-PUSH  
 ; compiling DEFUN KR-PUSH:  
 ; compiling top level form:  
 ; recognizing DEFUN KR-POP  
 ; compiling DEFUN KR-POP:  
 ; compiling top level form:  
 ; recognizing DEFUN KR-ROTATE  
 ; compiling DEFUN KR-ROTATE:  
 ; compiling top level form:  
 ; recognizing DEFUN KR-COPY  
 ; compiling DEFUN KR-COPY:  
 ; compiling top level form:  
 ; recognizing DEFUN KR-COPY-IN  
 ; compiling DEFUN KR-COPY-IN:  
 ; compiling top level form:  
 ; recognizing DEFUN KR-CUT-IN  
 ; compiling DEFUN KR-CUT-IN:  
 ; compiling top level form:  
 ; recognizing DEFUN KR-COPY-OUT  
 ; compiling DEFUN KR-COPY-OUT:  
 ; compiling top level form:  
 ; recognizing DEFUN KR-CUT-OUT  
 ; compiling DEFUN KR-CUT-OUT:  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/kill-ring.fasl written  
 ; compilation finished in 0:00:00  
 ; compiling file "/home/ejohnson/cvs-dir/climacs/gui.lisp" (written 28 DEC 2004 09:26:34 PM):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFCLASS CLIMACS-BUFFER:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling DEFCLASS CLIMACS-PANE:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (CLIMACS-PANE):  
 ; compiling top level form:  
 ; compiling DEFINE-APPLICATION-FRAME CLIMACS:  
 ; compiling DEFINE-APPLICATION-FRAME CLIMACS:  
 ; compiling DEFINE-APPLICATION-FRAME CLIMACS:  
 ; compiling DEFINE-APPLICATION-FRAME CLIMACS:  
 ; compiling DEFINE-APPLICATION-FRAME CLIMACS:  
 ; compiling DEFINE-APPLICATION-FRAME CLIMACS:  
 ; compiling DEFINE-APPLICATION-FRAME CLIMACS:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFINE-APPLICATION-FRAME CLIMACS:  
 ; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE CLIM:FRAME-MANAGER)):  
 ; compiling top level form:  
 ; compiling DEFINE-APPLICATION-FRAME CLIMACS:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form:  
 ; compiling DEFINE-APPLICATION-FRAME CLIMACS:  
 ; compiling top level form:  
 ; recognizing DEFUN CLIMACS  
 ; compiling DEFUN CLIMACS:  
 ; compiling top level form:  
 ; recognizing DEFUN DISPLAY-INFO  
 ; compiling DEFUN DISPLAY-INFO:  
 ; compiling top level form:  
 ; recognizing DEFUN DISPLAY-WIN  
 ; compiling DEFUN DISPLAY-WIN:  
 ; compiling top level form:  
 ; recognizing DEFUN FIND-GESTURES  
 ; compiling DEFUN FIND-GESTURES:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN CLIMACS-TOP-LEVEL  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFUN CLIMACS-TOP-LEVEL:  
 ; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE CLIM:KEYBOARD-EVENT)):  
 ; compiling top level form:  
 ; recognizing DEFUN COM-QUIT  
 ; compiling DEFINE-COMMAND (COM-QUIT :NAME "Quit" :COMMAND-TABLE CLIMACS):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-QUIT%ACCEPTOR%1  
 ; compiling DEFINE-COMMAND (COM-QUIT :NAME "Quit" :COMMAND-TABLE CLIMACS):  
 ; compiling top level form:  
 ; recognizing DEFUN COM-QUIT%PARTIAL%2  
 ; compiling DEFINE-COMMAND (COM-QUIT :NAME "Quit" :COMMAND-TABLE CLIMACS):  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-QUIT%unparser%3|  
 ; compiling DEFINE-COMMAND (COM-QUIT :NAME "Quit" :COMMAND-TABLE CLIMACS):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-SELF-INSERT  
 ; compiling DEFINE-COMMAND COM-SELF-INSERT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-SELF-INSERT%ACCEPTOR%4  
 ; compiling DEFINE-COMMAND COM-SELF-INSERT:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-SELF-INSERT%PARTIAL%5  
 ; compiling DEFINE-COMMAND COM-SELF-INSERT:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-SELF-INSERT%unparser%6|  
 ; compiling DEFINE-COMMAND COM-SELF-INSERT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BACKWARD-OBJECT  
 ; compiling DEFINE-COMMAND COM-BACKWARD-OBJECT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BACKWARD-OBJECT%ACCEPTOR%7  
 ; compiling DEFINE-COMMAND COM-BACKWARD-OBJECT:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BACKWARD-OBJECT%PARTIAL%8  
 ; compiling DEFINE-COMMAND COM-BACKWARD-OBJECT:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-BACKWARD-OBJECT%unparser%9|  
 ; compiling DEFINE-COMMAND COM-BACKWARD-OBJECT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-FORWARD-OBJECT  
 ; compiling DEFINE-COMMAND COM-FORWARD-OBJECT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-FORWARD-OBJECT%ACCEPTOR%10  
 ; compiling DEFINE-COMMAND COM-FORWARD-OBJECT:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-FORWARD-OBJECT%PARTIAL%11  
 ; compiling DEFINE-COMMAND COM-FORWARD-OBJECT:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-FORWARD-OBJECT%unparser%12|  
 ; compiling DEFINE-COMMAND COM-FORWARD-OBJECT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BEGINNING-OF-LINE  
 ; compiling DEFINE-COMMAND COM-BEGINNING-OF-LINE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BEGINNING-OF-LINE%ACCEPTOR%13  
 ; compiling DEFINE-COMMAND COM-BEGINNING-OF-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BEGINNING-OF-LINE%PARTIAL%14  
 ; compiling DEFINE-COMMAND COM-BEGINNING-OF-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-BEGINNING-OF-LINE%unparser%15|  
 ; compiling DEFINE-COMMAND COM-BEGINNING-OF-LINE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-END-OF-LINE  
 ; compiling DEFINE-COMMAND COM-END-OF-LINE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-END-OF-LINE%ACCEPTOR%16  
 ; compiling DEFINE-COMMAND COM-END-OF-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-END-OF-LINE%PARTIAL%17  
 ; compiling DEFINE-COMMAND COM-END-OF-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-END-OF-LINE%unparser%18|  
 ; compiling DEFINE-COMMAND COM-END-OF-LINE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-DELETE-OBJECT  
 ; compiling DEFINE-COMMAND COM-DELETE-OBJECT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-DELETE-OBJECT%ACCEPTOR%19  
 ; compiling DEFINE-COMMAND COM-DELETE-OBJECT:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-DELETE-OBJECT%PARTIAL%20  
 ; compiling DEFINE-COMMAND COM-DELETE-OBJECT:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-DELETE-OBJECT%unparser%21|  
 ; compiling DEFINE-COMMAND COM-DELETE-OBJECT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BACKWARD-DELETE-OBJECT  
 ; compiling DEFINE-COMMAND COM-BACKWARD-DELETE-OBJECT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BACKWARD-DELETE-OBJECT%ACCEPTOR%22  
 ; compiling DEFINE-COMMAND COM-BACKWARD-DELETE-OBJECT:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BACKWARD-DELETE-OBJECT%PARTIAL%23  
 ; compiling DEFINE-COMMAND COM-BACKWARD-DELETE-OBJECT:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-BACKWARD-DELETE-OBJECT%unparser%24|  
 ; compiling DEFINE-COMMAND COM-BACKWARD-DELETE-OBJECT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-PREVIOUS-LINE  
 ; compiling DEFINE-COMMAND COM-PREVIOUS-LINE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-PREVIOUS-LINE%ACCEPTOR%25  
 ; compiling DEFINE-COMMAND COM-PREVIOUS-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-PREVIOUS-LINE%PARTIAL%26  
 ; compiling DEFINE-COMMAND COM-PREVIOUS-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-PREVIOUS-LINE%unparser%27|  
 ; compiling DEFINE-COMMAND COM-PREVIOUS-LINE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-NEXT-LINE  
 ; compiling DEFINE-COMMAND COM-NEXT-LINE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-NEXT-LINE%ACCEPTOR%28  
 ; compiling DEFINE-COMMAND COM-NEXT-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-NEXT-LINE%PARTIAL%29  
 ; compiling DEFINE-COMMAND COM-NEXT-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-NEXT-LINE%unparser%30|  
 ; compiling DEFINE-COMMAND COM-NEXT-LINE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-OPEN-LINE  
 ; compiling DEFINE-COMMAND COM-OPEN-LINE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-OPEN-LINE%ACCEPTOR%31  
 ; compiling DEFINE-COMMAND COM-OPEN-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-OPEN-LINE%PARTIAL%32  
 ; compiling DEFINE-COMMAND COM-OPEN-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-OPEN-LINE%unparser%33|  
 ; compiling DEFINE-COMMAND COM-OPEN-LINE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-KILL-LINE  
 ; compiling DEFINE-COMMAND COM-KILL-LINE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-KILL-LINE%ACCEPTOR%34  
 ; compiling DEFINE-COMMAND COM-KILL-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-KILL-LINE%PARTIAL%35  
 ; compiling DEFINE-COMMAND COM-KILL-LINE:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-KILL-LINE%unparser%36|  
 ; compiling DEFINE-COMMAND COM-KILL-LINE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-FORWARD-WORD  
 ; compiling DEFINE-COMMAND COM-FORWARD-WORD:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-FORWARD-WORD%ACCEPTOR%37  
 ; compiling DEFINE-COMMAND COM-FORWARD-WORD:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-FORWARD-WORD%PARTIAL%38  
 ; compiling DEFINE-COMMAND COM-FORWARD-WORD:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-FORWARD-WORD%unparser%39|  
 ; compiling DEFINE-COMMAND COM-FORWARD-WORD:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BACKWARD-WORD  
 ; compiling DEFINE-COMMAND COM-BACKWARD-WORD:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BACKWARD-WORD%ACCEPTOR%40  
 ; compiling DEFINE-COMMAND COM-BACKWARD-WORD:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BACKWARD-WORD%PARTIAL%41  
 ; compiling DEFINE-COMMAND COM-BACKWARD-WORD:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-BACKWARD-WORD%unparser%42|  
 ; compiling DEFINE-COMMAND COM-BACKWARD-WORD:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-TOGGLE-LAYOUT  
 ; compiling DEFINE-COMMAND COM-TOGGLE-LAYOUT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-TOGGLE-LAYOUT%ACCEPTOR%43  
 ; compiling DEFINE-COMMAND COM-TOGGLE-LAYOUT:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-TOGGLE-LAYOUT%PARTIAL%44  
 ; compiling DEFINE-COMMAND COM-TOGGLE-LAYOUT:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-TOGGLE-LAYOUT%unparser%45|  
 ; compiling DEFINE-COMMAND COM-TOGGLE-LAYOUT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-EXTENDED-COMMAND  
 ; compiling DEFINE-COMMAND COM-EXTENDED-COMMAND:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-EXTENDED-COMMAND%ACCEPTOR%46  
 ; compiling DEFINE-COMMAND COM-EXTENDED-COMMAND:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-EXTENDED-COMMAND%PARTIAL%47  
 ; compiling DEFINE-COMMAND COM-EXTENDED-COMMAND:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-EXTENDED-COMMAND%unparser%48|  
 ; compiling DEFINE-COMMAND COM-EXTENDED-COMMAND:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-INSERT-WEIRD-STUFF  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling DEFINE-COMMAND COM-INSERT-WEIRD-STUFF:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-INSERT-WEIRD-STUFF%ACCEPTOR%49  
 ; compiling DEFINE-COMMAND COM-INSERT-WEIRD-STUFF:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-INSERT-WEIRD-STUFF%PARTIAL%50  
 ; compiling DEFINE-COMMAND COM-INSERT-WEIRD-STUFF:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-INSERT-WEIRD-STUFF%unparser%51|  
 ; compiling DEFINE-COMMAND COM-INSERT-WEIRD-STUFF:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-INSERT-REVERSED-STRING  
 ; compiling DEFINE-COMMAND COM-INSERT-REVERSED-STRING:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-INSERT-REVERSED-STRING%ACCEPTOR%52  
 ; compiling DEFINE-COMMAND COM-INSERT-REVERSED-STRING:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-INSERT-REVERSED-STRING%PARTIAL%53  
 ; compiling DEFINE-COMMAND COM-INSERT-REVERSED-STRING:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-INSERT-REVERSED-STRING%unparser%54|  
 ; compiling DEFINE-COMMAND COM-INSERT-REVERSED-STRING:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling DEFINE-PRESENTATION-TYPE COMPLETABLE-PATHNAME:  
 ; compiling DEFINE-PRESENTATION-TYPE COMPLETABLE-PATHNAME:  
 ; compiling top level form:  
 ; compiling DEFINE-PRESENTATION-TYPE COMPLETABLE-PATHNAME:  
 ; compiling top level form:  
 ; recognizing DEFUN FILENAME-COMPLETER  
 ; compiling DEFUN FILENAME-COMPLETER:  
 ; compiling top level form:  
 ; compiling DEFINE-PRESENTATION-METHOD ACCEPT:  
 ; compiling top level form (SB-KERNEL:FIND-CLASSOID-CELL (QUOTE CLIM:TEXTUAL-VIEW)):  
 ; compiling top level form:  
 ; recognizing DEFUN PATHNAME-FILENAME  
 ; compiling DEFUN PATHNAME-FILENAME:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-FIND-FILE  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFINE-COMMAND (COM-FIND-FILE :NAME "Find File" :COMMAND-TABLE CLIMACS):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-FIND-FILE%ACCEPTOR%55  
 ; compiling DEFINE-COMMAND (COM-FIND-FILE :NAME "Find File" :COMMAND-TABLE CLIMACS):  
 ; compiling top level form:  
 ; recognizing DEFUN COM-FIND-FILE%PARTIAL%56  
 ; compiling DEFINE-COMMAND (COM-FIND-FILE :NAME "Find File" :COMMAND-TABLE CLIMACS):  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-FIND-FILE%unparser%57|  
 ; compiling DEFINE-COMMAND (COM-FIND-FILE :NAME "Find File" :COMMAND-TABLE CLIMACS):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-SAVE-BUFFER  
 ; compiling DEFINE-COMMAND COM-SAVE-BUFFER:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-SAVE-BUFFER%ACCEPTOR%58  
 ; compiling DEFINE-COMMAND COM-SAVE-BUFFER:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-SAVE-BUFFER%PARTIAL%59  
 ; compiling DEFINE-COMMAND COM-SAVE-BUFFER:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-SAVE-BUFFER%unparser%60|  
 ; compiling DEFINE-COMMAND COM-SAVE-BUFFER:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-WRITE-BUFFER  
 ; compiling DEFINE-COMMAND COM-WRITE-BUFFER:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-WRITE-BUFFER%ACCEPTOR%61  
 ; compiling DEFINE-COMMAND COM-WRITE-BUFFER:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-WRITE-BUFFER%PARTIAL%62  
 ; compiling DEFINE-COMMAND COM-WRITE-BUFFER:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-WRITE-BUFFER%unparser%63|  
 ; compiling DEFINE-COMMAND COM-WRITE-BUFFER:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BEGINNING-OF-BUFFER  
 ; compiling DEFINE-COMMAND COM-BEGINNING-OF-BUFFER:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BEGINNING-OF-BUFFER%ACCEPTOR%64  
 ; compiling DEFINE-COMMAND COM-BEGINNING-OF-BUFFER:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BEGINNING-OF-BUFFER%PARTIAL%65  
 ; compiling DEFINE-COMMAND COM-BEGINNING-OF-BUFFER:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-BEGINNING-OF-BUFFER%unparser%66|  
 ; compiling DEFINE-COMMAND COM-BEGINNING-OF-BUFFER:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-END-OF-BUFFER  
 ; compiling DEFINE-COMMAND COM-END-OF-BUFFER:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-END-OF-BUFFER%ACCEPTOR%67  
 ; compiling DEFINE-COMMAND COM-END-OF-BUFFER:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-END-OF-BUFFER%PARTIAL%68  
 ; compiling DEFINE-COMMAND COM-END-OF-BUFFER:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-END-OF-BUFFER%unparser%69|  
 ; compiling DEFINE-COMMAND COM-END-OF-BUFFER:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BROWSE-URL  
 ; compiling DEFINE-COMMAND COM-BROWSE-URL:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BROWSE-URL%ACCEPTOR%70  
 ; compiling DEFINE-COMMAND COM-BROWSE-URL:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-BROWSE-URL%PARTIAL%71  
 ; compiling DEFINE-COMMAND COM-BROWSE-URL:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-BROWSE-URL%unparser%72|  
 ; compiling DEFINE-COMMAND COM-BROWSE-URL:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-SET-MARK  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFINE-COMMAND COM-SET-MARK:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-SET-MARK%ACCEPTOR%73  
 ; compiling DEFINE-COMMAND COM-SET-MARK:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-SET-MARK%PARTIAL%74  
 ; compiling DEFINE-COMMAND COM-SET-MARK:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-SET-MARK%unparser%75|  
 ; compiling DEFINE-COMMAND COM-SET-MARK:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-COPY-IN  
 ; compiling DEFINE-COMMAND COM-COPY-IN:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-COPY-IN%ACCEPTOR%76  
 ; compiling DEFINE-COMMAND COM-COPY-IN:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-COPY-IN%PARTIAL%77  
 ; compiling DEFINE-COMMAND COM-COPY-IN:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-COPY-IN%unparser%78|  
 ; compiling DEFINE-COMMAND COM-COPY-IN:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-CUT-IN  
 ; compiling DEFINE-COMMAND COM-CUT-IN:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-CUT-IN%ACCEPTOR%79  
 ; compiling DEFINE-COMMAND COM-CUT-IN:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-CUT-IN%PARTIAL%80  
 ; compiling DEFINE-COMMAND COM-CUT-IN:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-CUT-IN%unparser%81|  
 ; compiling DEFINE-COMMAND COM-CUT-IN:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-CUT-OUT  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFINE-COMMAND COM-CUT-OUT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-CUT-OUT%ACCEPTOR%82  
 ; compiling DEFINE-COMMAND COM-CUT-OUT:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-CUT-OUT%PARTIAL%83  
 ; compiling DEFINE-COMMAND COM-CUT-OUT:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-CUT-OUT%unparser%84|  
 ; compiling DEFINE-COMMAND COM-CUT-OUT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-COPY-OUT  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-ACCESSOR # # ...)):  
 ; compiling DEFINE-COMMAND COM-COPY-OUT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-COPY-OUT%ACCEPTOR%85  
 ; compiling DEFINE-COMMAND COM-COPY-OUT:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-COPY-OUT%PARTIAL%86  
 ; compiling DEFINE-COMMAND COM-COPY-OUT:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-COPY-OUT%unparser%87|  
 ; compiling DEFINE-COMMAND COM-COPY-OUT:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-KR-ROTATE  
 ; compiling DEFINE-COMMAND COM-KR-ROTATE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-KR-ROTATE%ACCEPTOR%88  
 ; compiling DEFINE-COMMAND COM-KR-ROTATE:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-KR-ROTATE%PARTIAL%89  
 ; compiling DEFINE-COMMAND COM-KR-ROTATE:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-KR-ROTATE%unparser%90|  
 ; compiling DEFINE-COMMAND COM-KR-ROTATE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-KR-RESIZE  
 ; compiling DEFINE-COMMAND COM-KR-RESIZE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-KR-RESIZE%ACCEPTOR%91  
 ; compiling DEFINE-COMMAND COM-KR-RESIZE:  
 ; compiling top level form:  
 ; recognizing DEFUN COM-KR-RESIZE%PARTIAL%92  
 ; compiling DEFINE-COMMAND COM-KR-RESIZE:  
 ; compiling top level form:  
 ; recognizing DEFUN |COM-KR-RESIZE%unparser%93|  
 ; compiling DEFINE-COMMAND COM-KR-RESIZE:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form (SB-KERNEL:MAKE-VALUE-CELL (SB-PCL::ENSURE-CTOR # # ...)):  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN GLOBAL-SET-KEY  
 ; compiling DEFUN GLOBAL-SET-KEY:  
 ; compiling top level form:  
 ; compiling LOOP FOR:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; recognizing DEFUN C-X-SET-KEY  
 ; compiling DEFUN C-X-SET-KEY:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
 ; compiling top level form:  
   
 ; /home/ejohnson/cvs-dir/climacs/gui.fasl written  
 ; compilation finished in 0:00:05  
 NIL  
 CL-USER> (climacs-gui::climacs)  
 No such offset: 11  
 No such offset: 11  
 NIL  
 CL-USER> (climacs-gui::climacs)  
 NIL  
 CL-USER> (climacs-gui::climacs)  
 NIL  
 CL-USER>  
1    ;;; -*- Mode: Lisp; Package: CLIMACS-GUI -*-
2    
3    ;;;  (c) copyright 2004 by
4    ;;;           Robert Strandh (strandh@labri.fr)
5    ;;;  (c) copyright 2004 by
6    ;;;           Elliott Johnson (ejohnson@fasl.info)
7    
8    ;;; This library is free software; you can redistribute it and/or
9    ;;; modify it under the terms of the GNU Library General Public
10    ;;; License as published by the Free Software Foundation; either
11    ;;; version 2 of the License, or (at your option) any later version.
12    ;;;
13    ;;; This library is distributed in the hope that it will be useful,
14    ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15    ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16    ;;; Library General Public License for more details.
17    ;;;
18    ;;; You should have received a copy of the GNU Library General Public
19    ;;; License along with this library; if not, write to the
20    ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21    ;;; Boston, MA  02111-1307  USA.
22    
23    ;;; GUI for the Climacs editor.
24    
25    (in-package :climacs-gui)
26    
27    (defclass filename-mixin ()
28      ((filename :initform nil :accessor filename)))
29    
30    (defclass climacs-buffer (standard-buffer abbrev-mixin filename-mixin)
31      ((name :initform "*scratch*" :accessor name)
32       (modified :initform nil :accessor modified-p)))
33    
34    (defclass climacs-pane (application-pane)
35      ((buffer :initform (make-instance 'climacs-buffer) :accessor buffer)
36       (point :initform nil :initarg :point :reader point)
37       (syntax :initarg :syntax :accessor syntax)
38       (mark :initform nil :initarg :mark :reader mark)))
39    
40    (defmethod initialize-instance :after ((pane climacs-pane) &rest args)
41      (declare (ignore args))
42      (with-slots (buffer point syntax mark) pane
43         (when (null point)
44           (setf point (make-instance 'standard-right-sticky-mark
45                          :buffer buffer)))
46         (when (null mark)
47           (setf mark (make-instance 'standard-right-sticky-mark
48                          :buffer buffer)))
49         (setf syntax (make-instance 'texinfo-syntax :pane pane))))
50    
51    (define-application-frame climacs ()
52      ((win :reader win))
53      (:panes
54       (win (make-pane 'climacs-pane
55                       :width 900 :height 400
56                       :name 'win
57                       :incremental-redisplay t
58                       :display-function 'display-win))
59        (info :application
60             :width 900 :height 20 :max-height 20
61             :name 'info :background +light-gray+
62             :scroll-bars nil
63             :incremental-redisplay t
64             :display-function 'display-info)
65        (int :application :width 900 :height 20 :max-height 20
66             :scroll-bars nil))
67      (:layouts
68       (default
69           (vertically (:scroll-bars nil)
70             (scrolling (:width 900 :height 400) win)
71             info
72             int)))
73      (:top-level (climacs-top-level)))
74    
75    (defun climacs ()
76      "Starts up a climacs session"
77      (let ((frame (make-application-frame 'climacs)))
78        (run-frame-top-level frame)))
79    
80    (defun display-info (frame pane)
81      (let* ((win (win frame))
82             (buf (buffer win))
83             (name-info (format nil "   ~a   ~a"
84                                (if (modified-p buf) "**" "--")
85                                (name buf))))
86        (princ name-info pane)))
87    
88    (defun display-win (frame pane)
89      "The display function used by the climacs application frame."
90      (declare (ignore frame))
91      (redisplay-pane pane))
92    
93    (defun find-gestures (gestures start-table)
94      (loop with table = (find-command-table start-table)
95            for (gesture . rest) on gestures
96            for item = (find-keystroke-item  gesture table :errorp nil)
97            while item
98            do (if (eq (command-menu-item-type item) :command)
99                   (return (if (null rest) item nil))
100                   (setf table (command-menu-item-value item)))
101            finally (return item)))
102    
103    (defvar *kill-ring* (initialize-kill-ring 7))
104    (defparameter *current-gesture* nil)
105    
106    (defun climacs-top-level (frame &key
107                              command-parser command-unparser
108                              partial-command-parser prompt)
109      (declare (ignore command-parser command-unparser partial-command-parser prompt))
110      (setf (slot-value frame 'win) (find-pane-named frame 'win))
111    ;;  (let ((*standard-output* (frame-standard-output frame))
112    ;;      (*standard-input* (frame-standard-input frame))
113      (let ((*standard-output* (find-pane-named frame 'win))
114            (*standard-input* (find-pane-named frame 'int))
115            (*print-pretty* nil)
116            (*abort-gestures* nil))
117        (redisplay-frame-panes frame :force-p t)
118        (loop with gestures = '()
119              do (setf *current-gesture* (read-gesture :stream *standard-input*))
120                 (when (or (characterp *current-gesture*)
121                           (and (typep *current-gesture* 'keyboard-event)
122                                (or (keyboard-event-character *current-gesture*)
123                                    (not (member (keyboard-event-key-name
124                                                  *current-gesture*)
125                                                 '(:control-left :control-right
126                                                   :shift-left :shift-right
127                                                   :meta-left :meta-right
128                                                   :super-left :super-right
129                                                   :hyper-left :hyper-right
130                                                   :shift-lock :caps-lock))))))
131                   (setf gestures (nconc gestures (list *current-gesture*)))
132                   (let ((item (find-gestures gestures 'global-climacs-table)))
133                     (cond ((not item)
134                            (beep) (setf gestures '()))
135                           ((eq (command-menu-item-type item) :command)
136                            (handler-case
137                                (funcall (command-menu-item-value item))
138                              (error (condition)
139                                (beep)
140                                (format *error-output* "~a~%" condition)))
141                            (setf gestures '()))
142                           (t nil))))
143                 (redisplay-frame-panes frame))))
144    
145    (define-command (com-quit :name "Quit" :command-table climacs) ()
146      (frame-exit *application-frame*))
147    
148    (define-command com-self-insert ()
149      (unless (constituentp *current-gesture*)
150        (possibly-expand-abbrev (point (win *application-frame*))))
151      (insert-object (point (win *application-frame*)) *current-gesture*)
152      (setf (modified-p (buffer (win *application-frame*))) t))
153    
154    (define-command com-backward-object ()
155      (decf (offset (point (win *application-frame*)))))
156    
157    (define-command com-forward-object ()
158      (incf (offset (point (win *application-frame*)))))
159    
160    (define-command com-beginning-of-line ()
161      (beginning-of-line (point (win *application-frame*))))
162    
163    (define-command com-end-of-line ()
164      (end-of-line (point (win *application-frame*))))
165    
166    (define-command com-delete-object ()
167      (delete-range (point (win *application-frame*)))
168      (setf (modified-p (buffer (win *application-frame*))) t))
169    
170    (define-command com-backward-delete-object ()
171      (delete-range (point (win *application-frame*)) -1)
172      (setf (modified-p (buffer (win *application-frame*))) t))
173    
174    (define-command com-previous-line ()
175      (previous-line (point (win *application-frame*))))
176    
177    (define-command com-next-line ()
178      (next-line (point (win *application-frame*))))
179    
180    (define-command com-open-line ()
181      (open-line (point (win *application-frame*)))
182      (setf (modified-p (buffer (win *application-frame*))) t))
183    
184    (define-command com-kill-line ()
185      (kill-line (point (win *application-frame*)))
186      (setf (modified-p (buffer (win *application-frame*))) t))
187    
188    (define-command com-forward-word ()
189      (forward-word (point (win *application-frame*))))
190    
191    (define-command com-backward-word ()
192      (backward-word (point (win *application-frame*))))
193    
194    (define-command com-toggle-layout ()
195      (setf (frame-current-layout *application-frame*)
196            (if (eq (frame-current-layout *application-frame*) 'default)
197                'with-interactor
198                'default)))
199    
200    (define-command com-extended-command ()
201      (let ((item (accept 'command :prompt "Extended Command")))
202        (window-clear *standard-input*)
203        (execute-frame-command *application-frame* item)))
204    
205    (defclass weird () ()
206      (:documentation "An open ended class."))
207    
208    (define-command com-insert-weird-stuff ()
209      (insert-object (point (win *application-frame*)) (make-instance 'weird))
210      (setf (modified-p (buffer (win *application-frame*))) t))
211    
212    (define-command com-insert-reversed-string ()
213      (insert-sequence (point (win *application-frame*))
214                       (reverse (accept 'string)))
215      (setf (modified-p (buffer (win *application-frame*))) t))
216    
217    (define-presentation-type completable-pathname ()
218      :inherit-from 'pathname)
219    
220    (defun filename-completer (so-far mode)
221      (flet ((remove-trail (s)
222               (subseq s 0 (let ((pos (position #\/ s :from-end t)))
223                             (if pos (1+ pos) 0)))))
224        (let* ((directory-prefix
225                (if (and (plusp (length so-far)) (eql (aref so-far 0) #\/))
226                    ""
227                    (namestring #+sbcl (car (directory ".")) #+cmu (ext:default-directory))))
228               (full-so-far (concatenate 'string directory-prefix so-far))
229               (pathnames
230                (loop with length = (length full-so-far)
231                      for path in (directory (concatenate 'string
232                                                           (remove-trail so-far)
233                                                          "*.*"))
234                      when (let ((mismatch (mismatch (namestring path) full-so-far)))
235                             (or (null mismatch) (= mismatch length)))
236                        collect path))
237               (strings (mapcar #'namestring pathnames))
238               (first-string (car strings))
239               (length-common-prefix nil)
240               (completed-string nil)
241               (full-completed-string nil))
242          (unless (null pathnames)
243            (setf length-common-prefix
244                  (loop with length = (length first-string)
245                        for string in (cdr strings)
246                        do (setf length (min length (or (mismatch string first-string) length)))
247                        finally (return length))))
248          (unless (null pathnames)
249            (setf completed-string
250                  (subseq first-string (length directory-prefix)
251                          (if (null (cdr pathnames)) nil length-common-prefix)))
252            (setf full-completed-string
253                  (concatenate 'string directory-prefix completed-string)))
254          (case mode
255            ((:complete-limited :complete-maximal)
256             (cond ((null pathnames)
257                    (values so-far nil nil 0 nil))
258                   ((null (cdr pathnames))
259                    (values completed-string t (car pathnames) 1 nil))
260                   (t
261                    (values completed-string nil nil (length pathnames) nil))))
262            (:complete
263             (cond ((null pathnames)
264                    (values so-far t so-far 1 nil))
265                   ((null (cdr pathnames))
266                    (values completed-string t (car pathnames) 1 nil))
267                   ((find full-completed-string strings :test #'string-equal)
268                    (let ((pos (position full-completed-string strings :test #'string-equal)))
269                      (values completed-string
270                              t (elt pathnames pos) (length pathnames) nil)))
271                   (t
272                    (values completed-string nil nil (length pathnames) nil))))
273            (:possibilities
274             (values nil nil nil (length pathnames)
275                     (loop with length = (length directory-prefix)
276                           for name in pathnames
277                           collect (list (subseq (namestring name) length nil)
278                                         name))))))))
279    
280    (define-presentation-method accept
281        ((type completable-pathname) stream (view textual-view) &key)
282      (multiple-value-bind (pathname success string)
283          (complete-input stream
284                          #'filename-completer
285                          :partial-completers '(#\Space)
286                          :allow-any-input t)
287        (declare (ignore success))
288        (or pathname string)))
289    
290    (defun pathname-filename (pathname)
291      (if (null (pathname-type pathname))
292          (pathname-name pathname)
293          (concatenate 'string (pathname-name pathname)
294                       "." (pathname-type pathname))))
295    
296    (define-command (com-find-file :name "Find File" :command-table climacs) ()
297      (let ((filename (accept 'completable-pathname
298                              :prompt "Find File")))
299        (with-slots (buffer point syntax) (win *application-frame*)
300           (setf buffer (make-instance 'climacs-buffer)
301                 point (make-instance 'standard-right-sticky-mark :buffer buffer)
302                 syntax (make-instance 'texinfo-syntax :pane (win *application-frame*)))
303           (with-open-file (stream filename :direction :input :if-does-not-exist :create)
304             (input-from-stream stream buffer 0))
305           (setf (filename buffer) filename
306                 (name buffer) (pathname-filename filename))
307           (beginning-of-buffer point))))
308    
309    (define-command com-save-buffer ()
310      (let ((filename (or (filename (buffer (win *application-frame*)))
311                          (accept 'completable-pathname
312                                  :prompt "Save Buffer to File")))
313            (buffer (buffer (win *application-frame*))))
314        (with-open-file (stream filename :direction :output :if-exists :supersede)
315          (output-to-stream stream buffer 0 (size buffer)))
316        (setf (filename buffer) filename
317              (name buffer) (pathname-filename filename))
318        (setf (modified-p (buffer (win *application-frame*))) nil)))
319    
320    (define-command com-write-buffer ()
321      (let ((filename (accept 'completable-pathname
322                              :prompt "Write Buffer to File"))
323            (buffer (buffer (win *application-frame*))))
324        (with-open-file (stream filename :direction :output :if-exists :supersede)
325          (output-to-stream stream buffer 0 (size buffer)))
326        (setf (filename buffer) filename
327              (name buffer) (pathname-filename filename))
328        (setf (modified-p (buffer (win *application-frame*))) nil)))
329    
330    (define-command com-beginning-of-buffer ()
331      (beginning-of-buffer (point (win *application-frame*))))
332    
333    (define-command com-end-of-buffer ()
334      (end-of-buffer (point (win *application-frame*))))
335    
336    (define-command com-browse-url ()
337      (accept 'url :prompt "Browse URL"))
338    
339    (define-command com-set-mark ()
340      (with-slots (point mark) (win *application-frame*)
341                  (setf mark (clone-mark point))))
342    
343    ;;;;;;;;;;;;;;;;;;;;
344    ;; Kill ring commands
345    
346    ;; The naming may sound odd here, but think of electronic wireing:
347    ;; outputs to inputs and inputs to outputs.  Copying into a buffer
348    ;; first requires coping out of the kill ring.
349    
350    (define-command com-copy-in ()
351      (kr-copy-out (point (win *application-frame*)) *kill-ring*))
352    
353    (define-command com-cut-in ()
354      (kr-cut-out (point (win *application-frame*)) *kill-ring*))
355    
356    (define-command com-cut-out ()
357      (with-slots (buffer point mark)(win *application-frame*)
358         (let ((off1 (offset point))
359               (off2 (offset mark)))
360           (if (< off1 off2)
361               (kr-cut-in buffer *kill-ring* off1 off2)
362               (kr-cut-in buffer *kill-ring* off2 off1)))))
363    
364    (define-command com-copy-out ()
365      (with-slots (buffer point mark)(win *application-frame*)
366         (let ((off1 (offset point))
367               (off2 (offset mark)))
368           (if (< off1 off2)
369               (kr-copy-in buffer *kill-ring* off1 off2)
370               (kr-copy-in buffer *kill-ring* off2 off1)))))
371    
372    ;; Needs adjustment to be like emacs M-y
373    (define-command com-kr-rotate ()
374      (kr-rotate *kill-ring* -1))
375    
376    ;; Not bound to a key yet
377    (define-command com-kr-resize ()
378      (let ((size (accept 'fixnum :prompt "New kill ring size: ")))
379        (kr-resize *kill-ring* size)))
380    
381    
382    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
383    ;;;
384    ;;; Global command table
385    
386    (make-command-table 'global-climacs-table :errorp nil)
387    
388    (defun global-set-key (gesture command)
389      (add-command-to-command-table command 'global-climacs-table
390                                    :keystroke gesture :errorp nil))
391    
392    (loop for code from (char-code #\space) to (char-code #\~)
393          do (global-set-key (code-char code) 'com-self-insert))
394    
395    (global-set-key #\newline 'com-self-insert)
396    (global-set-key #\tab 'com-self-insert)
397    (global-set-key '(#\f :control) 'com-forward-object)
398    (global-set-key '(#\b :control) 'com-backward-object)
399    (global-set-key '(#\a :control) 'com-beginning-of-line)
400    (global-set-key '(#\e :control) 'com-end-of-line)
401    (global-set-key '(#\d :control) 'com-delete-object)
402    (global-set-key '(#\p :control) 'com-previous-line)
403    (global-set-key '(#\n :control) 'com-next-line)
404    (global-set-key '(#\o :control) 'com-open-line)
405    (global-set-key '(#\k :control) 'com-kill-line)
406    (global-set-key '(#\Space :control) 'com-set-mark)
407    (global-set-key '(#\y :control) 'com-copy-in)
408    (global-set-key '(#\w :control) 'com-cut-out)
409    (global-set-key '(#\f :meta) 'com-forward-word)
410    (global-set-key '(#\b :meta) 'com-backward-word)
411    (global-set-key '(#\x :meta) 'com-extended-command)
412    (global-set-key '(#\a :meta) 'com-insert-weird-stuff)
413    (global-set-key '(#\c :meta) 'com-insert-reversed-string)
414    (global-set-key '(#\y :meta) 'com-kr-rotate) ;currently rotates only
415    (global-set-key '(#\w :meta) 'com-copy-out)
416    (global-set-key '(#\< :shift :meta) 'com-beginning-of-buffer)
417    (global-set-key '(#\> :shift :meta) 'com-end-of-buffer)
418    (global-set-key '(#\u :meta) 'com-browse-url)
419    
420    (global-set-key '(:up) 'com-previous-line)
421    (global-set-key '(:down) 'com-next-line)
422    (global-set-key '(:left) 'com-backward-object)
423    (global-set-key '(:right) 'com-forward-object)
424    (global-set-key '(:left :control) 'com-backward-word)
425    (global-set-key '(:right :control) 'com-forward-word)
426    (global-set-key '(:home) 'com-beginning-of-line)
427    (global-set-key '(:end) 'com-end-of-line)
428    (global-set-key '(:home :control) 'com-beginning-of-buffer)
429    (global-set-key '(:end :control) 'com-end-of-buffer)
430    (global-set-key #\Rubout 'com-delete-object)
431    (global-set-key #\Backspace 'com-backward-delete-object)
432    
433    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
434    ;;;
435    ;;; C-x command table
436    
437    (make-command-table 'c-x-climacs-table :errorp nil)
438    
439    (add-menu-item-to-command-table 'global-climacs-table "C-x"
440                                    :menu 'c-x-climacs-table
441                                    :keystroke '(#\x :control))
442    
443    (defun c-x-set-key (gesture command)
444      (add-command-to-command-table command 'c-x-climacs-table
445                                    :keystroke gesture :errorp nil))
446    
447    (c-x-set-key '(#\c :control) 'com-quit)
448    (c-x-set-key '(#\f :control) 'com-find-file)
449    (c-x-set-key '(#\s :control) 'com-save-buffer)
450    (c-x-set-key '(#\w :control) 'com-write-buffer)

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

  ViewVC Help
Powered by ViewVC 1.1.5