[climacs-cvs] CVS update: climacs/gui.lisp
Elliott Johnson
ejohnson at common-lisp.net
Wed Dec 29 05:49:07 UTC 2004
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 at labri.fr)
-;;; (c) copyright 2004 by
-;;; Elliott Johnson (ejohnson at 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
More information about the Climacs-cvs
mailing list