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."))