1%
2% use correct print name for internally mapped names
3%
4
5% The following used to print "~map1" in PSL:
6mkid(map,1);
7
8
9map1
10
11
12off int;
13
14
15
16% Similarly, PSL printed "~spaces2" in the warning message
17spaces2(x);
18
19
20*** spaces2 declared operator
21
22spaces2(x)
23
24
25end;
26
27Tested on x86_64-pc-windows CSL
28Time (counter 1): 0 ms
29
30End of Lisp run after 0.00+0.06 seconds
31real 0.20
32user 0.01
33sys 0.06
34