anchor.diff:     (rpc-type-spec identifier |(| rpc-type-spec |)| |=| value |;|
   		   (lambda (a b c d e f g h)
   		     (declare (ignore c e f h))
  -		     (list `(defrpc ,b ,g ,d ,a))))
  +		     (list `(defrpc ,(alexandria:symbolicate 'call- b) ,g ,d ,a))))
      (rpc-def-list rpc-type-spec identifier |(| rpc-type-spec |)| |=| value |;|
   		 (lambda (a b c d e f g h i)
   		   (declare (ignore d f g i))
   		   (append a 
  -			   (list `(defrpc ,c ,h ,e ,b))))))
  +			   (list `(defrpc ,(alexandria:symbolicate 'call- c) ,h ,e ,b))))))
   
     (rpc-type-spec 
      (void (lambda (a) (declare (ignore a)) :void))
  -   type-specifier)
  +   type-specifier
  +   (struct identifier (lambda (a b) (declare (ignore a))
  +			      `(:struct ,b))))
   
     (definition 
       (type-def (lambda (a) a))
  
positive.code:    (type-specifier |*| identifier
  		   (lambda (a b c) (declare (ignore b))
  			   (list c `(:optional ,a))))
     (void (lambda (a) (declare (ignore a)) :void)))
  
    
    (value 
  
negative.code: 
    (type-specifier 
     (unsigned int (lambda (u i) (declare (ignore u i)) :uint32))
     (unsigned (lambda (a) (declare (ignore a)) :uint32))
     (int (lambda (i) (declare (ignore i)) :int32))
     (unsigned hyper (lambda (u h) (declare (ignore u h)) :uint64))
     (hyper (lambda (h) (declare (ignore h)) :int64))
  