[climacs-cvs] CVS update: climacs/gui.lisp

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