Fix a typo in asdf-ops. Make version check ready for asdf 3 (if ever).

diff --git a/asdf-dependency-grovel.asd b/asdf-dependency-grovel.asd
index 2899f32..d12a91d 100644 (file)
--- a/asdf-dependency-grovel.asd
+++ b/asdf-dependency-grovel.asd
@@ -5,7 +5,8 @@
 #-asdf2
 (error "ASDF-DEPENDENCY-GROVEL requires ASDF2.")
 
-(unless (version-satisfies (asdf-version) "2.014.8")
+#-asdf3
+(unless (version-satisfies (asdf-version) "2.14.8") ; officially named 2.014.8, ouch.
   (error "Not only is your ASDF version is too old for ASDF-DEPENDENCY-GROVEL,
        you must upgrade it *before* you try to load any system."))
 

diff --git a/asdf-ops.lisp b/asdf-ops.lisp
index fd8f905..02b7136 100644 (file)
--- a/asdf-ops.lisp
+++ b/asdf-ops.lisp
@@ -143,7 +143,7 @@ to the base of the system."
 ;;; XXX: nasty hack.
 ;;; Necessary to support asd files that weren't rewritten to use
 ;;; instrumented-module/instrumented-cl-source-file classes.
-(defmethod :module-default-component-class :around ((c module))
+(defmethod module-default-component-class :around ((c module))
   (let ((what-would-asdf-do (call-next-method)))
     (if (member what-would-asdf-do `(nil cl-source-file
                                          ,(find-class 'cl-source-file)))