anchor.diff:  
   (defclass status-parameter (parameter-info) ())
   
  -(defclass numeric-parameter (parameter-info) ())
  +(defmethod size-parameter-p ((parameter parameter-info))
  +  nil)
  +
  +(defclass numeric-parameter (parameter-info)
  +  ((size-parameter-p :initform nil :accessor size-parameter-p)))
   (defclass ubyte-parameter (numeric-parameter) ())
   (defclass uword-parameter (numeric-parameter) ())
   (defclass ulong-parameter (numeric-parameter) ())
  
positive.code:       (fill vector 0 :start (+ start actual) :end end)))
  
    (:method ((param uword-parameter) val vector)
      (write-uword-to-command vector val (pi-offset param)))
  
    (:method ((param ulong-parameter) val vector)
      (write-ulong-to-command vector val (pi-offset param)))
  
    (:method ((param data-parameter/fixed-length) val vector)
  
negative.code: ;;;; command definition macros 
  ;;;;
  
  (defun argnames-from-args (args)
    ;; hack: collect the argument names, expect for data size parameters
    (let ((sizes (loop
  		  :for spec :in (cdr args) :by #'cddr
  		  :for size = (getf (cddr spec) :size)
  		  :when (and size (symbolp size))
  		  :collect size)))
      (loop
         :for key :in args :by #'cddr
         :unless (member key sizes)
         :collect key)))
  
  ;; TRANSLATING THE FORMS INTO COMMANDS
  (defun create-nxt-command-form (name type-code command-code &rest args)
    (let ((argnames (argnames-from-args args)))
      `(progn
         (setf (fp-request (ensure-frame-pair ',name ',type-code ',command-code))
  	     (parse-frame-info ',args))
  