[snmp] snmp-system fixes

binghe · Jan 20, 2009 · 0e51a6b · 0e51a6b
1 parent e66d308
commit 0e51a6b
Show file tree

Hide file tree

Showing 9 changed files with 38 additions and 13 deletions.
diff --git a/doc/papers/snmp-query-language.pdf b/doc/papers/snmp-query-language.pdf
diff --git a/snmp-base.asd b/snmp-base.asd
@@ -1,9 +1,11 @@
 ;;;; -*- Mode: Lisp -*-
 ;;;; $Id$
 
-;;;; XX
+(unless (find-package ':snmp-system)
+  (make-package ':snmp-system
+                :use '(:common-lisp :asdf)))
 
-(in-package :asdf)
+(in-package :snmp-system)
 
 #+(and lispworks4 win32)
 (pushnew :mswindows *features*)

diff --git a/snmp-client.asd b/snmp-client.asd
@@ -1,7 +1,11 @@
 ;;;; -*- Mode: Lisp -*-
 ;;;; $Id$
 
-(in-package :asdf)
+(unless (find-package ':snmp-system)
+  (make-package ':snmp-system
+                :use '(:common-lisp :asdf)))
+
+(in-package :snmp-system)
 
 (defsystem snmp-client
   :description "High-level SNMP Client"

diff --git a/snmp-dev.asd b/snmp-dev.asd
@@ -1,7 +1,11 @@
 ;;;; -*- Mode: Lisp -*-
 ;;;; $Id$
 
-(in-package :asdf)
+(unless (find-package ':snmp-system)
+  (make-package ':snmp-system
+                :use '(:common-lisp :asdf)))
+
+(in-package :snmp-system)
 
 #+lispworks
 (defsystem snmp-dev

diff --git a/snmp-mib.asd b/snmp-mib.asd
@@ -1,10 +1,9 @@
 ;;;; -*- Mode: Lisp -*-
 ;;;; $Id$
 
-(in-package :cl-user)
-
-(defpackage snmp-system
-  (:use :common-lisp :asdf))
+(unless (find-package ':snmp-system)
+  (make-package ':snmp-system
+                :use '(:common-lisp :asdf)))
 
 (in-package :snmp-system)
 

diff --git a/snmp-server.asd b/snmp-server.asd
@@ -1,7 +1,11 @@
 ;;;; -*- Mode: Lisp -*-
 ;;;; $Id$
 
-(in-package :asdf)
+(unless (find-package ':snmp-system)
+  (make-package ':snmp-system
+                :use '(:common-lisp :asdf)))
+
+(in-package :snmp-system)
 
 (defsystem snmp-server
   :description "SNMP Server"

diff --git a/snmp-test.asd b/snmp-test.asd
@@ -1,7 +1,11 @@
 ;;;; -*- Mode: Lisp -*-
 ;;;; $Id$
 
-(in-package :asdf)
+(unless (find-package ':snmp-system)
+  (make-package ':snmp-system
+                :use '(:common-lisp :asdf)))
+
+(in-package :snmp-system)
 
 (defsystem snmp-test
   :description "SNMP Package Test"

diff --git a/snmp-ui.asd b/snmp-ui.asd
@@ -1,7 +1,11 @@
 ;;;; -*- Mode: Lisp -*-
 ;;;; $Id$
 
-(in-package :asdf)
+(unless (find-package ':snmp-system)
+  (make-package ':snmp-system
+                :use '(:common-lisp :asdf)))
+
+(in-package :snmp-system)
 
 #+(and lispworks capi)
 (defsystem snmp-ui

diff --git a/snmp.asd b/snmp.asd
@@ -1,12 +1,16 @@
 ;;;; -*- Mode: Lisp -*-
 ;;;; $Id$
 
-(in-package :asdf)
+(unless (find-package ':snmp-system)
+  (make-package ':snmp-system
+                :use '(:common-lisp :asdf)))
+
+(in-package :snmp-system)
 
 (defsystem snmp
   :description "SNMP Collection"
   :author "Chun Tian (binghe) <binghe.lisp@gmail.com>"
-  :version "6.0"
+  :version "6.0-dev"
   :licence "MIT"
   :depends-on (:snmp-client
 	       :snmp-server