climacs-cvs

Download

climacs-cvs@common-lisp.net

December 2004

4 participants
42 discussions

[climacs-cvs] CVS update: climacs/gui.lisp climacs/kill-ring.lisp climacs/packages.lisp
by ejohnson＠common-lisp.net 29 Dec '04

29 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv19301 Modified Files: gui.lisp kill-ring.lisp packages.lisp Log Message: Tiding up a kill ring warning and move buffer related material to gui.lisp Date: Wed Dec 29 08:06:46 2004 Author: ejohnson Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.28 climacs/gui.lisp:1.29 --- climacs/gui.lisp:1.28 Wed Dec 29 07:58:53 2004 +++ climacs/gui.lisp Wed Dec 29 08:06:46 2004 @@ -345,6 +345,31 @@ ;; outputs to inputs and inputs to outputs. Copying into a buffer ;; first requires coping out of the kill ring. +(defgeneric kr-copy-in (buffer kr offset1 offset2) + (:documentation "Non destructively copies in buffer region to the kill ring")) + +(defmethod kr-copy-in ((buffer standard-buffer) (kr kill-ring) offset1 offset2) + (kr-push kr (buffer-sequence buffer offset1 offset2))) + +(defgeneric kr-cut-in (buffer kr offset1 offset2) + (:documentation "Destructively cut a given buffer region into the kill-ring")) + +(defmethod kr-cut-in ((buffer standard-buffer) (kr kill-ring) offset1 offset2) + (kr-copy-in buffer kr offset1 offset2) + (climacs-buffer::delete-buffer-range buffer offset1 (- offset2 offset1))) + +(defgeneric kr-copy-out (mark kr) + (:documentation "Copies an element from a kill-ring to a buffer at the given offset")) + +(defmethod kr-copy-out ((mark standard-right-sticky-mark)(kr kill-ring)) + (insert-sequence mark (kr-copy kr))) + +(defgeneric kr-cut-out (mark kr) + (:documentation "Cuts an element from a kill-ring out to a buffer at a given offset")) + +(defmethod kr-cut-out ((mark standard-right-sticky-mark) (kr kill-ring)) + (insert-sequence mark (kr-pop kr))) + (define-command com-copy-in () (kr-copy-out (point (win *application-frame*)) *kill-ring*)) @@ -375,7 +400,6 @@ (define-command com-kr-resize () (let ((size (accept 'fixnum :prompt "New kill ring size: "))) (kr-resize *kill-ring* size))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Index: climacs/kill-ring.lisp diff -u climacs/kill-ring.lisp:1.1 climacs/kill-ring.lisp:1.2 --- climacs/kill-ring.lisp:1.1 Wed Dec 29 06:45:37 2004 +++ climacs/kill-ring.lisp Wed Dec 29 08:06:46 2004 @@ -39,23 +39,27 @@ :max-size size :flexichain (make-instance 'standard-flexichain))) -;; Didn't see a real reason to make gf's for these. -(defun kr-length (kr) - "Returns the length of a kill-rings flexichain" +(defgeneric kr-length (kr) + (:documentation "Returns the length of a kill-ring's flexichain")) + +(defmethod kr-length ((kr kill-ring)) (nb-elements (kr-flexi kr))) -(defun kr-resize (kr size) - "Resize a kill-ring to the value of size" - (kr-p kr) +(defgeneric kr-resize (kr size) + (:documentation "Resize a kill ring to the value of SIZE")) + +(defmethod kr-resize ((kr kill-ring) size) (setf (slot-value kr 'max-size) size) (let ((len (kr-length kr))) (if (> len size) (loop for n from 1 to (- len size) do (pop-end (kr-flexi kr)))))) -(defun kr-push (kr object) - "Push an object onto a kill-ring with size considerations" +(defgeneric kr-push (kr object) + (:documentation "Push an object onto a kill ring with size considerations")) + +(defmethod kr-push ((kr kill-ring) object) (let ((flexi (kr-flexi kr))) (if (>= (kr-length kr)(kr-max-size kr)) ((lambda (flex obj) @@ -64,37 +68,27 @@ flexi object) (push-start flexi object)))) -(defun kr-pop (kr) - "Pops an object off of a kill-ring" +(defgeneric kr-pop (kr) + (:documentation "Pops an object off of a kill ring")) + +(defmethod kr-pop ((kr kill-ring)) (if (> (nb-elements (kr-flexi kr)) 0) (pop-start (kr-flexi kr)) nil)) -(defun kr-rotate (kr &optional (n -1)) - "Rotates the kill-ring either once forward or an optional amount +/-" +(defgeneric kr-rotate (kr &optional n) + (:documentation "Rotates the kill ring either once forward or an optional amound +/-")) + +(defmethod kr-rotate ((kr kill-ring) &optional (n -1)) (assert (typep n 'fixnum)(n) "Can not rotate the kill ring ~S positions" n) (let ((flexi (kr-flexi kr))) (rotate flexi n))) -(defun kr-copy (kr) - "Copies out a member of a kill-ring without deleting it" +(defgeneric kr-copy (kr) + (:documentation "Copies out a member of a kill ring without deleting it")) + +(defmethod kr-copy ((kr kill-ring)) (let ((object (kr-pop kr))) (kr-push kr object) object)) -(defun kr-copy-in (buffer kr offset1 offset2) - "Non destructively copies in buffer region to the kill-ring" - (kr-push kr (buffer-sequence buffer offset1 offset2))) - -(defun kr-cut-in (buffer kr offset1 offset2) - "Destructively cuts a given buffer region into the kill-ring" - (kr-copy-in buffer kr offset1 offset2) - (climacs-buffer::delete-buffer-range buffer offset1 (- offset2 offset1))) - -(defun kr-copy-out (mark kr) - "Copies an element from a kill-ring to a buffer at the given offset" - (insert-sequence mark (kr-copy kr))) - -(defun kr-cut-out (mark kr) - "Cuts an element from a kill-ring out to a buffer at a given offset" - (insert-sequence mark (kr-pop kr))) \ No newline at end of file Index: climacs/packages.lisp diff -u climacs/packages.lisp:1.13 climacs/packages.lisp:1.14 --- climacs/packages.lisp:1.13 Wed Dec 29 07:58:53 2004 +++ climacs/packages.lisp Wed Dec 29 08:06:46 2004 @@ -62,9 +62,9 @@ (defpackage :climacs-kill-ring (:use :clim-lisp :climacs-buffer :flexichain) - (:export #:initialize-kill-ring #:kr-length #:kr-resize - #:kr-rotate #:kr-copy-in #:kr-cut-in #:kr-copy-out - #:kr-cut-out)) + (:export #:initialize-kill-ring #:kr-length + #:kr-resize #:kr-rotate #:kill-ring + #:kr-copy #:kr-push #:kr-pop)) (defpackage :climacs-gui (:use :clim-lisp :clim :climacs-buffer :climacs-base :climacs-abbrev :climacs-syntax :climacs-kill-ring))

1 0

[climacs-cvs] CVS update: climacs/Doc/climacs-internals.texi
by rstrandh＠common-lisp.net 29 Dec '04

29 Dec '04

Update of /project/climacs/cvsroot/climacs/Doc In directory common-lisp.net:/tmp/cvs-serv18511/Doc Modified Files: climacs-internals.texi Log Message: Modified the buffer protocol to contain a modification flag, and implemented the modification. Updated the documentation. Added a flag to the climacs-buffer indicating whether the buffer needs saving. This is different from the modification flag, which is only valid during one iteration of the command loop. The needs-saving flag checks the modification flag, though, after each command execution. Date: Wed Dec 29 07:58:57 2004 Author: rstrandh Index: climacs/Doc/climacs-internals.texi diff -u climacs/Doc/climacs-internals.texi:1.4 climacs/Doc/climacs-internals.texi:1.5 --- climacs/Doc/climacs-internals.texi:1.4 Sun Dec 26 07:14:51 2004 +++ climacs/Doc/climacs-internals.texi Wed Dec 29 07:58:55 2004 @@ -432,10 +432,20 @@ update information about syntax highlighting and other cached information. -@deffn {Generic Function} {reset-low-high-marks} buffer +In addition to these marks, the buffer maintains a modification flag +that determines. Whether the buffer has been modified since the last +call to clear-modify. + +@deffn {Generic Function} {modified-p} buffer + +Return true if and only if the buffer has beeen modified. +@end deffn + +@deffn {Generic Function} {clear-modify} buffer Set the high-mark to the beginning of the beginning of the buffer and -the low-mark to the end of the buffer. +the low-mark to the end of the buffer, and clear the modification +flag. @end deffn This function is used by the redisplay module after all of the panes

1 0

[climacs-cvs] CVS update: climacs/buffer.lisp climacs/gui.lisp climacs/packages.lisp
by rstrandh＠common-lisp.net 29 Dec '04

29 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv18511 Modified Files: buffer.lisp gui.lisp packages.lisp Log Message: Modified the buffer protocol to contain a modification flag, and implemented the modification. Updated the documentation. Added a flag to the climacs-buffer indicating whether the buffer needs saving. This is different from the modification flag, which is only valid during one iteration of the command loop. The needs-saving flag checks the modification flag, though, after each command execution. Date: Wed Dec 29 07:58:53 2004 Author: rstrandh Index: climacs/buffer.lisp diff -u climacs/buffer.lisp:1.12 climacs/buffer.lisp:1.13 --- climacs/buffer.lisp:1.12 Tue Dec 28 07:58:36 2004 +++ climacs/buffer.lisp Wed Dec 29 07:58:53 2004 @@ -38,10 +38,13 @@ (defgeneric high-mark (buffer)) +(defgeneric modified-p (buffer)) + (defclass standard-buffer (buffer) ((contents :initform (make-instance 'standard-cursorchain)) (low-mark :reader low-mark) - (high-mark :reader high-mark)) + (high-mark :reader high-mark) + (modified :initform nil :reader modified-p)) (:documentation "The Climacs standard buffer [an instantable subclass of buffer].")) (defgeneric buffer (mark) @@ -463,23 +466,27 @@ (setf (offset (low-mark buffer)) (min (offset (low-mark buffer)) offset)) (setf (offset (high-mark buffer)) - (max (offset (high-mark buffer)) offset))) + (max (offset (high-mark buffer)) offset)) + (setf (slot-value buffer 'modified) t)) (defmethod insert-buffer-sequence :before ((buffer standard-buffer) offset sequence) (declare (ignore sequence)) (setf (offset (low-mark buffer)) (min (offset (low-mark buffer)) offset)) (setf (offset (high-mark buffer)) - (max (offset (high-mark buffer)) offset))) + (max (offset (high-mark buffer)) offset)) + (setf (slot-value buffer 'modified) t)) (defmethod delete-buffer-range :before ((buffer standard-buffer) offset n) (setf (offset (low-mark buffer)) (min (offset (low-mark buffer)) offset)) (setf (offset (high-mark buffer)) - (max (offset (high-mark buffer)) (+ offset n)))) + (max (offset (high-mark buffer)) (+ offset n))) +(setf (slot-value buffer 'modified) t)) -(defgeneric reset-low-high-marks (buffer)) +(defgeneric clear-modify (buffer)) -(defmethod reset-low-high-marks ((buffer standard-buffer)) +(defmethod clear-modify ((buffer standard-buffer)) (beginning-of-buffer (high-mark buffer)) - (end-of-buffer (low-mark buffer))) + (end-of-buffer (low-mark buffer)) + (setf (slot-value buffer 'modified) nil)) Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.27 climacs/gui.lisp:1.28 --- climacs/gui.lisp:1.27 Wed Dec 29 06:55:26 2004 +++ climacs/gui.lisp Wed Dec 29 07:58:53 2004 @@ -29,7 +29,7 @@ (defclass climacs-buffer (standard-buffer abbrev-mixin filename-mixin) ((name :initform "*scratch*" :accessor name) - (modified :initform nil :accessor modified-p))) + (needs-saving :initform nil :accessor needs-saving))) (defclass climacs-pane (application-pane) ((buffer :initform (make-instance 'climacs-buffer) :accessor buffer) @@ -48,6 +48,12 @@ :buffer buffer))) (setf syntax (make-instance 'texinfo-syntax :pane pane)))) +(defclass minibuffer-pane (application-pane) ()) + +(defmethod stream-accept :before ((pane minibuffer-pane) type &rest args) + (declare (ignore type args)) + (window-clear pane)) + (define-application-frame climacs () ((win :reader win)) (:panes @@ -57,13 +63,14 @@ :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)) + :width 900 :height 20 :max-height 20 + :name 'info :background +light-gray+ + :scroll-bars nil + :incremental-redisplay t + :display-function 'display-info) + (int (make-pane 'minibuffer-pane + :width 900 :height 20 :max-height 20 :min-height 20 + :scroll-bars nil))) (:layouts (default (vertically (:scroll-bars nil) @@ -72,6 +79,10 @@ int))) (:top-level (climacs-top-level))) +(defmethod redisplay-frame-panes :after ((frame climacs) &rest args) + (declare (ignore args)) + (clear-modify (buffer (win frame)))) + (defun climacs () "Starts up a climacs session" (let ((frame (make-application-frame 'climacs))) @@ -81,7 +92,7 @@ (let* ((win (win frame)) (buf (buffer win)) (name-info (format nil " ~a ~a" - (if (modified-p buf) "**" "--") + (if (needs-saving buf) "**" "--") (name buf)))) (princ name-info pane))) @@ -108,8 +119,6 @@ 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) @@ -140,6 +149,9 @@ (format *error-output* "~a~%" condition))) (setf gestures '())) (t nil)))) + (let ((buffer (buffer (win frame)))) + (when (modified-p buffer) + (setf (needs-saving buffer) t))) (redisplay-frame-panes frame)))) (define-command (com-quit :name "Quit" :command-table climacs) () @@ -148,8 +160,7 @@ (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)) + (insert-object (point (win *application-frame*)) *current-gesture*)) (define-command com-backward-object () (decf (offset (point (win *application-frame*))))) @@ -164,12 +175,10 @@ (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)) + (delete-range (point (win *application-frame*)))) (define-command com-backward-delete-object () - (delete-range (point (win *application-frame*)) -1) - (setf (modified-p (buffer (win *application-frame*))) t)) + (delete-range (point (win *application-frame*)) -1)) (define-command com-previous-line () (previous-line (point (win *application-frame*)))) @@ -178,12 +187,10 @@ (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)) + (open-line (point (win *application-frame*)))) (define-command com-kill-line () - (kill-line (point (win *application-frame*))) - (setf (modified-p (buffer (win *application-frame*))) t)) + (kill-line (point (win *application-frame*)))) (define-command com-forward-word () (forward-word (point (win *application-frame*)))) @@ -199,21 +206,8 @@ (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) @@ -303,7 +297,11 @@ (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)) + (name buffer) (pathname-filename filename) + (needs-saving buffer) nil) + ;; this one is needed so that the buffer modification protocol + ;; resets the low and high marks after redisplay + (redisplay-frame-panes *application-frame*) (beginning-of-buffer point)))) (define-command com-save-buffer () @@ -314,8 +312,8 @@ (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))) + (name buffer) (pathname-filename filename) + (needs-saving buffer) nil))) (define-command com-write-buffer () (let ((filename (accept 'completable-pathname @@ -324,8 +322,8 @@ (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))) + (name buffer) (pathname-filename filename) + (needs-saving buffer) nil))) (define-command com-beginning-of-buffer () (beginning-of-buffer (point (win *application-frame*)))) @@ -409,8 +407,6 @@ (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) Index: climacs/packages.lisp diff -u climacs/packages.lisp:1.12 climacs/packages.lisp:1.13 --- climacs/packages.lisp:1.12 Wed Dec 29 06:45:37 2004 +++ climacs/packages.lisp Wed Dec 29 07:58:53 2004 @@ -38,7 +38,7 @@ #:delete-region #:buffer-object #:buffer-sequence #:object-before #:object-after #:region-to-sequence - #:low-mark #:high-mark #:reset-low-high-marks)) + #:low-mark #:high-mark #:modified-p #:clear-modify)) (defpackage :climacs-base (:use :clim-lisp :climacs-buffer)

1 0

[climacs-cvs] CVS update: climacs/gui.lisp
by ejohnson＠common-lisp.net 29 Dec '04

29 Dec '04

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(a)labri.fr) +;;; (c) copyright 2004 by +;;; Elliott Johnson (ejohnson(a)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)

1 0

[climacs-cvs] CVS update: climacs/gui.lisp
by ejohnson＠common-lisp.net 29 Dec '04

29 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv15509 Modified Files: gui.lisp Log Message: needed gui commands for kill ring Date: Wed Dec 29 06:49:05 2004 Author: ejohnson Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.25 climacs/gui.lisp:1.26 --- climacs/gui.lisp:1.25 Wed Dec 29 06:45:37 2004 +++ climacs/gui.lisp Wed Dec 29 06:49:04 2004 @@ -1,450 +1,1893 @@ -;;; -*- Mode: Lisp; Package: CLIMACS-GUI -*- - -;;; (c) copyright 2004 by -;;; Robert Strandh (strandh(a)labri.fr) -;;; (c) copyright 2004 by -;;; Elliott Johnson (ejohnson(a)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-in) -(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) +; 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

1 0

[climacs-cvs] CVS update: climacs/kill-ring.lisp climacs/climacs.asd climacs/gui.lisp climacs/packages.lisp
by ejohnson＠common-lisp.net 29 Dec '04

29 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv15124 Modified Files: climacs.asd gui.lisp packages.lisp Added Files: kill-ring.lisp Log Message: adding in kill ring material Date: Wed Dec 29 06:45:38 2004 Author: ejohnson Index: climacs/climacs.asd diff -u climacs/climacs.asd:1.5 climacs/climacs.asd:1.6 --- climacs/climacs.asd:1.5 Sat Dec 25 00:14:40 2004 +++ climacs/climacs.asd Wed Dec 29 06:45:37 2004 @@ -55,4 +55,5 @@ "io" "abbrev" "syntax" + "kill-ring" "gui") Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.24 climacs/gui.lisp:1.25 --- climacs/gui.lisp:1.24 Wed Dec 29 05:55:20 2004 +++ climacs/gui.lisp Wed Dec 29 06:45:37 2004 @@ -34,14 +34,18 @@ (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))) + (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) pane + (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 () @@ -96,6 +100,7 @@ (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 @@ -331,6 +336,49 @@ (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 @@ -355,11 +403,16 @@ (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-in) (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) Index: climacs/packages.lisp diff -u climacs/packages.lisp:1.11 climacs/packages.lisp:1.12 --- climacs/packages.lisp:1.11 Sun Dec 26 08:18:01 2004 +++ climacs/packages.lisp Wed Dec 29 06:45:37 2004 @@ -60,6 +60,12 @@ #:redisplay-pane #:redisplay-with-syntax #:full-redisplay #:url)) +(defpackage :climacs-kill-ring + (:use :clim-lisp :climacs-buffer :flexichain) + (:export #:initialize-kill-ring #:kr-length #:kr-resize + #:kr-rotate #:kr-copy-in #:kr-cut-in #:kr-copy-out + #:kr-cut-out)) + (defpackage :climacs-gui - (:use :clim-lisp :clim :climacs-buffer :climacs-base :climacs-abbrev :climacs-syntax)) + (:use :clim-lisp :clim :climacs-buffer :climacs-base :climacs-abbrev :climacs-syntax :climacs-kill-ring))

1 0

[climacs-cvs] CVS update: climacs/gui.lisp
by abridgewater＠common-lisp.net 29 Dec '04

29 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv12180 Modified Files: gui.lisp Log Message: First cut at getting M-x extended commands to work. Covers Quit and Find File. Date: Wed Dec 29 05:55:20 2004 Author: abridgewater Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.23 climacs/gui.lisp:1.24 --- climacs/gui.lisp:1.23 Tue Dec 28 18:32:18 2004 +++ climacs/gui.lisp Wed Dec 29 05:55:20 2004 @@ -137,7 +137,7 @@ (t nil)))) (redisplay-frame-panes frame)))) -(define-command com-quit () +(define-command (com-quit :name "Quit" :command-table climacs) () (frame-exit *application-frame*)) (define-command com-self-insert () @@ -193,7 +193,9 @@ 'default))) (define-command com-extended-command () - (accept 'command :prompt "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.")) @@ -286,7 +288,7 @@ (concatenate 'string (pathname-name pathname) "." (pathname-type pathname)))) -(define-command com-find-file () +(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*)

1 0

[climacs-cvs] CVS update: climacs/syntax.lisp
by abridgewater＠common-lisp.net 28 Dec '04

28 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv25376 Modified Files: syntax.lisp Log Message: Changed redisplay to not create output records for #\Space characters. Date: Tue Dec 28 23:41:15 2004 Author: abridgewater Index: climacs/syntax.lisp diff -u climacs/syntax.lisp:1.10 climacs/syntax.lisp:1.11 --- climacs/syntax.lisp:1.10 Mon Dec 27 18:43:08 2004 +++ climacs/syntax.lisp Tue Dec 28 23:41:14 2004 @@ -106,7 +106,8 @@ until (eql (buffer-object (buffer pane) scan) #\Newline) do (let ((obj (buffer-object (buffer pane) scan))) (cond ((eql obj #\Space) - (output-word (princ obj pane))) + (output-word) + (stream-increment-cursor-position pane space-width 0)) ((eql obj #\Tab) (output-word) (let ((x (stream-cursor-position pane)))

1 0

[climacs-cvs] CVS update: climacs/gui.lisp
by rstrandh＠common-lisp.net 28 Dec '04

28 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv9146 Modified Files: gui.lisp Log Message: Better buffer name. Save-buffer now sets the filename and the name of the buffer. Date: Tue Dec 28 18:32:20 2004 Author: rstrandh Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.22 climacs/gui.lisp:1.23 --- climacs/gui.lisp:1.22 Tue Dec 28 17:57:26 2004 +++ climacs/gui.lisp Tue Dec 28 18:32:18 2004 @@ -280,6 +280,12 @@ (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 () (let ((filename (accept 'completable-pathname :prompt "Find File"))) @@ -290,7 +296,7 @@ (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-name filename)) + (name buffer) (pathname-filename filename)) (beginning-of-buffer point)))) (define-command com-save-buffer () @@ -300,6 +306,8 @@ (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 () @@ -309,7 +317,7 @@ (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-name filename)) + (name buffer) (pathname-filename filename)) (setf (modified-p (buffer (win *application-frame*))) nil))) (define-command com-beginning-of-buffer ()

1 0

[climacs-cvs] CVS update: climacs/gui.lisp
by rstrandh＠common-lisp.net 28 Dec '04

28 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv7032 Modified Files: gui.lisp Log Message: Nicer layout. Buffer name and buffer modification flag shown on new status line. write-buffer command. Date: Tue Dec 28 17:57:26 2004 Author: rstrandh Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.21 climacs/gui.lisp:1.22 --- climacs/gui.lisp:1.21 Mon Dec 27 17:47:45 2004 +++ climacs/gui.lisp Tue Dec 28 17:57:26 2004 @@ -27,7 +27,9 @@ (defclass filename-mixin () ((filename :initform nil :accessor filename))) -(defclass climacs-buffer (standard-buffer abbrev-mixin filename-mixin) ()) +(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) @@ -50,11 +52,19 @@ :name 'win :incremental-redisplay t :display-function 'display-win)) - (int :interactor :width 900 :height 50 :max-height 50)) + (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 () + (vertically (:scroll-bars nil) (scrolling (:width 900 :height 400) win) + info int))) (:top-level (climacs-top-level))) @@ -63,6 +73,14 @@ (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)) @@ -85,8 +103,10 @@ 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* (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) @@ -123,7 +143,8 @@ (define-command com-self-insert () (unless (constituentp *current-gesture*) (possibly-expand-abbrev (point (win *application-frame*)))) - (insert-object (point (win *application-frame*)) *current-gesture*)) + (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*))))) @@ -138,10 +159,12 @@ (end-of-line (point (win *application-frame*)))) (define-command com-delete-object () - (delete-range (point (win *application-frame*)))) + (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)) + (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*)))) @@ -150,10 +173,12 @@ (next-line (point (win *application-frame*)))) (define-command com-open-line () - (open-line (point (win *application-frame*)))) + (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*)))) + (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*)))) @@ -174,11 +199,13 @@ (:documentation "An open ended class.")) (define-command com-insert-weird-stuff () - (insert-object (point (win *application-frame*)) (make-instance 'weird))) + (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)))) + (reverse (accept 'string))) + (setf (modified-p (buffer (win *application-frame*))) t)) (define-presentation-type completable-pathname () :inherit-from 'pathname) @@ -227,7 +254,7 @@ (values completed-string nil nil (length pathnames) nil)))) (:complete (cond ((null pathnames) - (values so-far nil nil 0 nil)) + (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) @@ -259,10 +286,11 @@ (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*)) - (filename buffer) filename) - (with-open-file (stream filename :direction :input) + 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-name filename)) (beginning-of-buffer point)))) (define-command com-save-buffer () @@ -271,7 +299,18 @@ :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))))) + (output-to-stream stream buffer 0 (size buffer))) + (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-name filename)) + (setf (modified-p (buffer (win *application-frame*))) nil))) (define-command com-beginning-of-buffer () (beginning-of-buffer (point (win *application-frame*)))) @@ -345,3 +384,4 @@ (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)

1 0