[cl-net-snmp-cvs] r42 - trunk/asn.1

[ctian at common-lisp.net]

Author: ctian
Date: Sun Sep 16 14:13:20 2007
New Revision: 42

Modified:
   trunk/asn.1/ber.lisp
   trunk/asn.1/oid.lisp
Log:
Bugfix: (fixnum 0 ..) cannot use.

Modified: trunk/asn.1/ber.lisp
==============================================================================
--- trunk/asn.1/ber.lisp	(original)
+++ trunk/asn.1/ber.lisp	Sun Sep 16 14:13:20 2007
@@ -35,9 +35,9 @@
 
 (defun ber-encode-type (class p/c tags)
   "Encode BER Type Domain"
-  (declare (type (fixnum 0 3) class)
-           (type (fixnum 0 1) p/c)
-           (type (fixnum 0) tags))
+  (declare (type (integer 0 3) class)
+           (type (integer 0 1) p/c)
+           (type (integer 0) tags))
   (assert (and (<= 0 class 3) (<= 0 p/c 1) (<= 0 tags)))
   (labels ((iter (n p acc)
              (if (zerop n) acc
@@ -84,7 +84,7 @@
 
 (defun ber-encode-length (length)
   "Encode BER Length Domain"
-  (declare (type (fixnum 0) length))
+  (declare (type (integer 0) length))
   (assert (<= 0 length (1- (expt 2 1008))))
   (labels ((iter (n acc l)
              (if (zerop n) (cons (mod (logior 128 l) 256) acc)

Modified: trunk/asn.1/oid.lisp
==============================================================================
--- trunk/asn.1/oid.lisp	(original)
+++ trunk/asn.1/oid.lisp	Sun Sep 16 14:13:20 2007
@@ -46,7 +46,7 @@
 ;;;       the Lisp-SNMP Project: http://www.cliki.net/Lisp-SNMP
 
 (deftype oid-component () '(unsigned-byte 29))
-(deftype oid-component-length () '(fixnum 0 4))
+(deftype oid-component-length () '(integer 0 4))
 
 (defun list-prefix-p (list1 list2)
   (if (endp list1)