Merge pull request #6 from fjl/asdf3

symbol-munger.asd: update for ASDF3
AccelerationNet · Jan 20, 2022 · e96558e · e96558e
2 parents 97598d4 + e5d1c44
commit e96558e
Showing 1 changed file with 19 additions and 28 deletions.
diff --git a/symbol-munger.asd b/symbol-munger.asd
@@ -1,38 +1,29 @@
 ;; -*- lisp -*-
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (unless (find-package :symbol-munger.system)
-    (defpackage :symbol-munger.system
-	(:use :common-lisp :asdf))))
-
-(in-package symbol-munger.system)
-
-(defsystem :symbol-munger
+(defsystem "symbol-munger"
   :description "Functions to convert between the spacing and
   capitalization conventions of various environments"
-  :licence "BSD"
-  :version "0.1"
+  :license "MIT"
+  :version "1.0"
   :components ((:file "symbol-munger"))
-  :depends-on (:iterate :alexandria))
-
-(defsystem :symbol-munger-test
+  :depends-on ("iterate" "alexandria")
+  :in-order-to ((test-op (load-op "symbol-munger/test")))
+  :perform (test-op (op c)
+             (let ((*package* (find-package :symbol-munger-test)))
+               (eval (read-from-string "
+                 (run-tests :package :symbol-munger-test
+                   :name :symbol-munger
+                   :run-contexts #'with-summary-context)")))))
+
+(defsystem "symbol-munger/test"
   :description "Tests for Functions to convert between the spacing and
   capitalization conventions of various environments"
-  :licence "BSD"
-  :version "0.1"
+  :license "MIT"
+  :version "1.0"
   :components ((:module :tests
-			:serial t
-			:components ((:file "symbol-munger"))))
-  :depends-on (:symbol-munger :lisp-unit2))
-
-(defmethod asdf:perform ((o asdf:test-op) (c (eql (find-system :symbol-munger))))
-  (asdf:oos 'asdf:load-op :symbol-munger-test)
-  (let ((*package* (find-package :symbol-munger-test)))
-    (eval (read-from-string "
-             (lisp-unit2:run-tests :package :symbol-munger-test
-               :name :symbol-munger
-               :run-contexts #'with-summary-context)
-      "))))
+                :serial t
+                :components ((:file "symbol-munger"))))
+  :depends-on ("symbol-munger" "lisp-unit2"))
 
 ;; Copyright (c) 2011 Russ Tyndall , Acceleration.net http://www.acceleration.net
 
@@ -53,4 +44,4 @@
 ;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
 ;; LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
 ;; OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
-;; WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+;; WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.