xemacs-beta: move-if-change annotate

annotate move-if-change @ 5227:fbd1485af104

Move #'reduce to fns.c from cl-seq.el. src/ChangeLog addition: 2010-06-06 Aidan Kehoe <kehoea@parhasard.net> * fns.c (Freduce): Move this here from cl-seq.el, avoiding the need to cons. This has been tested using Paul Dietz' test suite, and everything applicable passes, with the exception that the ALLOW-OTHER-KEYS-NIL Common Lisp issue (functions with &key must *always* accept :allow-other-keys nil) hasn't been implemented. lisp/ChangeLog addition: 2010-06-06 Aidan Kehoe <kehoea@parhasard.net> * cl-seq.el (reduce): Move this to fns.c.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Sun, 06 Jun 2010 13:24:31 +0100
parents	376386a54a3c
children

rev	line source
0 376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	1 #!/bin/sh
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	2 if
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	3 test -r $2
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	4 then
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	5 if
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	6 cmp $1 $2 > /dev/null
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	7 then
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	8 echo $2 is unchanged
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	9 rm -f $1
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	10 else
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	11 mv -f $1 $2
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	12 fi
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	13 else
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	14 mv -f $1 $2
376386a54a3c Import from CVS: tag r19-14 cvs parents: diff changeset	15 fi

Mercurial > hg > xemacs-beta

annotate move-if-change @ 5227:fbd1485af104