December 2004 - climacs-cvs@common-lisp.net

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

31 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv22282 Modified Files: gui.lisp packages.lisp syntax.lisp Log Message: Simplified the redisplay routine. Introduced a cache of lines in the form of a flexichain. The ultra-fast redisplay is not yet in place, because I thought the bottle neck was in Climacs, whereas it is in McCLIM. I know how to fix that, though, by using :cache-test #'eq for cached lines. The only problem with that is that the line has to be traversed (despite being cached) in order that we can compute the position of the cursor. This might involve either invalidating the line with the cursor on it, so that it will be rescanned, or else rescanning it anyway, despite it being cached. Date: Fri Dec 31 14:33:07 2004 Author: rstrandh Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.36 climacs/gui.lisp:1.37 --- climacs/gui.lisp:1.36 Fri Dec 31 07:39:21 2004 +++ climacs/gui.lisp Fri Dec 31 14:33:06 2004 @@ -354,10 +354,10 @@ (setf (filename buffer) filename (name buffer) (pathname-filename filename) (needs-saving buffer) nil) + (beginning-of-buffer point) ;; 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)))) + (redisplay-frame-panes *application-frame*)))) (define-named-command com-save-buffer () (let* ((buffer (buffer (win *application-frame*))) Index: climacs/packages.lisp diff -u climacs/packages.lisp:1.15 climacs/packages.lisp:1.16 --- climacs/packages.lisp:1.15 Wed Dec 29 17:03:21 2004 +++ climacs/packages.lisp Fri Dec 31 14:33:06 2004 @@ -56,7 +56,7 @@ #:expand-abbrev #:abbrev-mixin #:possibly-expand-abbrev)) (defpackage :climacs-syntax - (:use :clim-lisp :clim :climacs-buffer :climacs-base) + (:use :clim-lisp :clim :climacs-buffer :climacs-base :flexichain) (:export #:syntax #:basic-syntax #:texinfo-syntax #:redisplay-pane #:redisplay-with-syntax #:full-redisplay #:url)) Index: climacs/syntax.lisp diff -u climacs/syntax.lisp:1.12 climacs/syntax.lisp:1.13 --- climacs/syntax.lisp:1.12 Wed Dec 29 12:38:34 2004 +++ climacs/syntax.lisp Fri Dec 31 14:33:06 2004 @@ -38,11 +38,11 @@ ((top :reader top) (bot :reader bot) (scan :reader scan) - (saved-offset :initform nil :accessor saved-offset) - (cursor-x :initform nil) - (cursor-y :initform nil) + (cursor-x :initform 2) + (cursor-y :initform 2) (space-width :initform nil) - (tab-width :initform nil))) + (tab-width :initform nil) + (cache :initform nil))) (defmethod initialize-instance :after ((syntax basic-syntax) &rest args &key pane) (declare (ignore args)) @@ -66,72 +66,97 @@ 'string) :stream pane))) -;;(defmacro maybe-updating-output (stuff &body body) -;; `(progn ,@body)) - - (defmacro maybe-updating-output (stuff &body body) - `(updating-output ,stuff ,@body)) - -(defmethod display-line (pane (syntax basic-syntax)) - (with-slots (saved-offset bot scan cursor-x cursor-y space-width tab-width) syntax - (flet ((compute-contents () - (unless (null saved-offset) - (prog1 (coerce (buffer-sequence (buffer pane) saved-offset scan) 'string) - (setf saved-offset nil))))) - (macrolet ((output-word (&body body) - `(let ((contents (compute-contents))) - (if (null contents) - ,(if body - `(maybe-updating-output (pane :unique-id (incf id)) - ,@body) - `(progn)) - (progn - (maybe-updating-output (pane :unique-id (incf id) - :cache-value contents - :cache-test #'string=) - (present-contents contents pane syntax)) - ,(when body - `(maybe-updating-output (pane :unique-id (incf id)) - ,@body))))))) - (loop with id = 0 +(defmethod display-line (pane (syntax basic-syntax) line) + (let ((saved-index nil) + (id 0)) + (flet ((output-word (index) + (unless (null saved-index) + (let ((contents (coerce (subseq line saved-index index) 'string))) + (updating-output (pane :unique-id (incf id) + :cache-value contents + :cache-test #'string=) + (present-contents contents pane syntax))) + (setf saved-index nil)))) + (with-slots (bot scan cursor-x cursor-y space-width tab-width) syntax + (loop for index from 0 + for obj across line when (mark= scan (point pane)) do (multiple-value-bind (x y) (stream-cursor-position pane) - (setf cursor-x (+ x (if (null saved-offset) + (setf cursor-x (+ x (if (null saved-index) 0 - (* space-width (- scan saved-offset)))) + (* space-width (- index saved-index)))) cursor-y y)) - when (mark= scan bot) - do (output-word) - (return) - until (eql (buffer-object (buffer pane) scan) #\Newline) - do (let ((obj (buffer-object (buffer pane) scan))) - (cond ((eql obj #\Space) - (output-word) - (stream-increment-cursor-position pane space-width 0)) - ((eql obj #\Tab) - (output-word) - (let ((x (stream-cursor-position pane))) - (stream-increment-cursor-position - pane (- tab-width (mod x tab-width)) 0))) - ((constituentp obj) - (when (null saved-offset) - (setf saved-offset scan))) - (t - (output-word (princ obj pane))))) + do (cond ((eql obj #\Space) + (output-word index) + (stream-increment-cursor-position pane space-width 0)) + ((eql obj #\Tab) + (output-word index) + (let ((x (stream-cursor-position pane))) + (stream-increment-cursor-position + pane (- tab-width (mod x tab-width)) 0))) + ((constituentp obj) + (when (null saved-index) + (setf saved-index index))) + ((characterp obj) + (output-word index) + (updating-output (pane :unique-id (incf id) + :cache-value obj) + (present obj))) + (t + (output-word index) + (updating-output (pane :unique-id (incf id) + :cache-value obj + :cache-test #'eq) + (present obj)))) (incf scan) - finally (output-word (terpri pane)) + finally (output-word index) + (when (mark= scan (point pane)) + (multiple-value-bind (x y) (stream-cursor-position pane) + (setf cursor-x x + cursor-y y))) + (terpri pane) (incf scan)))))) -(defun round-up (x) - (cond ((zerop x) 2) - ((evenp x) x) - (t (1+ x)))) +(defmethod compute-cache (pane (syntax basic-syntax)) + (with-slots (top bot cache) syntax + (let* ((buffer (buffer pane)) + (high-mark (high-mark buffer)) + (low-mark (low-mark buffer))) + (when (or (mark< low-mark top) (mark> high-mark bot)) + (setf cache nil)) + (if (null cache) + (let ((nb-lines-on-display (1+ (number-of-lines-in-region top bot))) + (mark1 (clone-mark top)) + (mark2 (clone-mark top))) + (setf cache (make-instance 'standard-flexichain)) + (loop for line from 0 below nb-lines-on-display + do (beginning-of-line mark1) + (end-of-line mark2) + (insert* cache line (region-to-sequence mark1 mark2)) + unless (end-of-buffer-p mark2) + do (setf (offset mark1) (1+ (offset mark2)) + (offset mark2) (offset mark1)))) + (let ((nb-lines-on-display (1+ (number-of-lines-in-region top bot))) + (mark1 (clone-mark low-mark)) + (mark2 (clone-mark low-mark)) + (size1 (number-of-lines-in-region top low-mark)) + (size2 (number-of-lines-in-region high-mark bot))) + (loop repeat (- (nb-elements cache) size1 size2) + do (delete* cache size1)) + (loop for line from size1 + repeat (- nb-lines-on-display (nb-elements cache)) + do (beginning-of-line mark1) + (end-of-line mark2) + (insert* cache line (region-to-sequence mark1 mark2)) + unless (end-of-buffer-p mark2) + do (setf (offset mark1) (1+ (offset mark2)) + (offset mark2) (offset mark1)))))))) -(defmethod redisplay-with-syntax (pane (syntax basic-syntax)) +(defun position-window (pane syntax) (let* ((medium (sheet-medium pane)) (style (medium-text-style medium)) (height (text-style-height style medium))) - (with-slots (top bot scan cursor-x cursor-y) syntax + (with-slots (top bot cache) syntax (beginning-of-line top) (end-of-line bot) (multiple-value-bind (x y w h) (bounding-rectangle* pane) @@ -141,13 +166,17 @@ ;; adjust the region on display to fit the pane (loop repeat (- nb-lines-on-display nb-lines-in-pane) do (beginning-of-line bot) - (decf (offset bot))) + (decf (offset bot)) + (unless (null cache) + (pop-end cache))) (loop until (end-of-buffer-p bot) repeat (- nb-lines-in-pane nb-lines-on-display) do (incf (offset bot)) - (end-of-line bot)) + (end-of-line bot) + (setf cache nil)) ;; move region on display if point is outside the current region (when (or (mark< (point pane) top) (mark> (point pane) bot)) + (setf cache nil) (setf (offset top) (offset (point pane))) (loop do (beginning-of-line top) repeat (floor nb-lines-in-pane 2) @@ -159,24 +188,38 @@ repeat (1- nb-lines-in-pane) until (end-of-buffer-p bot) do (incf (offset bot)) - (end-of-line bot))) - (setf scan (offset top)) - (loop for id from 0 - until (mark= scan bot) - do (maybe-updating-output (pane :unique-id id) - (display-line pane syntax))) - (when (mark= scan (point pane)) - (multiple-value-bind (x y) (stream-cursor-position pane) - (setf cursor-x x - cursor-y y))) - (maybe-updating-output (pane :all-new t :fixed-position t) - (draw-line* pane - ;; cursors with odd x-positions were invisible - ;; so we strip off the low bit to make them even. - - (round-up cursor-x) (- cursor-y (* 0.2 height)) - (round-up cursor-x) (+ cursor-y (* 0.8 height)) - :ink +red+))))))) + (end-of-line bot)))))))) + + +;;; this one should not be necessary. +(defun round-up (x) + (cond ((zerop x) 2) + ((evenp x) x) + (t (1+ x)))) + +(defmethod redisplay-with-syntax (pane (syntax basic-syntax)) + (let* ((medium (sheet-medium pane)) + (style (medium-text-style medium)) + (height (text-style-height style medium))) + (with-slots (top bot scan cache cursor-x cursor-y) syntax + (position-window pane syntax) + (compute-cache pane syntax) + (setf scan (offset top)) + (loop for id from 0 below (nb-elements cache) + do (updating-output (pane :unique-id id) + (display-line pane syntax (element* cache id)))) + (when (mark= scan (point pane)) + (multiple-value-bind (x y) (stream-cursor-position pane) + (setf cursor-x x + cursor-y y))) + (updating-output (pane :unique-id -1) + (draw-line* pane + ;; cursors with odd or zero x-positions were invisible + ;; so we round them up to even. + ;; We don't know why, though. + (round-up cursor-x) (- cursor-y (* 0.2 height)) + (round-up cursor-x) (+ cursor-y (* 0.8 height)) + :ink +red+))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;

