/[emacs]/emacs/src/lisp.h
ViewVC logotype

Diff of /emacs/src/lisp.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.393 by pj, Fri Nov 2 20:12:06 2001 UTC revision 1.394 by raeburn, Sat Nov 3 21:29:35 2001 UTC
# Line 1422  typedef unsigned char UCHAR; Line 1422  typedef unsigned char UCHAR;
1422  #define CHECK_STRING(x) \  #define CHECK_STRING(x) \
1423    do { if (!STRINGP ((x))) x = wrong_type_argument (Qstringp, (x)); } while (0)    do { if (!STRINGP ((x))) x = wrong_type_argument (Qstringp, (x)); } while (0)
1424    
1425    #define CHECK_STRING_CAR(x) \
1426      do { if (!STRINGP (XCAR (x))) XSETCAR (x, wrong_type_argument (Qstringp, XCAR (x))); } while (0)
1427    
1428  #define CHECK_CONS(x) \  #define CHECK_CONS(x) \
1429    do { if (!CONSP ((x))) x = wrong_type_argument (Qconsp, (x)); } while (0)    do { if (!CONSP ((x))) x = wrong_type_argument (Qconsp, (x)); } while (0)
1430    

Legend:
Removed from v.1.393  
changed lines
  Added in v.1.394

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26