Skip to content
Snippets Groups Projects
Commit 9af9d261 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix improper selfward-operation status of dll-op (found by testing with CMUCL).

Work around spurious warning on LispWorks.
parent 13e8beaf
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
......@@ -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."))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment