(with-accessors ((op op)
                 (reader reader))
    (make-instance 'packet)
  (let ((op (remove-trailing-nulls (convert-to-string op)))
        (reader (remove-trailing-nulls (convert-to-string reader))))
    body))