[cl-net-snmp-cvs] r36 - in trunk: . asn.1

[ctian at common-lisp.net]

Author: ctian
Date: Fri Sep 14 12:54:23 2007
New Revision: 36

Modified:
   trunk/asn.1/mib.lisp
   trunk/net-snmp.asd
Log:
Add oid, mib into asdf

Modified: trunk/asn.1/mib.lisp
==============================================================================
--- trunk/asn.1/mib.lisp	(original)
+++ trunk/asn.1/mib.lisp	Fri Sep 14 12:54:23 2007
@@ -35,8 +35,8 @@
 (defun insert-node (node parent-name)
   (let ((parent-node (find-node parent-name)))
     (if parent-node
-        (if (find-if #'(lambda (x) (= (tree-id node)
-                                      (tree-id x)))
+        (if (find-if #'(lambda (x)
+                         (= (tree-id node) (tree-id x)))
                      (tree-nodes parent-node))
             (error "id conflict")
           (nconc parent-node (list node)))
@@ -44,3 +44,4 @@
 
 (defmethod print-object ((obj object-id) stream)
   (format stream "[~{.~A~}]" (oid-subids obj)))
+

Modified: trunk/net-snmp.asd
==============================================================================
--- trunk/net-snmp.asd	(original)
+++ trunk/net-snmp.asd	Fri Sep 14 12:54:23 2007
@@ -13,7 +13,9 @@
                :ironclad
                :net-telent-date)
   :components ((:module asn.1 :components ((:file "package")
-                                           (:file "ber" :depends-on ("package"))))
+                                           (:file "ber" :depends-on ("package"))
+                                           (:file "oid" :depends-on ("ber"))
+                                           (:file "mib" :depends-on ("oid"))))
                (:file "package")
                (:file "constants" :depends-on ("package"))
 	       (:file "typedefs" :depends-on ("constants"))