Lines Matching defs:quote
471 {LispMacro, Lisp_Quote, "quote object"},
2260 object = object->data.quote;
2412 object = object->data.quote;
2739 LispObj *quote = LispNew(object, NIL);
2741 quote->type = LispFunctionQuote_t;
2742 quote->data.quote = object;
2744 return (quote);
2876 LispObj *quote = LispNew(object, NIL);
2878 quote->type = LispQuote_t;
2879 quote->data.quote = object;
2881 return (quote);
2890 backquote->data.quote = object;
3772 LispEvalBackquoteObject(LispObj *argument, int list, int quote)
3788 --quote;
3789 if (quote < 0)
3797 * don't call LispEval or quote argument will be reset */
3798 result = LispEvalBackquoteObject(object, 0, quote);
3800 else if (quote == 0)
3804 if (quote != 0)
3809 object = argument->data.quote;
3811 result = LispEvalBackquote(object, quote + 1);
3812 if (quote)
3816 else if (XQUOTEP(argument) && POINTERP(argument->data.quote) &&
3817 (XCOMMAP(argument->data.quote) ||
3818 XBACKQUOTEP(argument->data.quote) ||
3819 XCONSP(argument->data.quote))) {
3820 /* ensures `',sym to be the same as `(quote ,sym) */
3821 object = argument->data.quote;
3823 result = LispEvalBackquote(argument->data.quote, quote);
3831 LispEvalBackquote(LispObj *argument, int quote)
3837 return (LispEvalBackquoteObject(argument, 0, quote));
3868 object = LispEvalBackquote(object, quote);
3870 object = LispEvalBackquoteObject(object, insert, quote);
4330 if (!QUOTEP(symbol) || !SYMBOLP(val = symbol->data.quote)) {
4424 if (QUOTEP(val) && atom == ATOMID(val->data.quote)) {
4488 else if (QUOTEP(val) && SYMBOLP(val->data.quote)) {
4489 Atom_id atom = ATOMID(val->data.quote);
4681 LispObj quote;
4683 quote.type = LispQuote_t;
4684 quote.data.quote = function;
4685 cons.data.cons.car = "e;
4756 result = object->data.quote;
4759 result = object->data.quote;
4768 result = LispEvalBackquote(object->data.quote, 1);
4869 LispObj *store, *code, *expression, *result, quote;
4875 quote.type = LispQuote_t;
4876 quote.data.quote = value;
4877 LispDoAddVar(CAR(store), "e);
4902 LispObj *place, *body, *result, quote;
4920 quote.type = LispQuote_t;
4921 quote.data.quote = value;
4924 result = APPLY2(Osetf, place, "e);