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