Mercurial > emacs
comparison src/lisp.h @ 695:e3fac20d3015
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 07 Jun 1992 02:36:01 +0000 |
| parents | 70b112526394 |
| children | 86cb5db0b6c3 |
comparison
equal
deleted
inserted
replaced
| 694:714b8017cc6b | 695:e3fac20d3015 |
|---|---|
| 569 { if (XTYPE (x) != Lisp_Float) \ | 569 { if (XTYPE (x) != Lisp_Float) \ |
| 570 x = wrong_type_argument (Qfloatp, (x)); } | 570 x = wrong_type_argument (Qfloatp, (x)); } |
| 571 | 571 |
| 572 #define CHECK_NUMBER_OR_FLOAT(x, i) \ | 572 #define CHECK_NUMBER_OR_FLOAT(x, i) \ |
| 573 { if (XTYPE (x) != Lisp_Float && XTYPE (x) != Lisp_Int) \ | 573 { if (XTYPE (x) != Lisp_Float && XTYPE (x) != Lisp_Int) \ |
| 574 x = wrong_type_argument (Qinteger_or_floatp, (x)); } | 574 x = wrong_type_argument (Qnumberp, (x)); } |
| 575 | 575 |
| 576 #define CHECK_NUMBER_OR_FLOAT_COERCE_MARKER(x, i) \ | 576 #define CHECK_NUMBER_OR_FLOAT_COERCE_MARKER(x, i) \ |
| 577 { if (XTYPE (x) == Lisp_Marker) XFASTINT (x) = marker_position (x); \ | 577 { if (XTYPE (x) == Lisp_Marker) XFASTINT (x) = marker_position (x); \ |
| 578 else if (XTYPE (x) != Lisp_Int && XTYPE (x) != Lisp_Float) \ | 578 else if (XTYPE (x) != Lisp_Int && XTYPE (x) != Lisp_Float) \ |
| 579 x = wrong_type_argument (Qinteger_or_float_or_marker_p, (x)); } | 579 x = wrong_type_argument (Qnumber_or_marker_p, (x)); } |
| 580 | 580 |
| 581 #else /* Not LISP_FLOAT_TYPE */ | 581 #else /* Not LISP_FLOAT_TYPE */ |
| 582 | 582 |
| 583 #define CHECK_NUMBER_OR_FLOAT CHECK_NUMBER | 583 #define CHECK_NUMBER_OR_FLOAT CHECK_NUMBER |
| 584 | 584 |