xemacs-beta: src/general.c annotate

annotate src/general.c @ 5570:6c76f5b7e2e3

Be more careful still in #'cl-defsubst-expand. lisp/ChangeLog addition: 2011-09-11 Aidan Kehoe <kehoea@parhasard.net> * cl-macs.el (cl-defsubst-expand): Be more careful still here, make sure that any references to variables in BODY don't access those values in the enclosing scope when that would be inappropriate. Add some documentation of a potential reasonable approach to avoiding the problems with our (non-Common Lisp-conformant) #'symbol-macrolet.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Sun, 11 Sep 2011 16:05:05 +0100
parents	6506fcb40fcf
children

rev	line source
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1 /* Commonly-used symbols
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2 Copyright (C) 1995 Sun Microsystems.
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	3 Copyright (C) 1995, 1996, 2000 Ben Wing.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 1632 diff changeset	7 XEmacs is free software: you can redistribute it and/or modify it
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	8 under the terms of the GNU General Public License as published by the
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 1632 diff changeset	9 Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 1632 diff changeset	10 option) any later version.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	11
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	15 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	16
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	17 You should have received a copy of the GNU General Public License
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 1632 diff changeset	18 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	19
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	20 /* Synched up with: Not in FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	21
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	22 /* See general-slots.h.
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	23 */
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	24
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	25 #include <config.h>
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	26 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	27
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	28 #define SYMBOL(fou) Lisp_Object fou
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 442 diff changeset	29 #define SYMBOL_MODULE_API(fou) Lisp_Object fou
5320 31be2a3d121d Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL() Aidan Kehoe <kehoea@parhasard.net> parents: 1632 diff changeset	30 #define SYMBOL_KEYWORD(la_cle_est_folle) Lisp_Object la_cle_est_folle
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	31 #define SYMBOL_GENERAL(tout_le_monde, est_fou) Lisp_Object tout_le_monde
5320 31be2a3d121d Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL() Aidan Kehoe <kehoea@parhasard.net> parents: 1632 diff changeset	32 #define SYMBOL_KEYWORD_GENERAL(ponle, la_clave) Lisp_Object ponle
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	33
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	34 #include "general-slots.h"
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	35
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	36 #undef SYMBOL
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 442 diff changeset	37 #undef SYMBOL_MODULE_API
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	38 #undef SYMBOL_KEYWORD
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	39 #undef SYMBOL_GENERAL
5320 31be2a3d121d Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL() Aidan Kehoe <kehoea@parhasard.net> parents: 1632 diff changeset	40 #undef SYMBOL_KEYWORD_GENERAL
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	41
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	42 void
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	43 syms_of_general (void)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	44 {
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	45 #define SYMBOL(loco) DEFSYMBOL (loco)
1632 64eaceca611d [xemacs-hg @ 2003-08-19 02:07:03 by james] james parents: 442 diff changeset	46 #define SYMBOL_MODULE_API(loco) DEFSYMBOL (loco)
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	47 #define SYMBOL_KEYWORD(meshugeneh) DEFKEYWORD (meshugeneh)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	48 #define SYMBOL_GENERAL(vachement, fou) defsymbol (&vachement, fou)
5320 31be2a3d121d Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL() Aidan Kehoe <kehoea@parhasard.net> parents: 1632 diff changeset	49 #define SYMBOL_KEYWORD_GENERAL(bescheuert, gaaanz_bescheuert) \
31be2a3d121d Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL() Aidan Kehoe <kehoea@parhasard.net> parents: 1632 diff changeset	50 defkeyword (&bescheuert, gaaanz_bescheuert)
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	51
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	52 #include "general-slots.h"
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	53
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	54 #undef SYMBOL
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	55 #undef SYMBOL_KEYWORD
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	56 #undef SYMBOL_GENERAL
5320 31be2a3d121d Move Qcount, Q_default, Q_test to general-slots.h; add SYMBOL_KEYWORD_GENERAL() Aidan Kehoe <kehoea@parhasard.net> parents: 1632 diff changeset	57 #undef SYMBOL_KEYWORD_GENERAL
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	58 }

Mercurial > hg > xemacs-beta

annotate src/general.c @ 5570:6c76f5b7e2e3