Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv15566
Modified Files: gui.lisp Log Message: An error on my part. Sorry about that. Date: Wed Dec 29 06:55:27 2004 Author: ejohnson
Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.26 climacs/gui.lisp:1.27 --- climacs/gui.lisp:1.26 Wed Dec 29 06:49:04 2004 +++ climacs/gui.lisp Wed Dec 29 06:55:26 2004 @@ -1,1893 +1,450 @@ -; 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> \ No newline at end of file +;;; -*- Mode: Lisp; Package: CLIMACS-GUI -*- + +;;; (c) copyright 2004 by +;;; Robert Strandh (strandh@labri.fr) +;;; (c) copyright 2004 by +;;; Elliott Johnson (ejohnson@fasl.info) + +;;; This library is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU Library General Public +;;; License as published by the Free Software Foundation; either +;;; version 2 of the License, or (at your option) any later version. +;;; +;;; This library is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Library General Public License for more details. +;;; +;;; You should have received a copy of the GNU Library General Public +;;; License along with this library; if not, write to the +;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;;; Boston, MA 02111-1307 USA. + +;;; GUI for the Climacs editor. + +(in-package :climacs-gui) + +(defclass filename-mixin () + ((filename :initform nil :accessor filename))) + +(defclass climacs-buffer (standard-buffer abbrev-mixin filename-mixin) + ((name :initform "*scratch*" :accessor name) + (modified :initform nil :accessor modified-p))) + +(defclass climacs-pane (application-pane) + ((buffer :initform (make-instance 'climacs-buffer) :accessor buffer) + (point :initform nil :initarg :point :reader point) + (syntax :initarg :syntax :accessor syntax) + (mark :initform nil :initarg :mark :reader mark))) + +(defmethod initialize-instance :after ((pane climacs-pane) &rest args) + (declare (ignore args)) + (with-slots (buffer point syntax mark) pane + (when (null point) + (setf point (make-instance 'standard-right-sticky-mark + :buffer buffer))) + (when (null mark) + (setf mark (make-instance 'standard-right-sticky-mark + :buffer buffer))) + (setf syntax (make-instance 'texinfo-syntax :pane pane)))) + +(define-application-frame climacs () + ((win :reader win)) + (:panes + (win (make-pane 'climacs-pane + :width 900 :height 400 + :name 'win + :incremental-redisplay t + :display-function 'display-win)) + (info :application + :width 900 :height 20 :max-height 20 + :name 'info :background +light-gray+ + :scroll-bars nil + :incremental-redisplay t + :display-function 'display-info) + (int :application :width 900 :height 20 :max-height 20 + :scroll-bars nil)) + (:layouts + (default + (vertically (:scroll-bars nil) + (scrolling (:width 900 :height 400) win) + info + int))) + (:top-level (climacs-top-level))) + +(defun climacs () + "Starts up a climacs session" + (let ((frame (make-application-frame 'climacs))) + (run-frame-top-level frame))) + +(defun display-info (frame pane) + (let* ((win (win frame)) + (buf (buffer win)) + (name-info (format nil " ~a ~a" + (if (modified-p buf) "**" "--") + (name buf)))) + (princ name-info pane))) + +(defun display-win (frame pane) + "The display function used by the climacs application frame." + (declare (ignore frame)) + (redisplay-pane pane)) + +(defun find-gestures (gestures start-table) + (loop with table = (find-command-table start-table) + for (gesture . rest) on gestures + for item = (find-keystroke-item gesture table :errorp nil) + while item + do (if (eq (command-menu-item-type item) :command) + (return (if (null rest) item nil)) + (setf table (command-menu-item-value item))) + finally (return item))) + +(defvar *kill-ring* (initialize-kill-ring 7)) +(defparameter *current-gesture* nil) + +(defun climacs-top-level (frame &key + command-parser command-unparser + partial-command-parser prompt) + (declare (ignore command-parser command-unparser partial-command-parser prompt)) + (setf (slot-value frame 'win) (find-pane-named frame 'win)) +;; (let ((*standard-output* (frame-standard-output frame)) +;; (*standard-input* (frame-standard-input frame)) + (let ((*standard-output* (find-pane-named frame 'win)) + (*standard-input* (find-pane-named frame 'int)) + (*print-pretty* nil) + (*abort-gestures* nil)) + (redisplay-frame-panes frame :force-p t) + (loop with gestures = '() + do (setf *current-gesture* (read-gesture :stream *standard-input*)) + (when (or (characterp *current-gesture*) + (and (typep *current-gesture* 'keyboard-event) + (or (keyboard-event-character *current-gesture*) + (not (member (keyboard-event-key-name + *current-gesture*) + '(:control-left :control-right + :shift-left :shift-right + :meta-left :meta-right + :super-left :super-right + :hyper-left :hyper-right + :shift-lock :caps-lock)))))) + (setf gestures (nconc gestures (list *current-gesture*))) + (let ((item (find-gestures gestures 'global-climacs-table))) + (cond ((not item) + (beep) (setf gestures '())) + ((eq (command-menu-item-type item) :command) + (handler-case + (funcall (command-menu-item-value item)) + (error (condition) + (beep) + (format *error-output* "~a~%" condition))) + (setf gestures '())) + (t nil)))) + (redisplay-frame-panes frame)))) + +(define-command (com-quit :name "Quit" :command-table climacs) () + (frame-exit *application-frame*)) + +(define-command com-self-insert () + (unless (constituentp *current-gesture*) + (possibly-expand-abbrev (point (win *application-frame*)))) + (insert-object (point (win *application-frame*)) *current-gesture*) + (setf (modified-p (buffer (win *application-frame*))) t)) + +(define-command com-backward-object () + (decf (offset (point (win *application-frame*))))) + +(define-command com-forward-object () + (incf (offset (point (win *application-frame*))))) + +(define-command com-beginning-of-line () + (beginning-of-line (point (win *application-frame*)))) + +(define-command com-end-of-line () + (end-of-line (point (win *application-frame*)))) + +(define-command com-delete-object () + (delete-range (point (win *application-frame*))) + (setf (modified-p (buffer (win *application-frame*))) t)) + +(define-command com-backward-delete-object () + (delete-range (point (win *application-frame*)) -1) + (setf (modified-p (buffer (win *application-frame*))) t)) + +(define-command com-previous-line () + (previous-line (point (win *application-frame*)))) + +(define-command com-next-line () + (next-line (point (win *application-frame*)))) + +(define-command com-open-line () + (open-line (point (win *application-frame*))) + (setf (modified-p (buffer (win *application-frame*))) t)) + +(define-command com-kill-line () + (kill-line (point (win *application-frame*))) + (setf (modified-p (buffer (win *application-frame*))) t)) + +(define-command com-forward-word () + (forward-word (point (win *application-frame*)))) + +(define-command com-backward-word () + (backward-word (point (win *application-frame*)))) + +(define-command com-toggle-layout () + (setf (frame-current-layout *application-frame*) + (if (eq (frame-current-layout *application-frame*) 'default) + 'with-interactor + 'default))) + +(define-command com-extended-command () + (let ((item (accept 'command :prompt "Extended Command"))) + (window-clear *standard-input*) + (execute-frame-command *application-frame* item))) + +(defclass weird () () + (:documentation "An open ended class.")) + +(define-command com-insert-weird-stuff () + (insert-object (point (win *application-frame*)) (make-instance 'weird)) + (setf (modified-p (buffer (win *application-frame*))) t)) + +(define-command com-insert-reversed-string () + (insert-sequence (point (win *application-frame*)) + (reverse (accept 'string))) + (setf (modified-p (buffer (win *application-frame*))) t)) + +(define-presentation-type completable-pathname () + :inherit-from 'pathname) + +(defun filename-completer (so-far mode) + (flet ((remove-trail (s) + (subseq s 0 (let ((pos (position #/ s :from-end t))) + (if pos (1+ pos) 0))))) + (let* ((directory-prefix + (if (and (plusp (length so-far)) (eql (aref so-far 0) #/)) + "" + (namestring #+sbcl (car (directory ".")) #+cmu (ext:default-directory)))) + (full-so-far (concatenate 'string directory-prefix so-far)) + (pathnames + (loop with length = (length full-so-far) + for path in (directory (concatenate 'string + (remove-trail so-far) + "*.*")) + when (let ((mismatch (mismatch (namestring path) full-so-far))) + (or (null mismatch) (= mismatch length))) + collect path)) + (strings (mapcar #'namestring pathnames)) + (first-string (car strings)) + (length-common-prefix nil) + (completed-string nil) + (full-completed-string nil)) + (unless (null pathnames) + (setf length-common-prefix + (loop with length = (length first-string) + for string in (cdr strings) + do (setf length (min length (or (mismatch string first-string) length))) + finally (return length)))) + (unless (null pathnames) + (setf completed-string + (subseq first-string (length directory-prefix) + (if (null (cdr pathnames)) nil length-common-prefix))) + (setf full-completed-string + (concatenate 'string directory-prefix completed-string))) + (case mode + ((:complete-limited :complete-maximal) + (cond ((null pathnames) + (values so-far nil nil 0 nil)) + ((null (cdr pathnames)) + (values completed-string t (car pathnames) 1 nil)) + (t + (values completed-string nil nil (length pathnames) nil)))) + (:complete + (cond ((null pathnames) + (values so-far t so-far 1 nil)) + ((null (cdr pathnames)) + (values completed-string t (car pathnames) 1 nil)) + ((find full-completed-string strings :test #'string-equal) + (let ((pos (position full-completed-string strings :test #'string-equal))) + (values completed-string + t (elt pathnames pos) (length pathnames) nil))) + (t + (values completed-string nil nil (length pathnames) nil)))) + (:possibilities + (values nil nil nil (length pathnames) + (loop with length = (length directory-prefix) + for name in pathnames + collect (list (subseq (namestring name) length nil) + name)))))))) + +(define-presentation-method accept + ((type completable-pathname) stream (view textual-view) &key) + (multiple-value-bind (pathname success string) + (complete-input stream + #'filename-completer + :partial-completers '(#\Space) + :allow-any-input t) + (declare (ignore success)) + (or pathname string))) + +(defun pathname-filename (pathname) + (if (null (pathname-type pathname)) + (pathname-name pathname) + (concatenate 'string (pathname-name pathname) + "." (pathname-type pathname)))) + +(define-command (com-find-file :name "Find File" :command-table climacs) () + (let ((filename (accept 'completable-pathname + :prompt "Find File"))) + (with-slots (buffer point syntax) (win *application-frame*) + (setf buffer (make-instance 'climacs-buffer) + point (make-instance 'standard-right-sticky-mark :buffer buffer) + syntax (make-instance 'texinfo-syntax :pane (win *application-frame*))) + (with-open-file (stream filename :direction :input :if-does-not-exist :create) + (input-from-stream stream buffer 0)) + (setf (filename buffer) filename + (name buffer) (pathname-filename filename)) + (beginning-of-buffer point)))) + +(define-command com-save-buffer () + (let ((filename (or (filename (buffer (win *application-frame*))) + (accept 'completable-pathname + :prompt "Save Buffer to File"))) + (buffer (buffer (win *application-frame*)))) + (with-open-file (stream filename :direction :output :if-exists :supersede) + (output-to-stream stream buffer 0 (size buffer))) + (setf (filename buffer) filename + (name buffer) (pathname-filename filename)) + (setf (modified-p (buffer (win *application-frame*))) nil))) + +(define-command com-write-buffer () + (let ((filename (accept 'completable-pathname + :prompt "Write Buffer to File")) + (buffer (buffer (win *application-frame*)))) + (with-open-file (stream filename :direction :output :if-exists :supersede) + (output-to-stream stream buffer 0 (size buffer))) + (setf (filename buffer) filename + (name buffer) (pathname-filename filename)) + (setf (modified-p (buffer (win *application-frame*))) nil))) + +(define-command com-beginning-of-buffer () + (beginning-of-buffer (point (win *application-frame*)))) + +(define-command com-end-of-buffer () + (end-of-buffer (point (win *application-frame*)))) + +(define-command com-browse-url () + (accept 'url :prompt "Browse URL")) + +(define-command com-set-mark () + (with-slots (point mark) (win *application-frame*) + (setf mark (clone-mark point)))) + +;;;;;;;;;;;;;;;;;;;; +;; Kill ring commands + +;; The naming may sound odd here, but think of electronic wireing: +;; outputs to inputs and inputs to outputs. Copying into a buffer +;; first requires coping out of the kill ring. + +(define-command com-copy-in () + (kr-copy-out (point (win *application-frame*)) *kill-ring*)) + +(define-command com-cut-in () + (kr-cut-out (point (win *application-frame*)) *kill-ring*)) + +(define-command com-cut-out () + (with-slots (buffer point mark)(win *application-frame*) + (let ((off1 (offset point)) + (off2 (offset mark))) + (if (< off1 off2) + (kr-cut-in buffer *kill-ring* off1 off2) + (kr-cut-in buffer *kill-ring* off2 off1))))) + +(define-command com-copy-out () + (with-slots (buffer point mark)(win *application-frame*) + (let ((off1 (offset point)) + (off2 (offset mark))) + (if (< off1 off2) + (kr-copy-in buffer *kill-ring* off1 off2) + (kr-copy-in buffer *kill-ring* off2 off1))))) + +;; Needs adjustment to be like emacs M-y +(define-command com-kr-rotate () + (kr-rotate *kill-ring* -1)) + +;; Not bound to a key yet +(define-command com-kr-resize () + (let ((size (accept 'fixnum :prompt "New kill ring size: "))) + (kr-resize *kill-ring* size))) + + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; +;;; Global command table + +(make-command-table 'global-climacs-table :errorp nil) + +(defun global-set-key (gesture command) + (add-command-to-command-table command 'global-climacs-table + :keystroke gesture :errorp nil)) + +(loop for code from (char-code #\space) to (char-code #~) + do (global-set-key (code-char code) 'com-self-insert)) + +(global-set-key #\newline 'com-self-insert) +(global-set-key #\tab 'com-self-insert) +(global-set-key '(#\f :control) 'com-forward-object) +(global-set-key '(#\b :control) 'com-backward-object) +(global-set-key '(#\a :control) 'com-beginning-of-line) +(global-set-key '(#\e :control) 'com-end-of-line) +(global-set-key '(#\d :control) 'com-delete-object) +(global-set-key '(#\p :control) 'com-previous-line) +(global-set-key '(#\n :control) 'com-next-line) +(global-set-key '(#\o :control) 'com-open-line) +(global-set-key '(#\k :control) 'com-kill-line) +(global-set-key '(#\Space :control) 'com-set-mark) +(global-set-key '(#\y :control) 'com-copy-in) +(global-set-key '(#\w :control) 'com-cut-out) +(global-set-key '(#\f :meta) 'com-forward-word) +(global-set-key '(#\b :meta) 'com-backward-word) +(global-set-key '(#\x :meta) 'com-extended-command) +(global-set-key '(#\a :meta) 'com-insert-weird-stuff) +(global-set-key '(#\c :meta) 'com-insert-reversed-string) +(global-set-key '(#\y :meta) 'com-kr-rotate) ;currently rotates only +(global-set-key '(#\w :meta) 'com-copy-out) +(global-set-key '(#< :shift :meta) 'com-beginning-of-buffer) +(global-set-key '(#> :shift :meta) 'com-end-of-buffer) +(global-set-key '(#\u :meta) 'com-browse-url) + +(global-set-key '(:up) 'com-previous-line) +(global-set-key '(:down) 'com-next-line) +(global-set-key '(:left) 'com-backward-object) +(global-set-key '(:right) 'com-forward-object) +(global-set-key '(:left :control) 'com-backward-word) +(global-set-key '(:right :control) 'com-forward-word) +(global-set-key '(:home) 'com-beginning-of-line) +(global-set-key '(:end) 'com-end-of-line) +(global-set-key '(:home :control) 'com-beginning-of-buffer) +(global-set-key '(:end :control) 'com-end-of-buffer) +(global-set-key #\Rubout 'com-delete-object) +(global-set-key #\Backspace 'com-backward-delete-object) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; +;;; C-x command table + +(make-command-table 'c-x-climacs-table :errorp nil) + +(add-menu-item-to-command-table 'global-climacs-table "C-x" + :menu 'c-x-climacs-table + :keystroke '(#\x :control)) + +(defun c-x-set-key (gesture command) + (add-command-to-command-table command 'c-x-climacs-table + :keystroke gesture :errorp nil)) + +(c-x-set-key '(#\c :control) 'com-quit) +(c-x-set-key '(#\f :control) 'com-find-file) +(c-x-set-key '(#\s :control) 'com-save-buffer) +(c-x-set-key '(#\w :control) 'com-write-buffer)