anchor.diff:        !.
         ($ "MAKE-" name)))
   
  -(defun %struct?-symbol (name)
  +(defun %struct-predicate-name (name)
     ($ name "?"))
   
   (defun %struct-field-name (field)
  
positive.code:     (%struct-add-def name fields)
      `(progn
         (declare-cps-exception ,name)
         ,(%struct-make name fields options)
         ,(%struct? name)
         ,@(%struct-accessors name fields)
         (defmacro ,($ "WITH-" name) (s &body body)
  		 `(with-struct ,name ,,s
  
negative.code:                      ,argname))]
              fields)))
  
  (defun %struct-constructor (name fields options)
    (with (fname      (%struct-constructor-name name options)
  		 g          (gensym)
           user-init  (%struct-init fields g)
  