anchor.diff:      (when (typep param 'data-parameter/specified-length)
         (let ((size (pi-size-parameter param)))
   	(when (symbolp size)
  -	  (setf (pi-size-parameter param)
  -		(or (find size params :key #'pi-name)
  -		    (error "referenced size parameter not found: ~A"
  -			   size))))))))
  +	  (let ((q (or (find size params :key #'pi-name)
  +		       (error "referenced size parameter not found: ~A"
  +			      size))))
  +	    (setf (pi-size-parameter param) q)
  +	    (setf (size-parameter-p q) t)))))))
   
   (defmethod initialize-instance :after ((instance frame-info) &key)
     (link-size-parameters! (fi-parameters instance))
  -  (check-offsets (fi-parameters instance)))
  +  (check-offsets (fi-parameters instance))
  +  (setf (fi-explicit-parameters instance)
  +	(remove-if #'size-parameter-p (fi-parameters instance))))
   
   ;;;;
   ;;;; PARAMETER-INFO
  
positive.code: ;;;; command definition macros 
  ;;;;
  
  ;; TRANSLATING THE FORMS INTO COMMANDS
  (defun create-nxt-command-form (name type-code command-code &rest args)
    (let ((argnames (loop :for key :in args :by #'cddr :collect key)))
      `(progn
         (setf (fp-request (ensure-frame-pair ',name ',type-code ',command-code))
  	     (parse-frame-info ',args))
  
negative.code: 
  (defclass frame-info ()
    ((n-static-bytes :initform nil        :accessor %n-static-bytes)
     (parameters     :initarg :parameters :accessor fi-parameters)
     (explicit-parameters                 :accessor fi-explicit-parameters)))
  
  (defun parse-frame-info (specs)
    (let ((parameters (parse-parameter-specs specs)))
  