Update of /project/gsharp/cvsroot/gsharp/Flexichain/Doc In directory common-lisp.net:/tmp/cvs-serv16372

Modified Files: flexichain.tex Log Message: Added the (setf cursor-pos) generic function.

Removed the move> and move< functions from the protocol, because they can be replaced by incf and decf on cursor-pos.

Date: Mon Sep 6 13:18:42 2004 Author: rstrandh

Index: gsharp/Flexichain/Doc/flexichain.tex diff -u gsharp/Flexichain/Doc/flexichain.tex:1.2 gsharp/Flexichain/Doc/flexichain.tex:1.3 --- gsharp/Flexichain/Doc/flexichain.tex:1.2 Fri Aug 6 17:47:36 2004 +++ gsharp/Flexichain/Doc/flexichain.tex Mon Sep 6 13:18:42 2004 @@ -581,10 +581,21 @@ Create a cursor that is initially at the same location as the one given as argument.

+\Deferror {flexi-position-error} + +This condition is signaled whenever an attempt is made to use position +outside of the range of valid positions. + \Defgeneric {cursor-pos} {cursor}

Return the position of the cursor.

+\Defgeneric {(setf cursor-pos)} {position cursor} + +Set the position of the cursor. If the new position of the cursor is +before the first position or after the last position of the chain, the +condition \cl{flexi-position-error} is signaled. + \Defgeneric {at-beginning-p} {cursor}

Return true if the cursor is at the beginning of the chain (i.e., if @@ -606,18 +617,6 @@

This condition is signaled whenever an attempt is made to move a cursor beyond the end of the chain. - -\Defgeneric {move>} {cursor \optional (n 1)} - -More the cursor forward n positions. If the cursor is at a position -greater than $l - n$ where $l$ is the length of the chain, then the -condition \cl{at-end} will be signaled. - -\Defgeneric {move<} {cursor \optional (n 1)} - -More the cursor backward n positions. If the cursor is at a -position less than n, then the condition \cl{at-beginning} will be -signaled.

\Deferror {incompatible-object-type}