X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-grovel%2Fsb-grovel.asd;h=b32b1212c6979a47528977a187a346138802861d;hb=5f891793819e3cd714c443c9a0a7223b4fb13dd0;hp=b1ade293fc678af2573bfb8bb5a9e3f9a6bec309;hpb=6ffb09605de7f990332aee146d8f69ba4cc907c9;p=sbcl.git

diff --git a/contrib/sb-grovel/sb-grovel.asd b/contrib/sb-grovel/sb-grovel.asd
index b1ade29..b32b121 100644
--- a/contrib/sb-grovel/sb-grovel.asd
+++ b/contrib/sb-grovel/sb-grovel.asd
@@ -1,20 +1,13 @@
 ;;; -*-  Lisp -*-
 
-(defpackage #:sb-grovel-system (:use #:asdf #:cl))
-(in-package #:sb-grovel-system)
-
 (defsystem sb-grovel
-    :version "0.01"
-    #+sb-building-contrib :pathname
-    #+sb-building-contrib "SYS:CONTRIB;SB-GROVEL;"
-    :components ((:file "defpackage")
-		 (:file "def-to-lisp" :depends-on ("defpackage"))
-		 (:file "foreign-glue" :depends-on ("defpackage"))
-		 (:file "array-data" :depends-on ("defpackage"))))
-
-(defmethod perform :after ((o load-op) (c (eql (find-system :sb-grovel))))
-  (provide 'sb-grovel))
-
-(defmethod perform ((o test-op) (c (eql (find-system :sb-grovel))))
-  t)
+  :version "0.2"
+  :depends-on (asdf)
+  #+sb-building-contrib :pathname
+  #+sb-building-contrib #p"SYS:CONTRIB;SB-GROVEL;"
+  :components ((:file "defpackage")
+               (:file "def-to-lisp" :depends-on ("defpackage"))
+               (:file "foreign-glue" :depends-on ("defpackage")))
+  :perform (load-op :after (o c) (provide 'sb-grovel))
+  :perform (test-op (o c) t))