06657 |
TOTEMPOB
|
( ob → ob' )
Copies object to TEMPOB and returns
pointer to the new copy.
|
62C69 |
TOTEMPSWAP
|
( ob1 ob2 → ob2' ob1 )
Does TOTEMPOB then SWAP.
|
37B44 |
CKREF
|
( ob → ob' )
If object is in TEMPOB, is not embedded in a
composite and not referenced, does nothing.
Else copies it to TEMPOB and returns the
copy.
|
63F7E |
SWAPCKREF
|
( ob1 ob2 → ob2 ob1' )
Does SWAP then <REF>CKREF.
|
06B4E |
INTEMNOTREF?
|
( ob → ob flag )
If the object is in TEMPOB area, is not
embedded in a composite and is not
referenced, returns the object and TRUE,
otherwise returns the object and FALSE.
|
06B3E |
(FREEINTEMP?)
|
( ob → ob flag )
Tests if object is in TEMPOB area and not in
a composite.
|
01E0E8 |
~INTEMPOB?
|
( ob → ob flag )
|
065D9 |
(PTRREFD?)
|
( ob → ob flag )
Tests if object is referenced.
|
065E5 |
(REFERENCED?)
|
( ob → ob flag )
Tests if object is referenced or in
composite.
|
06BC2 |
(NOTREF?)
|
( ob → ob flag )
Tests if object is not referenced or in
composite. ( :: REFERENCED? NOT ; )
|
06DDE |
(>TOPTEMP)
|
( ob → ob' )
Moves object to top ob TEMPOB area. Does
not garbage collection.
|
064BD |
(TOTEMPOBADJ)
|
( ob → ob ob' )
Makes a standalone copy by moving
references to a new copy.
|
064D6 |
(DOADJ1)
|
( ob1 ob2 → ob1 ob' )
Moves references from ob2 to ob1 (ob1 in
TEMPOB area).
|
064E2 |
(DOADJ)
|
( ob1 ob2 → ob1 ob' )
Moves references from ob2 to ob1 (ob1 in
TEMPOB area). References to body of ob2 are
moved too.
|