annotate nt/installer/Wise/dirs.py @ 4716:dca5bb2adff1

Don't cons with #'mapcar calls where the result is discarded, decide on mapc-internal at compile time if the Common Lisp functionality is not being used. 2009-10-12 Aidan Kehoe <kehoea@parhasard.net> * cl-macs.el (mapc): New compiler macro, use mapc-internal at compile time if we're not using the Common Lisp functionality. * bytecomp.el (byte-compile-mapcar, byte-compile-maplist): New. If the return value of mapcar is being discarded, compile it to a mapc-internal call instead, and warn, because the programmer probably can't rely on always being compiled by an XEmacs that does this. Similarly for maplist and mapl; and use byte-compile-funarg for map, mapl, mapcan, mapcon.
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 12 Oct 2009 17:19:52 +0100
parents a268de273009
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2370
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
1 #Configuration variables
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
2
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
3 #where the source is:
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
4
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
5 source = r"X:\XEmacs-21"
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
6 #where the installed distribution is:
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
7 installed = r"C:\Program Files\XEmacs\xemacs-21.0-b62"
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
8
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
9 #where the (built and installed) packages are
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
10 packages = r"C:\Program Files\XEmacs\xemacs-packages"
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
11
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
12 #where the package source is
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
13 pkg_src = r"X:\xemacs-packages"
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
14
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
15 #Subdirs relative to the base installation directory
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
16 #Everything except packages goes here:
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
17 dst = "XEmacs-21.0-b62"
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
18 #packages go here:
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
19 pkg_dst = "xemacs-packages"
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
20
a268de273009 [xemacs-hg @ 2004-11-05 23:11:42 by ben]
ben
parents: 398
diff changeset
21