;;; -*- Lisp -*-
-(defpackage #:sb-grovel-system (:use #:asdf #:cl))
-(in-package #:sb-grovel-system)
-
(defsystem sb-grovel
- :version "0.01"
- :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))