(load "unites.lsp") (load "reseau.lsp") (make-instance 'connexion :nom 'a) (make-instance 'connexion :nom 'b) (make-instance 'connexion :nom 'c) (make-instance 'addition :nom 'add1 :b1 'a :b2 'b :bs 'c)