anchor.diff:                                   (setf x (subst-one (elt subst k) (first subst) x)))
                                  x)
                                 ((atom x) x)
  -                              ((consp x) 
  +                              ((consp x)
                                  (cons (walk (car x)) (walk (cdr x)))))))
                  `(locally
                     ,@(walk body))))))
  
positive.code:    (text-style       :initarg :text-style
                       :initform *default-text-style*
                       :reader pane-text-style)
           
     (align-x          :initarg :align-x
                       :type (member :left :center :right)
                       :initform :left          ;??
  
negative.code:                  :minor minor
                   :min-minor (min min-minor minor)
                   :max-minor (max max-minor minor)))))
  
        (defun allot-space-xically (srs major)
          (let* ((allot (mapcar #'space-requirement-major srs))
                 (wanted (reduce #'+ allot))
  