annotate lib-src/gnuattach @ 5915:1af53d35dd53

Avoid allocation in #'integer-length; add #'logcount. lisp/ChangeLog addition: 2015-05-29 Aidan Kehoe <kehoea@parhasard.net> * byte-optimize.el (side-effect-free-fns): Add #'integer-length, #'logcount here. * cl-extra.el: * cl-extra.el (integer-length): Update this to avoid allocating memory. * cl-extra.el (logcount): New. Return the number of one bits in INTEGER, if non-negative. Function from Common Lisp. tests/ChangeLog addition: 2015-05-29 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: Test #'integer-length, #'logcount in this file.
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 29 May 2015 17:06:24 +0100
parents 061f4f90f874
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
1 #! /bin/sh
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
2
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
3 # This file is part of XEmacs.
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
4
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
5 # Copyright (C) 1997 Free Software Foundation, Inc.
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
6
5406
061f4f90f874 Convert lib-src/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 163
diff changeset
7 # XEmacs is free software: you can redistribute it and/or modify it
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
8 # under the terms of the GNU General Public License as published by the
5406
061f4f90f874 Convert lib-src/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 163
diff changeset
9 # Free Software Foundation, either version 3 of the License, or (at your
061f4f90f874 Convert lib-src/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 163
diff changeset
10 # option) any later version.
061f4f90f874 Convert lib-src/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 163
diff changeset
11 #
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
12 # XEmacs is distributed in the hope that it will be useful, but WITHOUT
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
13 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
14 # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
15 # for more details.
5406
061f4f90f874 Convert lib-src/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 163
diff changeset
16 #
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
17 # You should have received a copy of the GNU General Public License
5406
061f4f90f874 Convert lib-src/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 163
diff changeset
18 # along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
163
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
19
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
20 echo "$0: Please use \`gnuclient -nw' instead." >&2
0132846995bd Import from CVS: tag r20-3b8
cvs
parents:
diff changeset
21 exit 1