}
}
public Node external_quote(Node startAt) throws Exception {
startAt.isGoodArgsCnt(1, 2);
Node res = null;
if (objet == null) {
res = AExtTools.createNewExpr(Node.createSymbol("Object"));
}
else {
if (startAt.size() == 2) {
// contient un vecteur de références
Node vector = startAt.getSubNode(1, Node.TYPE_CLIST);
if (vector.indexOf(objet) >= 0)
throw new InterpreterException(StdErrors.Circulare_reference);
if (!objet.isNodeType(Node.VTYPE_BY_VALUE))
vector.addElement(objet);
res = AExtTools.createNewExpr(
Node.createSymbol("Object"),
Node.createLazy().append(AExtTools.createSExpression(":set!", new Node[] { objet.toSerialized(vector) }))
);
}