Mercurial > hg > xemacs-beta
view src/m/arm.h @ 4694:2ac296807b88
Don't needlessly intern symbols, #'function-arglist, #'cl-function-arglist
2009-09-20 Aidan Kehoe <kehoea@parhasard.net>
* help.el (function-arglist):
Show the double-quotes in the sample output, correctly.
Bind print-gensym to nil, now we're using uninterned symbols.
Don't #'mapcar + #'intern to create uppercase symbols, use #'loop
and #'make-symbol instead.
* cl-macs.el (cl-upcase-arg):
Don't intern the upcased symbols we're using for cosmetic reasons.
Trust #'true-list-p in #'cl-function-arglist to detect
circularity.
(cl-function-arglist): Bind print-gensym to nil, now we're
printing uninterned symbols and would prefer to avoid the gensym
syntax.
(cl-transform-lambda): Only add the Common Lisp lambda list:
argument information when that differs frmo the normal argument
information.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 20 Sep 2009 21:41:22 +0100 |
parents | 4542b72c005e |
children | aa5ed11f473b |
line wrap: on
line source
/* Machine description file for digital/intel arm/strongarm Copyright (C) 1987 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: FSF 19.31. */ /* Now define a symbol for the cpu type, if your compiler does not define it automatically: Ones defined so far include vax, m68000, ns16000, pyramid, orion, tahoe, APOLLO and many others */ #ifndef arm #define arm #endif /* crt0.c, if it is used, should use the i386-bsd style of entry. with no extra dummy args. On USG and XENIX, NO_REMAP says this isn't used. */ /* Mly 16-Jan-96 16:38:32: this is part of a prototype -- same bug present in other m*.h files */ #define CRT0_DUMMIES int bogus_fp, /* crt0.c should define a symbol `start' and do .globl with a dot. */ #define DOT_GLOBAL_START #ifdef USG5_4 /* Older USG systems do not support the load average. */ /* Data type of load average, as read out of kmem. */ #define LOAD_AVE_TYPE long /* Convert that into an integer that is 100 for a load average of 1.0 */ /* This is totally uncalibrated. */ /* FSHIFT and FSCALE are defined in param.h, but are required by LOAD_AVE_CVT, so they need to be defined here. */ #ifndef FSHIFT #define FSHIFT 8 /* bits to right of fixed binary point */ #endif #ifndef FSCALE #define FSCALE (1<<FSHIFT) #endif #define LOAD_AVE_CVT(x) ((int) (((double) (x)) * 100.0 / FSCALE)) #endif /* this brings in alloca() if we're using cc */ #ifdef USG #define NO_REMAP #define TEXT_START 0 #endif /* USG */ #ifdef WIN32_NATIVE #define DATA_START get_data_start () #endif #ifdef linux /* libc-linux/sysdeps/linux/i386/ulimit.c says that due to shared library, */ /* we cannot get the maximum address for brk */ #define ULIMIT_BREAK_VALUE (32*1024*1024) #define SEGMENT_MASK ((SEGMENT_SIZE)-1) #endif