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)