anchor.diff:    #-CMU
     `(declare (ignorable ,@variables)))
   
  -;; spread version:
  +;;; spread version:
   
   (defun declare-ignorable-form* (&rest variables)
     (declare-ignorable-form variables))
  
positive.code:           (butlast (collect-point))
            (collect-point)))))
  
  ;;
  ;; pretty printing
  ;;
  ;; This is a simplified version of the approach used by David
  ;; Lichteblau for pretty-printing objects in cxml-stp/node.lip
  (defgeneric slots-for-pprint-object (node)
    (:documentation "A generic function that returns the slot names of
    objects to be pretty-printed by simple-pprint-object. Providers of
  
negative.code: 
  
  ;;; Function returns a sequence with indexes where the string should be
  ;;; broken. Line breaks are computed disregarding the newlines (we
  ;;; assume that line may be broken at any place). If a single character
  ;;; doesn't fit in an empty line we assume the break *after* this
  ;;; character to avoid infinite recursion.
  (defun %line-breaks-1 (string width initial-offset margin start end)
    (collect (break-line)
      (macrolet ((split (step-form)
  