anchor.diff:                 (return i))))
         (incf i))))
   
  +
   (defun lisp-indent-number (str &optional (possible-keyword-p t))
  -  " Returns the indentation number for the keyword if it is *lisp-keywords*. If it 
  +  " Returns the indentation number for the keyword if it is *lisp-keywords*. If it
    starts with 'def', it's indent value is 0. if it has a semi-colon preceding it, the
    rest of the string is tested recursively to see whether it is a keyword."
     (or (cdr (assoc str *lisp-keywords* :test #'string-equal))
  
positive.code:                         (t (+ (- j i) 2))))))))) ;; assumes that the first argument starts after the space at the end of the token
      (values left-indent num-aligned-subforms (1- j)))) ;; j stores where we last stopped processing
  
  (defun num-leading-spaces (str)
    (let ((n (length str))
          (i 0))
  
negative.code:     (print (past-next-token "thishash" 0 20)) ==> ERROR!!
     if not found, it returns n.
  |#
  (defun past-next-token (str i n)
    (let ((escapep nil))
      (loop
        (when (>= i n) (return i))
  