Mercurial > emacs

comparison src/lisp.h @ 45375:7f3255507201

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp.h (LISP_MAKE_RVALUE): Delete disabled version, making XCAR and XCDR real rvalues in most configurations.
author Ken Raeburn <raeburn@raeburn.org>
date Sun, 19 May 2002 23:14:07 +0000
parents 34382d9145d7
children 13e858104d3b
comparison
equal deleted inserted replaced
45374:030fb28e7ec2 45375:7f3255507201
626 #define XCDR_AS_LVALUE(c) (XCONS ((c))->cdr_) 626 #define XCDR_AS_LVALUE(c) (XCONS ((c))->cdr_)
627 #else 627 #else
628 #define XCAR_AS_LVALUE(c) (XCONS ((c))->car) 628 #define XCAR_AS_LVALUE(c) (XCONS ((c))->car)
629 #define XCDR_AS_LVALUE(c) (XCONS ((c))->cdr) 629 #define XCDR_AS_LVALUE(c) (XCONS ((c))->cdr)
630 #endif 630 #endif
631
632 /* Okay, we're not quite ready to turn this on yet. A few files still
633 need to be updated and tested. */
634 #undef LISP_MAKE_RVALUE
635 #define LISP_MAKE_RVALUE(x) (x)
636 631
637 /* Use these from normal code. */ 632 /* Use these from normal code. */
638 #define XCAR(c) LISP_MAKE_RVALUE(XCAR_AS_LVALUE(c)) 633 #define XCAR(c) LISP_MAKE_RVALUE(XCAR_AS_LVALUE(c))
639 #define XCDR(c) LISP_MAKE_RVALUE(XCDR_AS_LVALUE(c)) 634 #define XCDR(c) LISP_MAKE_RVALUE(XCDR_AS_LVALUE(c))
640 635