| /xsrc/external/mit/xedit/dist/lisp/ |
| regex.c | 179 result = CONS(CONS(FIXNUM(match[0].rm_so),
180 FIXNUM(match[0].rm_eo)), NIL);
190 RPLACD(cons, CONS(CONS(FIXNUM(match[i].rm_so),
191 FIXNUM(match[i].rm_eo)), NIL));
|
| debugger.c | 143 * ENV is the value of lisp__data.stack.base (a FIXNUM)
144 * LEN is the value of lisp__data.env.length (a FIXNUM)
145 * LEX is the value of lisp__data.env.lex (a FIXNUM)
156 * IDX is a FIXNUM, the breakpoint number
158 * TYP is a FIXNUM that must be an integer of enum LispBreakType
159 * HIT is a FIXNUM, with the number of times this breakpoint was
181 DBG = CONS(CONS(name, CONS(arg, CONS(FIXNUM(lisp__data.stack.base),
182 CONS(FIXNUM(lisp__data.env.length),
183 FIXNUM(lisp__data.env.lex))))), DBG);
206 CAR(CDR(CDR(CDR(CAR(obj))))) FIXNUM(counter + 1)
[all...] |
| math.c | 70 obj_zero = FIXNUM(0);
71 obj_one = FIXNUM(1);
94 object = STATIC_ATOM("MOST-POSITIVE-FIXNUM");
95 LispDefconstant(object, FIXNUM(MOST_POSITIVE_FIXNUM), NIL);
98 object = STATIC_ATOM("MOST-NEGATIVE-FIXNUM");
99 LispDefconstant(object, FIXNUM(MOST_NEGATIVE_FIXNUM), NIL);
124 return (FIXNUM(1));
156 return (FIXNUM(0));
210 num.real.data.fixnum = 1;
239 num.real.data.fixnum = 1
[all...] |
| xedit.c | 663 interactive_arguments[1].data.cons.car = FIXNUM(left);
664 interactive_arguments[2].data.cons.car = FIXNUM(right);
1125 offset = FIXNUM(point);
1246 oleft = FIXNUM((long)left);
1258 return (FIXNUM(XawTextGetInsertionPoint(textwindow)));
1267 return (FIXNUM(XawTextSourceScan(XawTextGetSource(textwindow), 0,
1277 return (FIXNUM(XawTextSourceScan(XawTextGetSource(textwindow), 0,
1434 oright = FIXNUM(right);
1495 return (FIXNUM(offset));
1525 return (position != XawTextSearchError ? FIXNUM(position) : NIL)
[all...] |
| string.c | 270 result = FIXNUM(value);
520 result = FIXNUM(character);
689 RETURN(0) = FIXNUM(i);
769 RETURN(0) = FIXNUM(start + bytes_read);
936 LispObj *fixnum; local
974 fixnum = FIXNUM(start1);
977 return ((cmp1 < cmp2) ? fixnum : NIL);
979 return ((cmp1 <= cmp2) ? fixnum : NIL);
981 return (fixnum);
[all...] |
| hash.c | 430 return (FIXNUM(hash_table->data.hash.table->count));
469 return (FIXNUM(hash_table->data.hash.table->num_entries));
|
| helper.c | 772 LispAddVar(symbol, FIXNUM(count));
788 LispSetVar(symbol, FIXNUM(count));
|
| pathname.c | 469 RETURN(0) = FIXNUM(0);
686 RETURN(0) = FIXNUM(end);
|
| core.c | 204 LispDefconstant(Ogensym_counter, FIXNUM(0), NIL);
2113 return (FIXNUM(LispLength(sequence)));
2309 return (FIXNUM(length));
3851 return (offset == -1 ? NIL : function == FIND ? element : FIXNUM(offset));
4695 CAR(sequence->data.array.dim) = FIXNUM(length);
5036 FIXNUM(length - (copy - count));
5364 return (FIXNUM(end2));
5366 return (start1 == end1 ? FIXNUM(start2) : NIL);
5517 return (offset == -1 ? NIL : FIXNUM(offset));
5913 LispDestroy("%s: %s is not a positive fixnum",
[all...] |
| read.c | 62 #define READ_ERROR_FIXNUM() READ_ERROR0("number is not a fixnum")
1933 dim = cons = CONS(FIXNUM(length), NIL);
1937 RPLACD(cons, CONS(FIXNUM(length), NIL));
|
| internal.h | 180 /* fixnum */
181 #define FIXNUM(value) \
188 LispDestroy("%s: %s is not a fixnum", \
194 LispDestroy("%s: %s is not a positive fixnum", \
204 /* values that fit in a machine long int but not in a fixnum */
|
| lisp.c | 2828 return (FIXNUM(integer));
2860 dimension = CONS(FIXNUM(count), NIL);
5330 LispDefconstant(object, FIXNUM(MULTIPLE_VALUES_LIMIT + 1), NIL);
|
| compile.c | 514 count = FIXNUM(1);
|
| bytecode.c | 511 warnings_p = FIXNUM(com.warnings);
2868 long fixnum = 0; local
3183 reg0 = FIXNUM(LispLength(reg0));
3193 if (!FIXNUMP(reg0) || (fixnum = FIXNUM_VALUE(reg0)) < 0)
3194 LispDestroy("LAST: %s is not a positive fixnum",
3198 fixnum = 1;
3204 for (length -= fixnum, reg0 = reg1; length > 0; length--)
3213 if (!FIXNUMP(reg1) || (fixnum = FIXNUM_VALUE(reg1)) < 0)
3214 LispDestroy("NTHCDR: %s is not a positive fixnum",
3219 for (; fixnum > 0; fixnum--)
[all...] |
| mathimp.c | 61 #define NRFI(num) (num)->real.data.fixnum
76 #define NIFI(num) (num)->imag.data.fixnum
87 #define RFI(real) (real)->data.fixnum
125 long fixnum; member in union:_n_real::__anon6631
189 /* fixnum */
301 /* fixnum fixnum */
310 /* fixnum bignum */
318 /* fixnum fixratio */
327 /* fixnum bigratio *
[all...] |
| /xsrc/external/mit/xedit/dist/lisp/modules/ |
| xaw.c | 393 return (FIXNUM(XawTextLastPosition((Widget)(owidget->data.opaque.data))));
410 return (FIXNUM(XawTextGetInsertionPoint((Widget)(owidget->data.opaque.data))));
474 return (FIXNUM(XawTextReplace(widget, left, right, &block)));
510 return (FIXNUM(XawTextSearch(widget, direction, &block)));
|
| x11.c | 648 return (FIXNUM(WidthOfScreen((Screen*)(screen->data.opaque.data))));
665 return (FIXNUM(HeightOfScreen((Screen*)(screen->data.opaque.data))));
|
| xt.c | 653 return (omask == NIL ? FIXNUM(mask) : omask);
|
