anchor.diff:  ;;;;   POSSIBILITY OF SUCH DAMAGE.
   
   (in-package :sycamore)
  +
  +;; (declaim (optimize (speed 3) (safety 0)))
   
   (deftype rope ()
     `(or string symbol rope-node null))
  
positive.code: 
  ;;; Iteration ;;;
  (defstruct rope-iterator
    (i 0)
    (stack nil))
  
  (defun rope-iterator-push (itr rope)
    (declare (type rope rope))
  
negative.code:     string))
  
  (defun rope-subrope (rope start end)
    (declare (type fixnum start end))
    (labels ((helper-string (rope start end)
               (make-array (- end start)
                           :element-type (array-element-type rope)
  