Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
4035870e
Commit
4035870e
authored
Jan 09, 2014
by
Francois-Rene Rideau
Browse files
Remove the attractive nuisance of :initarg for :allocation :class slots.
parent
b1a615f3
Changes
1
Hide whitespace changes
Inline
Side-by-side
action.lisp
View file @
4035870e
...
...
@@ -135,7 +135,7 @@ You can put together sentences using this phrase."))
(
with-upgradability
()
(
defclass
downward-operation
(
operation
)
((
downward-operation
:initform
nil
:initarg
:downward-operation
:reader
downward-operation
:initform
nil
:reader
downward-operation
:type
operation-designator
:allocation
:class
))
(
:documentation
"A DOWNWARD-OPERATION's dependencies propagate down the component hierarchy.
I.e., if O is a DOWNWARD-OPERATION and its DOWNWARD-OPERATION slot designates operation D, then
...
...
@@ -148,7 +148,7 @@ children of the MODULE must have been loaded with LOAD-OP (resp. compiled with C
(
defclass
upward-operation
(
operation
)
((
upward-operation
:initform
nil
:initarg
:upward-operation
:reader
upward-operation
:initform
nil
:reader
upward-operation
:type
operation-designator
:allocation
:class
))
(
:documentation
"An UPWARD-OPERATION has dependencies that propagate up the component hierarchy.
I.e., if O is an instance of UPWARD-OPERATION, and its UPWARD-OPERATION slot designates operation U,
...
...
@@ -164,7 +164,7 @@ must first be prepared for loading or compiling with PREPARE-OP."))
(
defclass
sideway-operation
(
operation
)
((
sideway-operation
:initform
nil
:initarg
:sideway-operation
:reader
sideway-operation
:initform
nil
:reader
sideway-operation
:type
operation-designator
:allocation
:class
))
(
:documentation
"A SIDEWAY-OPERATION has dependencies that propagate \"sideway\" to siblings
that a component depends on. I.e. if O is a SIDEWAY-OPERATION, and its SIDEWAY-OPERATION slot
...
...
@@ -180,8 +180,7 @@ each of its declared dependencies must first be loaded as by LOAD-OP."))
(
defclass
selfward-operation
(
operation
)
((
selfward-operation
:initarg
:selfward-operation
;; NB: no :initform -- if an operation depends on others,
;; which must be explicitly specified.
;; NB: no :initform -- if an operation depends on others, it must explicitly specify which
:type
(
or
operation-designator
list
)
:reader
selfward-operation
:allocation
:class
))
(
:documentation
"A SELFWARD-OPERATION depends on another operation on the same component.
I.e., if O is a SELFWARD-OPERATION, and its SELFWARD-OPERATION designates a list of operations L,
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment