Author: ctian Date: Thu Oct 18 07:52:35 2007 New Revision: 82 Modified: trunk/mib/print-oid.lisp Log: Fix OID print-object Modified: trunk/mib/print-oid.lisp ============================================================================== --- trunk/mib/print-oid.lisp (original) +++ trunk/mib/print-oid.lisp Thu Oct 18 07:52:35 2007 @@ -13,7 +13,8 @@ (reverse rev-names) (resolve (reverse rev-ids))))) (when *oid-print-short* - (setf part-2 (nthcdr (- (oid-length obj) *oid-print-length*) part-2))) + (setf part-2 (nthcdr (let ((d (- (oid-length obj) *oid-print-length*))) + (if (plusp d) d 0)) part-2))) (format stream "~A~{.~A~}" (car part-2) (cdr part-2))))