Handbook
Glossary
slots>boa ( slots class -- quot )
Vocabulary
constructors
Inputs
slots
an
object
class
an
object
Outputs
quot
an
object
Definition
USING:
accessors
assocs
kernel
sequences
sequences.generalizations
;
IN:
constructors
MACRO::
slots>boa
( slots class -- quot )
class
all-slots-assoc
slots
[
[
[
first
name>>
]
]
dip
[
=
]
curry
compose
find-last
nip
]
with
map
:>
slot-assoc class
all-slots-assoc
[
[
]
[
first
initial>>
]
bi
]
map>alist
:>
default-params slots
length
default-params
length
[
[
narray
slot-assoc
swap
zip
default-params
swap
assoc-union
values
]
curry
]
dip
[
firstn
class
boa
]
curry
compose
;