anchor.diff:  		 exp-sub
   		   #'((def vals)
   			    (& no-static
  -				   (return (err "static sublevel argument definition after ~A"
  +				   (return (err "Static sublevel argument definition after ~A."
                                   (list no-static))))
   				(& apply-values? (atom vals.)
  -				   (return (err "sublist expected for argument ~A"
  +				   (return (err "Sublist expected for argument ~A."
                                   (list num))))
                   (? concatenate-sublists?
   				   (nconc (argument-expand-0 fun def. vals.
  
positive.code: 		 exp-check-too-many
             #'((def vals)
  			    (& (not def) vals
  				   (return (err "too many arguments. ~A max, but ~A more given"
                                  (list (length argdefs) (length vals))))))
  
  		 exp-main-non-key
  
negative.code:          err
  		   #'((msg args)
                  (? break-on-errors?
  				   (return (error (+ "~F; In argument expansion for ~A: ~A~%"
                                       "; Argument definition: ~A~%"
                                       "; Given arguments: ~A~%")
                                    (symbol-name fun)
  