anchor.diff:                 (t (rec (object-rope rope))))))
       (rec rope)))
   
  +(declaim (ftype (function (t t) rope) %rope))
   (defun %rope (first second)
     "Construct a rope from FIRST and SECOND.
   FIRST: an object of rope or sequence type
  
positive.code:      (rope-list-cat (loop for rest = list then (cddr rest)
                         while rest
                         collect (%rope (first rest) (second rest)))))))
  
  (defun rope-array-cat (array
                         &key
  
negative.code:             ;; Compare different length ropes by size
              (- n-1 n-2)))))
  
  (declaim (ftype (function (list &key (:symbol-function function)) rope)
                  sexp-rope))
  (defun sexp-rope (sexp &key
                           symbol-function)
    "Construct a rope representing S-Expression SEXP.
  