Handbook
Glossary
code<< ( value object -- )
Vocabulary
accessors
Inputs
value
an
object
object
an
object
Outputs
None
Definition
IN:
accessors
GENERIC:
code<<
( value object -- )
Methods
USING:
accessors
classes.struct
classes.struct.private
glib.ffi
gobject-introspection.standard-types
math
;
M:
GError
code<<
T{
struct-slot-spec
{
name
"code"
}
{
offset 4
}
{
class
fixnum
}
{
initial 0
}
{
type
gint
}
}
write-struct-slot
;
inline
USING:
accessors
geobytes
slots.private
;
M:
city
code<<
9
set-slot
;
inline
USING:
accessors
peg.ebnf.private
slots.private
;
M:
ebnf-action
code<<
3
set-slot
;
inline
USING:
accessors
peg.ebnf.private
slots.private
;
M:
ebnf-semantic
code<<
3
set-slot
;
inline
USING:
accessors
opengl
slots.private
;
M:
gl-error-tuple
code<<
3
set-slot
;
inline
USING:
accessors
compression.huffman.private
kernel
math
slots.private
;
M:
huffman-code
code<<
[
integer>fixnum-strict
]
dip
4
set-slot
;
inline
USING:
accessors
compression.huffman.private
kernel
math
slots
slots.private
;
M:
huffman-tree
code<<
[
dup
[
fixnum?
]
[
t
]
if*
[
maybe{
fixnum
}
bad-slot-value
]
unless
]
dip
2
set-slot
;
inline
USING:
accessors
kernel
slots
slots.private
tools.image
;
M:
image
code<<
[
dup
bytes?
[
\
bytes
bad-slot-value
]
unless
]
dip
6
set-slot
;
inline
USING:
accessors
compression.lzw
slots.private
;
M:
lzw
code<<
5
set-slot
;
inline
USING:
accessors
bson.constants
slots.private
;
M:
mongo-scoped-code
code<<
2
set-slot
;
inline
USING:
accessors
http
slots.private
;
M:
raw-response
code<<
3
set-slot
;
inline
USING:
accessors
geobytes
slots.private
;
M:
region
code<<
5
set-slot
;
inline
USING:
accessors
slots.private
smtp.private
;
M:
response
code<<
2
set-slot
;
inline
USING:
accessors
http
slots.private
;
M:
response
code<<
3
set-slot
;
inline
USING:
accessors
slots.private
xml-rpc
;
M:
rpc-fault
code<<
2
set-slot
;
inline
USING:
accessors
io.encodings.strict
slots.private
;
M:
strict-state
code<<
2
set-slot
;
inline