[climacs-cvs] CVS update: climacs/buffer.lisp
Robert Strandh
rstrandh at common-lisp.net
Wed Jan 5 21:39:26 UTC 2005
Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv24863
Modified Files:
buffer.lisp
Log Message:
Fixed some code that was not great, and modified the name of a
reader function of the no-such-offset condition that made a bug
in CMUCL manifest itself and made it impossible to run Climacs.
Date: Wed Jan 5 22:39:24 2005
Author: rstrandh
Index: climacs/buffer.lisp
diff -u climacs/buffer.lisp:1.15 climacs/buffer.lisp:1.16
--- climacs/buffer.lisp:1.15 Wed Jan 5 00:07:34 2005
+++ climacs/buffer.lisp Wed Jan 5 22:39:23 2005
@@ -76,10 +76,10 @@
(cursor :reader cursor))
(:documentation "A mixin class used in the initialization of a mark."))
-(defmethod offset (mark)
+(defmethod offset ((mark mark-mixin))
(cursor-pos (cursor mark)))
-(defmethod (setf offset) (new-offset mark)
+(defmethod (setf offset) (new-offset (mark mark-mixin))
(assert (<= 0 new-offset (size (buffer mark))) ()
(make-condition 'no-such-offset :offset new-offset))
(setf (cursor-pos (cursor mark)) new-offset))
@@ -129,9 +129,9 @@
(make-instance type :buffer (buffer mark) :offset (offset mark)))
(define-condition no-such-offset (simple-error)
- ((offset :reader offset :initarg :offset))
+ ((offset :reader condition-offset :initarg :offset))
(:report (lambda (condition stream)
- (format stream "No such offset: ~a" (offset condition))))
+ (format stream "No such offset: ~a" (condition-offset condition))))
(:documentation "This condition is signaled whenever an attempt is made at an operation
that is before the beginning or after the end of the buffer."))
More information about the Climacs-cvs
mailing list