anchor.diff:  	  (get-last-error)
   	  nil))))
   
  -(socket-bind (open-socket :family :can :type :raw :protocol +can-raw+) (make-can-interface :name "vcan0")) 
    ;; int connect(int sockfd, const struct sockaddr *addr, socklen_t addrlen);
   (defcfun (%connect "connect") :int32
     (fd :int32)
  
positive.code: (defcunion can_address
    (tp (:struct TP)))
    
  (defcstruct sockaddr_can
    (can_family sa_family_t)
    (can_ifindex :int)
    (can_addr (:union can_address)))
  
negative.code: 
  ;; int socket(int socket_family, int socket_type, int protocol);
  (defcfun (%socket "socket") :int32
  v  (family :int32)
    (type :int32)
    (prot :int32))
  
  