[movitz-cvs] CVS update: movitz/losp/lib/net/ethernet.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	ethernet.lisp 
Log Message:
Cleaned up constants a bit.

Date: Thu Dec  9 15:18:37 2004
Author: ffjeld

Index: movitz/losp/lib/net/ethernet.lisp
diff -u movitz/losp/lib/net/ethernet.lisp:1.6 movitz/losp/lib/net/ethernet.lisp:1.7
--- movitz/losp/lib/net/ethernet.lisp:1.6	Wed Nov 24 11:07:11 2004
+++ movitz/losp/lib/net/ethernet.lisp	Thu Dec  9 15:18:37 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Sep 17 15:25:31 2002
 ;;;;                
-;;;; $Id: ethernet.lisp,v 1.6 2004/11/24 10:07:11 ffjeld Exp $
+;;;; $Id: ethernet.lisp,v 1.7 2004/12/09 14:18:37 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -47,7 +47,20 @@
 	   #:+destination-mac+
 	   #:+max-ethernet-frame-size+
 	   #:+min-ethernet-frame-size+
-	   #:+broadcast-address+))
+	   #:+broadcast-address+
+
+	   #:+ether-type-ip4+
+	   #:+ether-type-chaosnet+
+	   #:+ether-type-arp+
+	   #:+ether-type-symbolics+
+	   #:+ether-type-rarp+
+	   #:+ether-type-snmp+
+	   #:+ether-type-ip6+
+	   #:+ether-type-ppp+
+	   #:+ether-type-mswin-heartbeat+
+	   #:+ether-type-loopback+
+
+	   ))
 	   
 (in-package muerte.ethernet)
 
@@ -114,20 +127,18 @@
 
 ;;;
 
-(define-named-integer ether-type (:export-constants t)
-  ;; http://www.iana.org/assignments/ethernet-numbers
-  ;; These are just a random selection, really.
-  (#x0800 ip4)
-  (#x0804 chaosnet)
-  (#x0806 arp)
-  (#x081c symbolics)
-  (#x0835 rarp)
-  (#x814c snmp)
-  (#x86dd ip6)
-  (#x880b ppp)
-  ;; http://www.microsoft.com/technet/treeview/default.asp?url=/TechNet/prodtechnol/windows2000serv/deploy/confeat/nlbovw.asp
-  (#x886f mswin-heartbeat)
-  (#x9000 loopback))
+(defconstant +ether-type-ip4+ #x0800)
+(defconstant +ether-type-chaosnet+ #x0804)
+(defconstant +ether-type-arp+ #x0806)
+(defconstant +ether-type-symbolics+ #x081c)
+(defconstant +ether-type-rarp+ #x0835)
+(defconstant +ether-type-snmp+ #x814c)
+(defconstant +ether-type-ip6+ #x86dd)
+(defconstant +ether-type-ppp+ #x880b)
+;; http://www.microsoft.com/technet/treeview/default.asp?
+;;        url=/TechNet/prodtechnol/windows2000serv/deploy/confeat/nlbovw.asp
+(defconstant +ether-type-mswin-heartbeat+ #x886f)
+(defconstant +ether-type-loopback+ #x9000)
 
 ;;;