1 0

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

31 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv2151 Modified Files: abbrev.lisp gui.lisp Log Message: Prelimary code for reading numeric argument. However, I suspect a bug in McCLIM with respect to unread-gesture, so waiting for a fix for that before actually using the code. Date: Fri Dec 31 07:39:22 2004 Author: rstrandh Index: climacs/abbrev.lisp diff -u climacs/abbrev.lisp:1.4 climacs/abbrev.lisp:1.5 --- climacs/abbrev.lisp:1.4 Thu Dec 23 09:00:33 2004 +++ climacs/abbrev.lisp Fri Dec 31 07:39:21 2004 @@ -52,10 +52,7 @@ (defun string-upper-case-p (string) "A predicate testing if each character of a string is uppercase." - (loop for c across string - unless (upper-case-p c) - do (return nil) - finally (return t))) + (every #'upper-case-p string)) (defmethod expand-abbrev (word (expander dictionary-abbrev-expander)) "Expands an abbrevated word by attempting to assocate it with a member of Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.35 climacs/gui.lisp:1.36 --- climacs/gui.lisp:1.35 Thu Dec 30 11:42:45 2004 +++ climacs/gui.lisp Fri Dec 31 07:39:21 2004 @@ -117,6 +117,43 @@ (defvar *kill-ring* (initialize-kill-ring 7)) (defparameter *current-gesture* nil) +(defun meta-digit (gesture) + (position gesture + '((#\0 :meta) (#\1 :meta) (#\2 :meta) (#\3 :meta) (#\4 :meta) + (#\5 :meta) (#\6 :meta) (#\7 :meta) (#\8 :meta) (#\9 :meta)) + :test #'event-matches-gesture-name-p)) + +(defun read-numeric-argument (&key (stream *standard-input*)) + (let ((gesture (read-gesture :stream stream))) + (cond ((event-matches-gesture-name-p gesture '(#\u :control)) + (let ((numarg 4)) + (loop for gesture = (read-gesture :stream stream) + while (event-matches-gesture-name-p gesture '(#\u :control)) + do (setf numarg (* 4 numarg)) + finally (unread-gesture gesture :stream stream)) + (let ((gesture (read-gesture :stream stream))) + (cond ((and (characterp gesture) + (digit-char-p gesture 10)) + (setf numarg (- (char-code gesture) (char-code #\0))) + (loop for gesture = (read-gesture :stream stream) + while (and (characterp gesture) + (digit-char-p gesture 10)) + do (setf gesture (+ (* 10 numarg) + (- (char-code gesture) (char-code #\0)))) + finally (unread-gesture gesture :stream stream) + (return (values numarg t)))) + (t + (values numarg t)))))) + ((meta-digit gesture) + (let ((numarg (meta-digit gesture))) + (loop for gesture = (read-gesture :stream stream) + while (meta-digit gesture) + do (setf numarg (+ (* 10 numarg) (meta-digit gesture))) + finally (unread-gesture gesture :stream stream) + (return (values numarg t))))) + (t (unread-gesture gesture :stream stream) + (values 1 nil))))) + (defun climacs-top-level (frame &key command-parser command-unparser partial-command-parser prompt) @@ -128,6 +165,7 @@ (*abort-gestures* nil)) (redisplay-frame-panes frame :force-p t) (loop with gestures = '() + with numarg = 1 ; FIXME (read-numeric-argument :stream *standard-input*) do (setf *current-gesture* (read-gesture :stream *standard-input*)) (when (or (characterp *current-gesture*) (and (typep *current-gesture* 'keyboard-event) @@ -145,12 +183,16 @@ (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 '())) + (let ((command (command-menu-item-value item))) + (unless (consp command) + (setf command (list command))) + (setf command (substitute-numeric-argument-marker command numarg)) + (handler-case + (execute-frame-command frame command) + (error (condition) + (beep) + (format *error-output* "~a~%" condition))) + (setf gestures '()))) (t nil)))) (let ((buffer (buffer (win frame)))) (when (modified-p buffer)

1 0

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

30 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv6045 Modified Files: gui.lisp Log Message: Wrapped an (EVAL-WHEN (:compile-toplevel) ...) around COMPLETABLE-PATHNAME to rid us of an asdf style warning Date: Thu Dec 30 11:42:46 2004 Author: ejohnson Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.34 climacs/gui.lisp:1.35 --- climacs/gui.lisp:1.34 Thu Dec 30 06:37:34 2004 +++ climacs/gui.lisp Thu Dec 30 11:42:45 2004 @@ -220,8 +220,9 @@ (let ((item (accept 'command :prompt "Extended Command"))) (execute-frame-command *application-frame* item))) -(define-presentation-type completable-pathname () - :inherit-from 'pathname) +(eval-when (:compile-toplevel) + (define-presentation-type completable-pathname () + :inherit-from 'pathname)) (defun filename-completer (so-far mode) (flet ((remove-trail (s)

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-serv23923 Modified Files: gui.lisp Log Message: Added DEFINE-NAMED-COMMAND and converted most commands to use it. Date: Thu Dec 30 06:37:34 2004 Author: abridgewater Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.33 climacs/gui.lisp:1.34 --- climacs/gui.lisp:1.33 Thu Dec 30 06:28:21 2004 +++ climacs/gui.lisp Thu Dec 30 06:37:34 2004 @@ -157,7 +157,10 @@ (setf (needs-saving buffer) t))) (redisplay-frame-panes frame)))) -(define-climacs-command (com-quit :name t) () +(defmacro define-named-command (command-name args &body body) + `(define-climacs-command ,(if (listp command-name) `(,@command-name :name t) `(,command-name :name t)) ,args ,@body)) + +(define-named-command (com-quit) () (frame-exit *application-frame*)) (define-command com-self-insert () @@ -165,49 +168,49 @@ (possibly-expand-abbrev (point (win *application-frame*)))) (insert-object (point (win *application-frame*)) *current-gesture*)) -(define-command com-backward-object () +(define-named-command com-backward-object () (decf (offset (point (win *application-frame*))))) -(define-command com-forward-object () +(define-named-command com-forward-object () (incf (offset (point (win *application-frame*))))) -(define-command com-beginning-of-line () +(define-named-command com-beginning-of-line () (beginning-of-line (point (win *application-frame*)))) -(define-command com-end-of-line () +(define-named-command com-end-of-line () (end-of-line (point (win *application-frame*)))) -(define-command com-delete-object () +(define-named-command com-delete-object () (delete-range (point (win *application-frame*)))) -(define-command com-backward-delete-object () +(define-named-command com-backward-delete-object () (delete-range (point (win *application-frame*)) -1)) -(define-command com-previous-line () +(define-named-command com-previous-line () (previous-line (point (win *application-frame*)))) -(define-command com-next-line () +(define-named-command com-next-line () (next-line (point (win *application-frame*)))) -(define-command com-open-line () +(define-named-command com-open-line () (open-line (point (win *application-frame*)))) -(define-command com-kill-line () +(define-named-command com-kill-line () (kill-line (point (win *application-frame*)))) -(define-command com-forward-word () +(define-named-command com-forward-word () (forward-word (point (win *application-frame*)))) -(define-command com-backward-word () +(define-named-command com-backward-word () (backward-word (point (win *application-frame*)))) -(define-command com-delete-word () +(define-named-command com-delete-word () (delete-word (point (win *application-frame*)))) -(define-command com-backward-delete-word () +(define-named-command com-backward-delete-word () (backward-delete-word (point (win *application-frame*)))) -(define-command com-toggle-layout () +(define-named-command com-toggle-layout () (setf (frame-current-layout *application-frame*) (if (eq (frame-current-layout *application-frame*) 'default) 'with-interactor @@ -296,7 +299,7 @@ (concatenate 'string (pathname-name pathname) "." (pathname-type pathname)))) -(define-climacs-command (com-find-file :name t) () +(define-named-command com-find-file () (let ((filename (accept 'completable-pathname :prompt "Find File"))) (with-slots (buffer point syntax) (win *application-frame*) @@ -313,7 +316,7 @@ (redisplay-frame-panes *application-frame*) (beginning-of-buffer point)))) -(define-command com-save-buffer () +(define-named-command com-save-buffer () (let* ((buffer (buffer (win *application-frame*))) (filename (or (filename buffer) (accept 'completable-pathname @@ -328,7 +331,7 @@ (display-message "No changes need to be saved from ~a" (name buffer))) (setf (needs-saving buffer) nil))) -(define-command com-write-buffer () +(define-named-command com-write-buffer () (let ((filename (accept 'completable-pathname :prompt "Write Buffer to File")) (buffer (buffer (win *application-frame*)))) @@ -339,24 +342,24 @@ (needs-saving buffer) nil) (display-message "Wrote: ~a" (filename buffer)))) -(define-command com-beginning-of-buffer () +(define-named-command com-beginning-of-buffer () (beginning-of-buffer (point (win *application-frame*)))) -(define-command com-end-of-buffer () +(define-named-command com-end-of-buffer () (end-of-buffer (point (win *application-frame*)))) -(define-command com-back-to-indentation () +(define-named-command com-back-to-indentation () (let ((point (point (win *application-frame*)))) (beginning-of-line point) (loop until (end-of-line-p point) while (whitespacep (object-after point)) do (incf (offset point))))) -(define-climacs-command (com-goto-position :name t) () +(define-named-command com-goto-position () (setf (offset (point (win *application-frame*))) (accept 'integer :prompt "Goto Position"))) -(define-climacs-command (com-goto-line :name t) () +(define-named-command com-goto-line () (loop with mark = (make-instance 'standard-right-sticky-mark :buffer (buffer (win *application-frame*))) do (end-of-line mark) @@ -368,10 +371,10 @@ (setf (offset (point (win *application-frame*))) (offset mark)))) -(define-climacs-command (com-browse-url :name t) () +(define-named-command com-browse-url () (accept 'url :prompt "Browse URL")) -(define-command com-set-mark () +(define-named-command com-set-mark () (with-slots (point mark) (win *application-frame*) (setf mark (clone-mark point)))) @@ -379,15 +382,15 @@ ;; Kill ring commands ;; Copies an element from a kill-ring to a buffer at the given offset -(define-command com-copy-in () +(define-named-command com-copy-in () (insert-sequence (point (win *application-frame*)) (kr-copy *kill-ring*))) ;; Cuts an element from a kill-ring out to a buffer at a given offset -(define-command com-cut-in () +(define-named-command com-cut-in () (insert-sequence (point (win *application-frame*)) (kr-pop *kill-ring*))) ;; Destructively cut a given buffer region into the kill-ring -(define-command com-cut-out () +(define-named-command com-cut-out () (with-slots (buffer point mark)(win *application-frame*) (if (< (offset point) (offset mark)) ((lambda (b o1 o2) @@ -401,7 +404,7 @@ ;; Non destructively copies in buffer region to the kill ring -(define-command com-copy-out () +(define-named-command com-copy-out () (with-slots (buffer point mark)(win *application-frame*) (let ((off1 (offset point)) (off2 (offset mark))) @@ -410,11 +413,11 @@ (kr-push *kill-ring* (buffer-sequence buffer off2 off1)))))) ;; Needs adjustment to be like emacs M-y -(define-command com-kr-rotate () +(define-named-command com-kr-rotate () (kr-rotate *kill-ring* -1)) ;; Not bound to a key yet -(define-command com-kr-resize () +(define-named-command com-kr-resize () (let ((size (accept 'fixnum :prompt "New kill ring size: "))) (kr-resize *kill-ring* size)))

1 0

[climacs-cvs] CVS update: climacs/base.lisp climacs/gui.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-serv23174 Modified Files: base.lisp gui.lisp Log Message: fixed some problems with word delete commands. Used define-climacs-command instead of :command-table climacs, and :name t when appropriate (as of now: always). Date: Thu Dec 30 06:28:23 2004 Author: rstrandh Index: climacs/base.lisp diff -u climacs/base.lisp:1.7 climacs/base.lisp:1.8 --- climacs/base.lisp:1.7 Wed Dec 29 17:03:21 2004 +++ climacs/base.lisp Thu Dec 30 06:28:21 2004 @@ -121,7 +121,7 @@ "Delete until the end of the word" (loop until (end-of-buffer-p mark) until (constituentp (object-after mark)) - do (incf (offset mark))) + do (delete-range mark)) (loop until (end-of-buffer-p mark) while (constituentp (object-after mark)) do (delete-range mark))) @@ -130,7 +130,7 @@ "Delete until the beginning of the word" (loop until (beginning-of-buffer-p mark) until (constituentp (object-before mark)) - do (decf (offset mark))) + do (delete-range mark -1)) (loop until (beginning-of-buffer-p mark) while (constituentp (object-before mark)) do (delete-range mark -1))) Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.32 climacs/gui.lisp:1.33 --- climacs/gui.lisp:1.32 Wed Dec 29 17:03:21 2004 +++ climacs/gui.lisp Thu Dec 30 06:28:21 2004 @@ -157,7 +157,7 @@ (setf (needs-saving buffer) t))) (redisplay-frame-panes frame)))) -(define-command (com-quit :name t :command-table climacs) () +(define-climacs-command (com-quit :name t) () (frame-exit *application-frame*)) (define-command com-self-insert () @@ -296,7 +296,7 @@ (concatenate 'string (pathname-name pathname) "." (pathname-type pathname)))) -(define-command (com-find-file :name t :command-table climacs) () +(define-climacs-command (com-find-file :name t) () (let ((filename (accept 'completable-pathname :prompt "Find File"))) (with-slots (buffer point syntax) (win *application-frame*) @@ -352,11 +352,11 @@ while (whitespacep (object-after point)) do (incf (offset point))))) -(define-command (com-goto-position :name t :command-table climacs) () +(define-climacs-command (com-goto-position :name t) () (setf (offset (point (win *application-frame*))) (accept 'integer :prompt "Goto Position"))) -(define-command (com-goto-line :name t :command-table climacs) () +(define-climacs-command (com-goto-line :name t) () (loop with mark = (make-instance 'standard-right-sticky-mark :buffer (buffer (win *application-frame*))) do (end-of-line mark) @@ -368,7 +368,7 @@ (setf (offset (point (win *application-frame*))) (offset mark)))) -(define-command com-browse-url () +(define-climacs-command (com-browse-url :name t) () (accept 'url :prompt "Browse URL")) (define-command com-set-mark ()

1 0

[climacs-cvs] CVS update: climacs/kill-ring.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-serv18458 Modified Files: kill-ring.lisp Log Message: Changed fixnum limit of kill ring to unsigned-byte Date: Thu Dec 30 04:55:14 2004 Author: ejohnson Index: climacs/kill-ring.lisp diff -u climacs/kill-ring.lisp:1.2 climacs/kill-ring.lisp:1.3 --- climacs/kill-ring.lisp:1.2 Wed Dec 29 08:06:46 2004 +++ climacs/kill-ring.lisp Thu Dec 30 04:55:14 2004 @@ -25,7 +25,7 @@ (in-package :climacs-kill-ring) (defclass kill-ring () - ((max-size :type 'fixnum + ((max-size :type unsigned-byte :initarg :max-size :accessor kr-max-size) (flexichain :type standard-flexichain

1 0

[climacs-cvs] CVS update: climacs/base.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-serv14833 Modified Files: base.lisp gui.lisp packages.lisp Log Message: New commands: M-m (back to indentation) M-d (delete word) M-backspace (backward delete word) M-x goto-position M-x goto-line New function whitespacep. Used `:name t' instead of repeating the command name in define-command. Date: Wed Dec 29 17:03:22 2004 Author: rstrandh Index: climacs/base.lisp diff -u climacs/base.lisp:1.6 climacs/base.lisp:1.7 --- climacs/base.lisp:1.6 Mon Dec 27 12:32:46 2004 +++ climacs/base.lisp Wed Dec 29 17:03:21 2004 @@ -93,6 +93,12 @@ #+sbcl (sb-impl::constituentp obj) #-sbcl (alphanumericp obj))) +(defun whitespacep (obj) + "A predicate to ensure that an object is a whitespace character." + (and (characterp obj) + #+sbcl (sb-impl::whitespacep obj) + #-sbcl (member obj '(#\Space #\Tab)))) + (defun forward-word (mark) "Forward the mark to the next word." (loop until (end-of-buffer-p mark) @@ -110,4 +116,22 @@ (loop until (beginning-of-buffer-p mark) while (constituentp (object-before mark)) do (decf (offset mark)))) + +(defun delete-word (mark) + "Delete until the end of the word" + (loop until (end-of-buffer-p mark) + until (constituentp (object-after mark)) + do (incf (offset mark))) + (loop until (end-of-buffer-p mark) + while (constituentp (object-after mark)) + do (delete-range mark))) + +(defun backward-delete-word (mark) + "Delete until the beginning of the word" + (loop until (beginning-of-buffer-p mark) + until (constituentp (object-before mark)) + do (decf (offset mark))) + (loop until (beginning-of-buffer-p mark) + while (constituentp (object-before mark)) + do (delete-range mark -1))) Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.31 climacs/gui.lisp:1.32 --- climacs/gui.lisp:1.31 Wed Dec 29 09:02:45 2004 +++ climacs/gui.lisp Wed Dec 29 17:03:21 2004 @@ -157,7 +157,7 @@ (setf (needs-saving buffer) t))) (redisplay-frame-panes frame)))) -(define-command (com-quit :name "Quit" :command-table climacs) () +(define-command (com-quit :name t :command-table climacs) () (frame-exit *application-frame*)) (define-command com-self-insert () @@ -201,6 +201,12 @@ (define-command com-backward-word () (backward-word (point (win *application-frame*)))) +(define-command com-delete-word () + (delete-word (point (win *application-frame*)))) + +(define-command com-backward-delete-word () + (backward-delete-word (point (win *application-frame*)))) + (define-command com-toggle-layout () (setf (frame-current-layout *application-frame*) (if (eq (frame-current-layout *application-frame*) 'default) @@ -290,7 +296,7 @@ (concatenate 'string (pathname-name pathname) "." (pathname-type pathname)))) -(define-command (com-find-file :name "Find File" :command-table climacs) () +(define-command (com-find-file :name t :command-table climacs) () (let ((filename (accept 'completable-pathname :prompt "Find File"))) (with-slots (buffer point syntax) (win *application-frame*) @@ -339,6 +345,29 @@ (define-command com-end-of-buffer () (end-of-buffer (point (win *application-frame*)))) +(define-command com-back-to-indentation () + (let ((point (point (win *application-frame*)))) + (beginning-of-line point) + (loop until (end-of-line-p point) + while (whitespacep (object-after point)) + do (incf (offset point))))) + +(define-command (com-goto-position :name t :command-table climacs) () + (setf (offset (point (win *application-frame*))) + (accept 'integer :prompt "Goto Position"))) + +(define-command (com-goto-line :name t :command-table climacs) () + (loop with mark = (make-instance 'standard-right-sticky-mark + :buffer (buffer (win *application-frame*))) + do (end-of-line mark) + until (end-of-buffer-p mark) + repeat (accept 'integer :prompt "Goto Line") + do (incf (offset mark)) + (end-of-line mark) + finally (beginning-of-line mark) + (setf (offset (point (win *application-frame*))) + (offset mark)))) + (define-command com-browse-url () (accept 'url :prompt "Browse URL")) @@ -424,6 +453,9 @@ (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 '(#\m :meta) 'com-back-to-indentation) +(global-set-key '(#\d :meta) 'com-delete-word) +(global-set-key '(#\Backspace :meta) 'com-backward-delete-word) (global-set-key '(:up) 'com-previous-line) (global-set-key '(:down) 'com-next-line) Index: climacs/packages.lisp diff -u climacs/packages.lisp:1.14 climacs/packages.lisp:1.15 --- climacs/packages.lisp:1.14 Wed Dec 29 08:06:46 2004 +++ climacs/packages.lisp Wed Dec 29 17:03:21 2004 @@ -45,8 +45,9 @@ (:export #:previous-line #:next-line #:open-line #:kill-line #:number-of-lines-in-region - #:constituentp + #:constituentp #:whitespacep #:forward-word #:backward-word + #:delete-word #:backward-delete-word #:input-from-stream #:output-to-stream)) (defpackage :climacs-abbrev

1 0

[climacs-cvs] CVS update: climacs/syntax.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-serv579 Modified Files: syntax.lisp Log Message: Fixed the invisible cursor problem. Still don't know why even positions are required, though. Date: Wed Dec 29 12:38:34 2004 Author: rstrandh Index: climacs/syntax.lisp diff -u climacs/syntax.lisp:1.11 climacs/syntax.lisp:1.12 --- climacs/syntax.lisp:1.11 Tue Dec 28 23:41:14 2004 +++ climacs/syntax.lisp Wed Dec 29 12:38:34 2004 @@ -122,6 +122,11 @@ finally (output-word (terpri pane)) (incf scan)))))) +(defun round-up (x) + (cond ((zerop x) 2) + ((evenp x) x) + (t (1+ x)))) + (defmethod redisplay-with-syntax (pane (syntax basic-syntax)) (let* ((medium (sheet-medium pane)) (style (medium-text-style medium)) @@ -168,8 +173,9 @@ (draw-line* pane ;; cursors with odd x-positions were invisible ;; so we strip off the low bit to make them even. - (logand -2 cursor-x) (- cursor-y (* 0.2 height)) - (logand -2 cursor-x) (+ cursor-y (* 0.8 height)) + + (round-up cursor-x) (- cursor-y (* 0.2 height)) + (round-up cursor-x) (+ cursor-y (* 0.8 height)) :ink +red+))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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-serv22317 Modified Files: gui.lisp Log Message: factored out kr generic functions in gui.lisp for define-commands Date: Wed Dec 29 09:02:45 2004 Author: ejohnson Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.30 climacs/gui.lisp:1.31 --- climacs/gui.lisp:1.30 Wed Dec 29 08:26:02 2004 +++ climacs/gui.lisp Wed Dec 29 09:02:45 2004 @@ -349,56 +349,36 @@ ;;;;;;;;;;;;;;;;;;;; ;; 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. - -(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))) - +;; Copies an element from a kill-ring to a buffer at the given offset (define-command com-copy-in () - (kr-copy-out (point (win *application-frame*)) *kill-ring*)) + (insert-sequence (point (win *application-frame*)) (kr-copy *kill-ring*))) +;; Cuts an element from a kill-ring out to a buffer at a given offset (define-command com-cut-in () - (kr-cut-out (point (win *application-frame*)) *kill-ring*)) + (insert-sequence (point (win *application-frame*)) (kr-pop *kill-ring*))) +;; Destructively cut a given buffer region into the 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))))) + (if (< (offset point) (offset mark)) + ((lambda (b o1 o2) + (kr-push *kill-ring* (buffer-sequence b o1 o2)) + (delete-buffer-range b o1 (- o2 o1))) + buffer (offset point) (offset mark)) + ((lambda (b o1 o2) + (kr-push *kill-ring* (buffer-sequence b o2 o1)) + (delete-buffer-range b o1 (- o2 o1))) + buffer (offset mark) (offset point))))) + +;; Non destructively copies in buffer region to the kill ring (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))))) + (kr-push *kill-ring* (buffer-sequence buffer off1 off2)) + (kr-push *kill-ring* (buffer-sequence buffer off2 off1)))))) ;; Needs adjustment to be like emacs M-y (define-command com-kr-rotate ()

1 0

[climacs-cvs] CVS update: climacs/gui.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-serv20099 Modified Files: gui.lisp Log Message: Implemented a suggestion from Lawrence Mitchell to avoid saving a buffer that has not need to be saved. Date: Wed Dec 29 08:26:02 2004 Author: rstrandh Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.29 climacs/gui.lisp:1.30 --- climacs/gui.lisp:1.29 Wed Dec 29 08:06:46 2004 +++ climacs/gui.lisp Wed Dec 29 08:26:02 2004 @@ -88,6 +88,9 @@ (let ((frame (make-application-frame 'climacs))) (run-frame-top-level frame))) +(defun display-message (format-string &rest format-args) + (apply #'format *standard-input* format-string format-args)) + (defun display-info (frame pane) (let* ((win (win frame)) (buf (buffer win)) @@ -305,15 +308,19 @@ (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) - (needs-saving buffer) nil))) + (let* ((buffer (buffer (win *application-frame*))) + (filename (or (filename buffer) + (accept 'completable-pathname + :prompt "Save Buffer to File")))) + (if (or (null (filename buffer)) + (needs-saving buffer)) + (progn (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)) + (display-message "Wrote: ~a" (filename buffer))) + (display-message "No changes need to be saved from ~a" (name buffer))) + (setf (needs-saving buffer) nil))) (define-command com-write-buffer () (let ((filename (accept 'completable-pathname @@ -323,7 +330,8 @@ (output-to-stream stream buffer 0 (size buffer))) (setf (filename buffer) filename (name buffer) (pathname-filename filename) - (needs-saving buffer) nil))) + (needs-saving buffer) nil) + (display-message "Wrote: ~a" (filename buffer)))) (define-command com-beginning-of-buffer () (beginning-of-buffer (point (win *application-frame*))))

1 0

[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 28 Dec '04

28 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 28 Dec '04

28 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 28 Dec '04

28 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 28 Dec '04

28 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

[climacs-cvs] CVS update: climacs/buffer.lisp climacs/io.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-serv7130 Modified Files: buffer.lisp io.lisp Log Message: Improved performance of loading a file by employing an new addition to the Flexichain library. You will have to update your Flexichain directory from CVS in order for this to work. Date: Tue Dec 28 07:58:36 2004 Author: rstrandh Index: climacs/buffer.lisp diff -u climacs/buffer.lisp:1.11 climacs/buffer.lisp:1.12 --- climacs/buffer.lisp:1.11 Fri Dec 24 09:21:34 2004 +++ climacs/buffer.lisp Tue Dec 28 07:58:36 2004 @@ -327,9 +327,7 @@ sequence.")) (defmethod insert-buffer-sequence ((buffer standard-buffer) offset sequence) - (loop for elem across sequence - do (insert-buffer-object buffer offset elem) - (incf offset))) + (insert-vector* (slot-value buffer 'contents) offset sequence)) (defgeneric insert-object (mark object) (:documentation "Insert the object at the mark. This function simply calls Index: climacs/io.lisp diff -u climacs/io.lisp:1.2 climacs/io.lisp:1.3 --- climacs/io.lisp:1.2 Thu Dec 23 09:00:33 2004 +++ climacs/io.lisp Tue Dec 28 07:58:36 2004 @@ -23,11 +23,14 @@ (in-package :climacs-base) (defun input-from-stream (stream buffer offset) - (let ((eof-object (cons nil nil))) - (loop for obj = (read-char stream nil eof-object) - until (eq obj eof-object) - do (insert-buffer-object buffer offset obj) - (incf offset)))) + (loop with vec = (make-array 10000 :element-type 'character) + for count = (read-sequence vec stream) + while (plusp count) + do (if (= count (length vec)) + (insert-buffer-sequence buffer offset vec) + (insert-buffer-sequence buffer offset + (subseq vec 0 count))) + (incf offset count))) (defun output-to-stream (stream buffer offset1 offset2) (loop for offset from offset1 below offset2

1 0

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

27 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv29501 Modified Files: syntax.lisp Log Message: Improved cursor redisplay. Thanks to Alastair Bridgewater Date: Mon Dec 27 18:43:09 2004 Author: rstrandh Index: climacs/syntax.lisp diff -u climacs/syntax.lisp:1.9 climacs/syntax.lisp:1.10 --- climacs/syntax.lisp:1.9 Mon Dec 27 17:47:45 2004 +++ climacs/syntax.lisp Mon Dec 27 18:43:08 2004 @@ -163,10 +163,13 @@ (multiple-value-bind (x y) (stream-cursor-position pane) (setf cursor-x x cursor-y y))) - (draw-line* pane - cursor-x (- cursor-y (* 0.2 height)) - cursor-x (+ cursor-y (* 0.8 height)) - :ink +red+)))))) + (maybe-updating-output (pane :all-new t :fixed-position t) + (draw-line* pane + ;; cursors with odd x-positions were invisible + ;; so we strip off the low bit to make them even. + (logand -2 cursor-x) (- cursor-y (* 0.2 height)) + (logand -2 cursor-x) (+ cursor-y (* 0.8 height)) + :ink +red+))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;

1 0

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

27 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv26651 Modified Files: gui.lisp syntax.lisp Log Message: Patch to get incremental redisplay to work. There is still a small problem with the cursor disappearing. Thanks to Alastair Bridgewater. Date: Mon Dec 27 17:47:46 2004 Author: rstrandh Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.20 climacs/gui.lisp:1.21 --- climacs/gui.lisp:1.20 Mon Dec 27 12:32:46 2004 +++ climacs/gui.lisp Mon Dec 27 17:47:45 2004 @@ -48,7 +48,7 @@ (win (make-pane 'climacs-pane :width 900 :height 400 :name 'win -;;; :incremental-redisplay t + :incremental-redisplay t :display-function 'display-win)) (int :interactor :width 900 :height 50 :max-height 50)) (:layouts Index: climacs/syntax.lisp diff -u climacs/syntax.lisp:1.8 climacs/syntax.lisp:1.9 --- climacs/syntax.lisp:1.8 Mon Dec 27 12:32:46 2004 +++ climacs/syntax.lisp Mon Dec 27 17:47:45 2004 @@ -66,11 +66,11 @@ 'string) :stream pane))) -(defmacro maybe-updating-output (stuff &body body) - `(progn ,@body)) +;;(defmacro maybe-updating-output (stuff &body body) +;; `(progn ,@body)) -;; (defmacro maybe-updating-output (stuff &body body) -;; `(updating-output ,stuff ,@body)) + (defmacro maybe-updating-output (stuff &body body) + `(updating-output ,stuff ,@body)) (defmethod display-line (pane (syntax basic-syntax)) (with-slots (saved-offset bot scan cursor-x cursor-y space-width tab-width) syntax @@ -81,12 +81,18 @@ (macrolet ((output-word (&body body) `(let ((contents (compute-contents))) (if (null contents) - (progn ,@body) + ,(if body + `(maybe-updating-output (pane :unique-id (incf id)) + ,@body) + `(progn)) + (progn (maybe-updating-output (pane :unique-id (incf id) :cache-value contents :cache-test #'string=) - (present-contents contents pane syntax) - ,@body))))) + (present-contents contents pane syntax)) + ,(when body + `(maybe-updating-output (pane :unique-id (incf id)) + ,@body))))))) (loop with id = 0 when (mark= scan (point pane)) do (multiple-value-bind (x y) (stream-cursor-position pane)

1 0

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

27 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv11024 Modified Files: base.lisp gui.lisp syntax.lisp Log Message: performance improvements. Date: Mon Dec 27 12:32:46 2004 Author: rstrandh Index: climacs/base.lisp diff -u climacs/base.lisp:1.5 climacs/base.lisp:1.6 --- climacs/base.lisp:1.5 Sun Dec 26 08:18:01 2004 +++ climacs/base.lisp Mon Dec 27 12:32:46 2004 @@ -66,14 +66,12 @@ (end-of-line mark) (delete-region offset mark)))) -(defun buffer-number-of-lines-in-region (mark1 mark2) - "Helper function for number-of-lines-in-region. Moves the position -of mark1 until it is greater than or equal to that of mark2 and counts -Newline characters along the way" - (loop do (end-of-line mark1) - while (mark< mark1 mark2) - count t - do (incf (offset mark1)))) +(defun buffer-number-of-lines-in-region (buffer offset1 offset2) + "Helper function for number-of-lines-in-region. Count newline +characters in the region between offset1 and offset2" + (loop while (< offset1 offset2) + count (eql (buffer-object buffer offset1) #\Newline) + do (incf offset1))) (defgeneric number-of-lines-in-region (mark1 mark2) (:documentation "Return the number of lines (or rather the number of @@ -81,21 +79,13 @@ acceptable to pass an offset in place of one of the marks")) (defmethod number-of-lines-in-region ((mark1 mark) (mark2 mark)) - (buffer-number-of-lines-in-region (clone-mark mark1) mark2)) + (buffer-number-of-lines-in-region (buffer mark1) (offset mark1) (offset mark2))) (defmethod number-of-lines-in-region ((offset integer) (mark mark)) - (buffer-number-of-lines-in-region - (make-instance 'standard-left-sticky-mark - :buffer (buffer mark) - :offset offset) - mark)) + (buffer-number-of-lines-in-region (buffer mark) offset (offset mark))) (defmethod number-of-lines-in-region ((mark mark) (offset integer)) - (buffer-number-of-lines-in-region - (clone-mark mark) - (make-instance 'standard-left-sticky-mark - :buffer (buffer mark) - :offset offset))) + (buffer-number-of-lines-in-region (buffer mark) (offset mark) offset)) (defun constituentp (obj) "A predicate to ensure that an object is a constituent character." Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.19 climacs/gui.lisp:1.20 --- climacs/gui.lisp:1.19 Mon Dec 27 06:58:29 2004 +++ climacs/gui.lisp Mon Dec 27 12:32:46 2004 @@ -48,6 +48,7 @@ (win (make-pane 'climacs-pane :width 900 :height 400 :name 'win +;;; :incremental-redisplay t :display-function 'display-win)) (int :interactor :width 900 :height 50 :max-height 50)) (:layouts @@ -114,7 +115,7 @@ (format *error-output* "~a~%" condition))) (setf gestures '())) (t nil)))) - (redisplay-frame-panes frame :force-p t)))) + (redisplay-frame-panes frame)))) (define-command com-quit () (frame-exit *application-frame*)) Index: climacs/syntax.lisp diff -u climacs/syntax.lisp:1.7 climacs/syntax.lisp:1.8 --- climacs/syntax.lisp:1.7 Mon Dec 27 05:32:44 2004 +++ climacs/syntax.lisp Mon Dec 27 12:32:46 2004 @@ -49,8 +49,7 @@ (let ((buffer (buffer pane))) (with-slots (top bot scan space-width tab-width) syntax (setf top (make-instance 'standard-left-sticky-mark :buffer buffer) - bot (make-instance 'standard-right-sticky-mark :buffer buffer) - scan (make-instance 'standard-left-sticky-mark :buffer buffer)) + bot (make-instance 'standard-right-sticky-mark :buffer buffer)) (let* ((medium (sheet-medium pane)) (style (medium-text-style medium))) (setf space-width (text-style-width style medium) @@ -67,27 +66,39 @@ 'string) :stream pane))) +(defmacro maybe-updating-output (stuff &body body) + `(progn ,@body)) + +;; (defmacro maybe-updating-output (stuff &body body) +;; `(updating-output ,stuff ,@body)) + (defmethod display-line (pane (syntax basic-syntax)) (with-slots (saved-offset bot scan cursor-x cursor-y space-width tab-width) syntax (flet ((compute-contents () (unless (null saved-offset) - (prog1 (coerce (region-to-sequence saved-offset scan) 'string) + (prog1 (coerce (buffer-sequence (buffer pane) saved-offset scan) 'string) (setf saved-offset nil))))) (macrolet ((output-word (&body body) `(let ((contents (compute-contents))) - (present-contents contents pane syntax) - ,@body))) - (loop when (mark= scan (point pane)) + (if (null contents) + (progn ,@body) + (maybe-updating-output (pane :unique-id (incf id) + :cache-value contents + :cache-test #'string=) + (present-contents contents pane syntax) + ,@body))))) + (loop with id = 0 + when (mark= scan (point pane)) do (multiple-value-bind (x y) (stream-cursor-position pane) (setf cursor-x (+ x (if (null saved-offset) 0 - (* space-width (- (offset scan) saved-offset)))) + (* space-width (- scan saved-offset)))) cursor-y y)) when (mark= scan bot) do (output-word) (return) - until (eql (object-after scan) #\Newline) - do (let ((obj (object-after scan))) + 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))) ((eql obj #\Tab) @@ -97,13 +108,12 @@ pane (- tab-width (mod x tab-width)) 0))) ((constituentp obj) (when (null saved-offset) - (setf saved-offset (offset scan)))) + (setf saved-offset scan))) (t (output-word (princ obj pane))))) - (incf (offset scan)) - finally (output-word) - (incf (offset scan)) - (terpri pane)))))) + (incf scan) + finally (output-word (terpri pane)) + (incf scan)))))) (defmethod redisplay-with-syntax (pane (syntax basic-syntax)) (let* ((medium (sheet-medium pane)) @@ -138,9 +148,11 @@ until (end-of-buffer-p bot) do (incf (offset bot)) (end-of-line bot))) - (setf (offset scan) (offset top)) - (loop until (mark= scan bot) - do (display-line pane syntax)) + (setf scan (offset top)) + (loop for id from 0 + until (mark= scan bot) + do (maybe-updating-output (pane :unique-id id) + (display-line pane syntax))) (when (mark= scan (point pane)) (multiple-value-bind (x y) (stream-cursor-position pane) (setf cursor-x x

1 0

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

26 Dec '04

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv26075 Modified Files: gui.lisp Log Message: Key bindings for several function keys. Thanks to Alastair Bridgewater. Date: Mon Dec 27 06:58:32 2004 Author: rstrandh Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.18 climacs/gui.lisp:1.19 --- climacs/gui.lisp:1.18 Mon Dec 27 05:32:43 2004 +++ climacs/gui.lisp Mon Dec 27 06:58:29 2004 @@ -93,7 +93,15 @@ do (setf *current-gesture* (read-gesture :stream *standard-input*)) (when (or (characterp *current-gesture*) (and (typep *current-gesture* 'keyboard-event) - (keyboard-event-character *current-gesture*))) + (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) @@ -131,6 +139,9 @@ (define-command com-delete-object () (delete-range (point (win *application-frame*)))) +(define-command com-backward-delete-object () + (delete-range (point (win *application-frame*)) -1)) + (define-command com-previous-line () (previous-line (point (win *application-frame*)))) @@ -302,6 +313,19 @@ (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) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;

1 0