diff --git a/action.lisp b/action.lisp
index a66e63f557673de81c008bf53ae74d787c9be229..df648d55009877977a12f6cbbbc90fe90f7dc872 100644
--- a/action.lisp
+++ b/action.lisp
@@ -19,8 +19,14 @@
    #:action-path #:find-action #:stamp #:done-p))
 (in-package :asdf/action)
 
-(eval-when (#-lispworks :compile-toplevel :load-toplevel :execute)
-  (deftype action () '(cons operation component))) ;; a step to be performed while building
+(eval-when (#-lispworks :compile-toplevel :load-toplevel :execute) ;; LispWorks issues spurious warning
+  (deftype action () '(cons operation component)) ;; a step to be performed while building
+
+  (deftype operation-designator ()
+    ;; an operation designates itself,
+    ;; nil designates a context-dependent current operation, and
+    ;; class-name or class designates an instance of the designated class.
+    '(or operation null symbol class)))
 
 (with-upgradability ()
   (defgeneric traverse-actions (actions &key &allow-other-keys))
@@ -127,11 +133,6 @@ You can put together sentences using this phrase."))
 ;;;; upward-operation, downward-operation, sideway-operation, selfward-operation
 ;; These together handle actions that propagate along the component hierarchy or operation universe.
 (with-upgradability ()
-  (deftype operation-designator ()
-    ;; an operation, nil designates a context-dependent current operation,
-    ;; class-name or class designates an instance of the designated class.
-    '(or operation null symbol class))
-
   (defclass downward-operation (operation)
     ((downward-operation
       :initform nil :initarg :downward-operation :reader downward-operation
diff --git a/bundle.lisp b/bundle.lisp
index 92d56477640d998c0a4c8459ab0227a0b31a3602..b5a7cb4cbcb870609a228df74f67bd9286ae869f 100644
--- a/bundle.lisp
+++ b/bundle.lisp
@@ -56,7 +56,7 @@
     (:documentation #+(or ecl mkcl) "compile the system and produce linkable (.a) library for it."
      #-(or ecl mkcl) "just compile the system"))
 
-  (defclass dll-op (bundle-compile-op selfward-operation no-ld-flags-op)
+  (defclass dll-op (bundle-compile-op no-ld-flags-op)
     ((bundle-type :initform :dll))
     (:documentation "compile the system and produce dynamic (.so/.dll) library for it."))