[cl-net-snmp-cvs] r82 - trunk/mib

[ctian at common-lisp.net]

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))))