anchor.diff:       (let* ((id (can-packet-id buffer))
   	    (payload (can-packet-data buffer))
   	    (payload-size (length payload)))
  -       (with-foreign-object (frame '(:struct can_frame))  
  -	 (setf (foreign-slot-value frame '(:struct can_frame) 'can_id) id)
  -	 (setf (foreign-slot-value frame '(:struct can_frame) 'can_dlc) payload-size)
  -	 (let ((ptr (foreign-slot-pointer frame '(:struct can_frame) 'data)))	       
  +       (with-foreign-object (frame '(:struct can-frame))  
  +	 (setf (foreign-slot-value frame '(:struct can-frame) 'can_id) id)
  +	 (setf (foreign-slot-value frame '(:struct can-frame) 'can_dlc) payload-size)
  +	 (let ((ptr (foreign-slot-pointer frame '(:struct can-frame) 'data)))	       
   	   (lisp-array-to-foreign payload ptr `(:array :uint8 ,payload-size)))
  -	 (let ((sts (%write fd frame (foreign-type-size '(:struct can_frame)))))
  +	 (let ((sts (%write fd frame (foreign-type-size '(:struct can-frame)))))
   	   (if (= sts +socket-error+)
   	       (get-last-error)
   	       sts)))))))
  
positive.code: 	  (lisp-string-to-foreign n (foreign-slot-value ifr '(:struct ifreq) 'name) (1+ n-size))
  	  (%ioctl fd +siocgifindex+ ifr)
  	  (with-foreign-object (sockaddr '(:struct sockaddr-can))
  	    (setf (foreign-slot-value sockaddr '(:struct sockaddr-can) 'can_family) +pf_can+)
  	    (let* ((ifrdata (foreign-slot-value ifr '(:struct ifreq) 'data))
  		   (index (foreign-slot-value ifrdata '(:union ifreq-data) 'ifindex)))      
  	      (setf (foreign-slot-value sockaddr '(:struct sockaddr-can) 'can_ifindex) index))
  
negative.code: 	   (t
  	    sts)))))
      (can-packet
       (with-foreign-object (frame '(:struct can-frame))
         (%read fd frame (foreign-type-size '(:struct can-frame)))
         (with-foreign-slots ((can_id can_dlc data) frame (:struct can-frame))
  	 (let* ((ptr-data (foreign-slot-pointer frame '(:struct can-frame) 'data))
  		(data (foreign-array-to-lisp ptr-data `(:array :int8 ,can_dlc))))
  	   (setf (can-packet-id buffer) can_id
  		 (can-packet-data buffer) data)
  