anchor.diff:  (defun mark-length (buffer)
     (declare (type buffer buffer))
     "Returns the current amount of characters in the marked piece of the buffer"
  -  (- (buffer-index buffer) (buffer-mark buffer)))
  +  (the fixnum (- (buffer-index buffer) (buffer-mark buffer))))
   
   (defun skip-to (buffer last-char)
     "Skips characters until <char> has been found.  <char> is the last char which is skipped
  
positive.code:     (loop while (find (current-char buffer) +space-characters+ :test #'eql)
         do (next-char buffer))))
  (define-compiler-macro skip-spaces (&whole whole buffer)
    (when +do-skip-spaces+
      whole))
  
  
negative.code:   "Builds a tree from a range of lists and a function to compare its elements by"
    (when lists
      (loop for first-elt in (find-first-elts lists)
  	collect (let ((matching-lists (loop for list in lists when (and (first list) (eql (the character first-elt) (the character (first list))))
  					 collect (rest list))))
  		  (list first-elt
  			(loop for list in matching-lists unless list return T) ;; T shows that this is an end-result
  