Update of /project/movitz/cvsroot/movitz/losp/lib/net In directory common-lisp.net:/tmp/cvs-serv26590

Modified Files: ip4.lisp Log Message: Define constants etc first, then include files that might depend on them.

Date: Wed Nov 24 17:26:29 2004 Author: ffjeld

Index: movitz/losp/lib/net/ip4.lisp diff -u movitz/losp/lib/net/ip4.lisp:1.12 movitz/losp/lib/net/ip4.lisp:1.13 --- movitz/losp/lib/net/ip4.lisp:1.12 Wed Nov 24 17:21:57 2004 +++ movitz/losp/lib/net/ip4.lisp Wed Nov 24 17:26:29 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Apr 30 13:52:57 2003 ;;;; -;;;; $Id: ip4.lisp,v 1.12 2004/11/24 16:21:57 ffjeld Exp $ +;;;; $Id: ip4.lisp,v 1.13 2004/11/24 16:26:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -42,9 +42,6 @@ :endian :big :type ,type))

-(require :lib/net/arp) -(require :lib/net/tftp) - (defclass ip4-stack () ((interface :initarg :interface @@ -74,6 +71,9 @@ (12 source) (16 destination) (20 options)) + +(require :lib/net/arp) +(require :lib/net/tftp)

(defun ip-protocol (packet &optional (start 14)) (ip4-ref packet start +ip-header-protocol+ :unsigned-byte8))