anchor.diff:    (make-rec-let-binding 1 2 3 4 ':left-lcb ':right-lcb))
   
   (define-sw-parser-rule :FORMAL-PARAMETER-SEQUENCE ()
  -  (:repeat+ :FORMAL-PARAMETER ""))
  +  (:repeat* :FORMAL-PARAMETER ""))
   
   ;;; ------------------------------------------------------------------------
   ;;;   IF-EXPRESSION
  
positive.code:    ))
  
  (define-sw-parser-rule :PROPER-SORT-LIST ()
    (:tuple "(" (1 :SORT) "," (2 (:repeat+ :SORT ",")) ")")
    (cons 1 2))
  
  ;;; ------------------------------------------------------------------------
  
  
negative.code:   :documentation "Tuple")
  
  (define-sw-parser-rule :TUPLE-DISPLAY-BODY ()
    (:repeat++ :EXPRESSION ","))
  
  ;;; ------------------------------------------------------------------------
  ;;;  RECORD-DISPLAY
  