1 " lisp_subr_tv_ generated by compile_lisp_subr_tv from
2 " >spec>on>lisp_dir>staging>lisp_subr_tv_.macro
3
4
5 use tv
6 star_flt: zero 261632,-1
7
8 tra <lisp_utils_>|times_flo
9 zero
10 zero .star_flt-lisp_subr_tv_,1
11 use Names
12 .star_flt: acc "*$"
13
14
15 use tv
16 star_: zero 261632,-1
17
18 tra <lisp_utils_>|times_fix
19 zero
20 zero .star_-lisp_subr_tv_,1
21 use Names
22 .star_: acc "*"
23
24
25 use tv
26 star_array: zero 261635,-1
27 tsx6 pl1_lsubr_fixup
28 tra <lisp_array_fcns_>|star_array
29 zero .star_array-lisp_subr_tv_,1
30 use Names
31 .star_array: acc "*array"
32
33
34 use tv
35 star_dif: zero 1026,-1
36 tsx6 type_1_subr
37 tra <lisp_bignums_>|difference
38 zero .star_dif-lisp_subr_tv_,1
39 use Names
40 .star_dif: acc "*dif"
41
42
43 use tv
44 star_function: zero 0,-1
45 tsx6 type_1_subr
46 tra <lisp_>|stfunction
47 zero .star_function-lisp_subr_tv_,2
48 use Names
49 .star_function: acc "*function"
50
51
52 use tv
53 star_quo: zero 1026,-1
54 tsx6 type_1_subr
55 tra <lisp_bignums_>|quotient
56 zero .star_quo-lisp_subr_tv_,1
57 use Names
58 .star_quo: acc "*quo"
59
60
61 use tv
62 star_rearray: zero 261633,-1
63 tsx6 pl1_lsubr_fixup
64 tra <lisp_array_fcns_>|star_rearray
65 zero .star_rearray-lisp_subr_tv_,1
66 use Names
67 .star_rearray: acc "*rearray"
68
69
70 use tv
71 star_rset: zero 1,-1
72 tsx6 pl1_fixup
73 tra <lisp_status_fns_>|rset
74 zero .star_rset-lisp_subr_tv_,0
75 use Names
76 .star_rset: acc "*rset"
77
78
79 use tv
80 star_sstatus: zero 261633,-1
81 tsx6 pl1_lsubr_fixup
82 tra <lisp_status_fns_>|sstatus_
83 zero .star_sstatus-lisp_subr_tv_,1
84 use Names
85 .star_sstatus: acc "*sstatus"
86
87
88 use tv
89 star_status: zero 261633,-1
90 tsx6 pl1_lsubr_fixup
91 tra <lisp_status_fns_>|status_
92 zero .star_status-lisp_subr_tv_,1
93 use Names
94 .star_status: acc "*status"
95
96
97 use tv
98 pls_flt: zero 261632,-1
99
100 tra <lisp_utils_>|plus_flo
101 zero
102 zero .pls_flt-lisp_subr_tv_,1
103 use Names
104 .pls_flt: acc "+$"
105
106
107 use tv
108 pls_: zero 261632,-1
109
110 tra <lisp_utils_>|plus_fix
111 zero
112 zero .pls_-lisp_subr_tv_,1
113 use Names
114 .pls_: acc "+"
115
116
117 use tv
118 mns_flt: zero 261632,-1
119
120 tra <lisp_utils_>|diff_flo
121 zero
122 zero .mns_flt-lisp_subr_tv_,1
123 use Names
124 .mns_flt: acc "-$"
125
126
127 use tv
128 mns_: zero 261632,-1
129
130 tra <lisp_utils_>|diff_fix
131 zero
132 zero .mns_-lisp_subr_tv_,1
133 use Names
134 .mns_: acc "-"
135
136
137 use tv
138 div_flt: zero 261632,-1
139
140 tra <lisp_utils_>|quot_flo
141 zero
142 zero .div_flt-lisp_subr_tv_,1
143 use Names
144 .div_flt: acc "/$"
145
146
147 use tv
148 div_: zero 261632,-1
149
150 tra <lisp_utils_>|quot_fix
151 zero
152 zero .div_-lisp_subr_tv_,1
153 use Names
154 .div_: acc "/"
155
156
157 use tv
158 one_pls_flt: zero 1,-1
159
160 tra <lisp_utils_>|add1_flo
161 zero
162 zero .one_pls_flt-lisp_subr_tv_,0
163 use Names
164 .one_pls_flt: acc "1+$"
165
166
167 use tv
168 one_pls: zero 1,-1
169
170 tra <lisp_utils_>|add1_fix
171 zero
172 zero .one_pls-lisp_subr_tv_,0
173 use Names
174 .one_pls: acc "1+"
175
176
177 use tv
178 one_mns_flt: zero 1,-1
179
180 tra <lisp_utils_>|sub1_flo
181 zero
182 zero .one_mns_flt-lisp_subr_tv_,0
183 use Names
184 .one_mns_flt: acc "1-$"
185
186
187 use tv
188 one_mns: zero 1,-1
189
190 tra <lisp_utils_>|sub1_fix
191 zero
192 zero .one_mns-lisp_subr_tv_,0
193 use Names
194 .one_mns: acc "1-"
195
196
197 use tv
198 ls_: zero 2,-1
199
200 tra <lisp_utils_>|ls_
201 zero
202 zero .ls_-lisp_subr_tv_,0
203 use Names
204 .ls_: acc "<"
205
206
207 use tv
208 eqn_: zero 2,-1
209
210 tra <lisp_utils_>|eql_
211 zero
212 zero .eqn_-lisp_subr_tv_,0
213 use Names
214 .eqn_: acc "="
215
216
217 use tv
218 gt_: zero 2,-1
219
220 tra <lisp_utils_>|gt_
221 zero
222 zero .gt_-lisp_subr_tv_,0
223 use Names
224 .gt_: acc ">"
225
226
227 use tv
228 CtoI: zero 1,-1
229 tsx6 pl1_fixup
230 tra <lisp_char_fns_>|CtoI
231 zero .CtoI-lisp_subr_tv_,0
232 use Names
233 .CtoI: acc "CtoI"
234
235
236 use tv
237 ItoC: zero 1,-1
238 tsx6 pl1_fixup
239 tra <lisp_char_fns_>|ItoC
240 zero .ItoC-lisp_subr_tv_,0
241 use Names
242 .ItoC: acc "ItoC"
243
244
245 use tv
246 rem_: zero 2,-1
247 tsx6 type_1_subr
248 tra <lisp_bignums_>|remainder
249 zero .rem_-lisp_subr_tv_,0
250 use Names
251 .rem_: acc "\"
252
253
254 use tv
255 abs: zero 1,-1
256 tsx6 type_1_subr
257 tra <lisp_bignums_>|abs
258 zero .abs-lisp_subr_tv_,0
259 use Names
260 .abs: acc "abs"
261
262
263 use tv
264 add1: zero 1,-1
265 tsx6 type_1_subr
266 tra <lisp_bignums_>|add1
267 zero .add1-lisp_subr_tv_,0
268 use Names
269 .add1: acc "add1"
270
271
272 use tv
273 alarmclock: zero 2,-1
274 tsx6 pl1_fixup
275 tra <lisp_fault_handler_>|alarmclock
276 zero .alarmclock-lisp_subr_tv_,0
277 use Names
278 .alarmclock: acc "alarmclock"
279
280
281 use tv
282 allfiles: zero 1,-1
283 tsx6 pl1_fixup
284 tra <lisp_io_fns_>|allfiles
285 zero .allfiles-lisp_subr_tv_,0
286 use Names
287 .allfiles: acc "allfiles"
288
289
290 use tv
291 and: zero 0,-1
292 tsx6 type_1_subr
293 tra <lisp_quick_fcns_>|and
294 zero .and-lisp_subr_tv_,2
295 use Names
296 .and: acc "and"
297
298
299 use tv
300 append: zero 261632,-1
301 tsx6 type_1_subr
302 tra <lisp_alloc_>|append
303 zero .append-lisp_subr_tv_,1
304 use Names
305 .append: acc "append"
306
307
308 use tv
309 apply: zero 1538,-1
310 tsx6 type_1_subr
311 tra <lisp_>|apply_
312 zero .apply-lisp_subr_tv_,1
313 use Names
314 .apply: acc "apply"
315
316
317 use tv
318 arg: zero 1,-1
319 tsx6 type_1_subr
320 tra <lisp_>|arg
321 zero .arg-lisp_subr_tv_,0
322 use Names
323 .arg: acc "arg"
324
325
326 use tv
327 args: zero 1025,-1
328 tsx6 pl1_lsubr_fixup
329 tra <lisp_defsubr_>|args
330 zero .args-lisp_subr_tv_,1
331 use Names
332 .args: acc "args"
333
334
335 use tv
336 array: zero 0,-1
337 tsx6 pl1_fixup
338 tra <lisp_array_fcns_>|array
339 zero .array-lisp_subr_tv_,2
340 use Names
341 .array: acc "array"
342
343
344 use tv
345 arraydims: zero 1,-1
346 tsx6 pl1_fixup
347 tra <lisp_array_fcns_>|arraydims
348 zero .arraydims-lisp_subr_tv_,0
349 use Names
350 .arraydims: acc "arraydims"
351
352
353 use tv
354 ascii: zero 1,-1
355 tsx6 type_1_subr
356 tra <lisp_reader_alm_>|ascii_alm
357 zero .ascii-lisp_subr_tv_,0
358 use Names
359 .ascii: acc "ascii"
360
361
362 use tv
363 assoc: zero 2,-1
364
365 tra <lisp_quick_fcns_>|assoc
366 zero
367 zero .assoc-lisp_subr_tv_,0
368 use Names
369 .assoc: acc "assoc"
370
371
372 use tv
373 assq: zero 2,-1
374
375 tra <lisp_quick_fcns_>|assq
376 zero
377 zero .assq-lisp_subr_tv_,0
378 use Names
379 .assq: acc "assq"
380
381
382 use tv
383 atan: zero 1025,-1
384 tsx6 pl1_lsubr_fixup
385 tra <lisp_trig_>|atan
386 zero .atan-lisp_subr_tv_,1
387 use Names
388 .atan: acc "atan"
389
390
391 use tv
392 atom: zero 1,-1
393
394 tra <lisp_quick_fcns_>|atom
395 zero
396 zero .atom-lisp_subr_tv_,0
397 use Names
398 .atom: acc "atom"
399
400
401 use tv
402 baktrace1: zero 1024,-1
403 tsx6 pl1_lsubr_fixup
404 tra <lisp_baktrace_>|baktrace1
405 zero .baktrace1-lisp_subr_tv_,1
406 use Names
407 .baktrace1: acc "baktrace1"
408
409
410 use tv
411 baktrace2: zero 1024,-1
412 tsx6 pl1_lsubr_fixup
413 tra <lisp_baktrace_>|baktrace2
414 zero .baktrace2-lisp_subr_tv_,1
415 use Names
416 .baktrace2: acc "baktrace2"
417
418
419 use tv
420 baktrace: zero 1024,-1
421 tsx6 pl1_lsubr_fixup
422 tra <lisp_baktrace_>|baktrace
423 zero .baktrace-lisp_subr_tv_,1
424 use Names
425 .baktrace: acc "baktrace"
426
427
428 use tv
429 bigp: zero 1,-1
430
431 tra <lisp_quick_fcns_>|bigp
432 zero
433 zero .bigp-lisp_subr_tv_,0
434 use Names
435 .bigp: acc "bigp"
436
437
438 use tv
439 bltarray: zero 2,-1
440 tsx6 pl1_fixup
441 tra <lisp_array_fcns_>|bltarray
442 zero .bltarray-lisp_subr_tv_,0
443 use Names
444 .bltarray: acc "bltarray"
445
446
447 use tv
448 boole: zero 261635,-1
449
450 tra <lisp_utils_>|boole
451 zero
452 zero .boole-lisp_subr_tv_,1
453 use Names
454 .boole: acc "boole"
455
456
457 use tv
458 boundp: zero 1,-1
459 tsx6 type_1_subr
460 tra <lisp_alloc_>|boundp
461 zero .boundp-lisp_subr_tv_,0
462 use Names
463 .boundp: acc "boundp"
464
465
466 use tv
467 break: zero 0,-1
468 tsx6 pl1_fixup
469 tra <lisp_prog_fns_>|break
470 zero .break-lisp_subr_tv_,2
471 use Names
472 .break: acc "break"
473
474
475 use tv
476 caaaar: zero 1,-1
477 tsx6 type_1_subr
478 tra <lisp_car_cdrs_>|caaaar
479 zero .caaaar-lisp_subr_tv_,0
480 use Names
481 .caaaar: acc "caaaar"
482
483
484 use tv
485 caaadr: zero 1,-1
486 tsx6 type_1_subr
487 tra <lisp_car_cdrs_>|caaadr
488 zero .caaadr-lisp_subr_tv_,0
489 use Names
490 .caaadr: acc "caaadr"
491
492
493 use tv
494 caaar: zero 1,-1
495 tsx6 type_1_subr
496 tra <lisp_car_cdrs_>|caaar
497 zero .caaar-lisp_subr_tv_,0
498 use Names
499 .caaar: acc "caaar"
500
501
502 use tv
503 caadar: zero 1,-1
504 tsx6 type_1_subr
505 tra <lisp_car_cdrs_>|caadar
506 zero .caadar-lisp_subr_tv_,0
507 use Names
508 .caadar: acc "caadar"
509
510
511 use tv
512 caaddr: zero 1,-1
513 tsx6 type_1_subr
514 tra <lisp_car_cdrs_>|caaddr
515 zero .caaddr-lisp_subr_tv_,0
516 use Names
517 .caaddr: acc "caaddr"
518
519
520 use tv
521 caadr: zero 1,-1
522 tsx6 type_1_subr
523 tra <lisp_car_cdrs_>|caadr
524 zero .caadr-lisp_subr_tv_,0
525 use Names
526 .caadr: acc "caadr"
527
528
529 use tv
530 caar: zero 1,-1
531 tsx6 type_1_subr
532 tra <lisp_car_cdrs_>|caar
533 zero .caar-lisp_subr_tv_,0
534 use Names
535 .caar: acc "caar"
536
537
538 use tv
539 cadaar: zero 1,-1
540 tsx6 type_1_subr
541 tra <lisp_car_cdrs_>|cadaar
542 zero .cadaar-lisp_subr_tv_,0
543 use Names
544 .cadaar: acc "cadaar"
545
546
547 use tv
548 cadadr: zero 1,-1
549 tsx6 type_1_subr
550 tra <lisp_car_cdrs_>|cadadr
551 zero .cadadr-lisp_subr_tv_,0
552 use Names
553 .cadadr: acc "cadadr"
554
555
556 use tv
557 cadar: zero 1,-1
558 tsx6 type_1_subr
559 tra <lisp_car_cdrs_>|cadar
560 zero .cadar-lisp_subr_tv_,0
561 use Names
562 .cadar: acc "cadar"
563
564
565 use tv
566 caddar: zero 1,-1
567 tsx6 type_1_subr
568 tra <lisp_car_cdrs_>|caddar
569 zero .caddar-lisp_subr_tv_,0
570 use Names
571 .caddar: acc "caddar"
572
573
574 use tv
575 cadddr: zero 1,-1
576 tsx6 type_1_subr
577 tra <lisp_car_cdrs_>|cadddr
578 zero .cadddr-lisp_subr_tv_,0
579 use Names
580 .cadddr: acc "cadddr"
581
582
583 use tv
584 caddr: zero 1,-1
585 tsx6 type_1_subr
586 tra <lisp_car_cdrs_>|caddr
587 zero .caddr-lisp_subr_tv_,0
588 use Names
589 .caddr: acc "caddr"
590
591
592 use tv
593 cadr: zero 1,-1
594 tsx6 type_1_subr
595 tra <lisp_car_cdrs_>|cadr
596 zero .cadr-lisp_subr_tv_,0
597 use Names
598 .cadr: acc "cadr"
599
600
601 use tv
602 car: zero 1,-1
603
604 tra <lisp_car_cdrs_>|car
605 zero
606 zero .car-lisp_subr_tv_,0
607 use Names
608 .car: acc "car"
609
610
611 use tv
612 catch: zero 0,-1
613 tsx6 pl1_fixup
614 tra <lisp_prog_fns_>|catch
615 zero .catch-lisp_subr_tv_,2
616 use Names
617 .catch: acc "catch"
618
619
620 use tv
621 catenate: zero 261632,-1
622 tsx6 pl1_lsubr_fixup
623 tra <lisp_char_fns_>|catenate
624 zero .catenate-lisp_subr_tv_,1
625 use Names
626 .catenate: acc "catenate"
627
628
629 use tv
630 cdaaar: zero 1,-1
631 tsx6 type_1_subr
632 tra <lisp_car_cdrs_>|cdaaar
633 zero .cdaaar-lisp_subr_tv_,0
634 use Names
635 .cdaaar: acc "cdaaar"
636
637
638 use tv
639 cdaadr: zero 1,-1
640 tsx6 type_1_subr
641 tra <lisp_car_cdrs_>|cdaadr
642 zero .cdaadr-lisp_subr_tv_,0
643 use Names
644 .cdaadr: acc "cdaadr"
645
646
647 use tv
648 cdaar: zero 1,-1
649 tsx6 type_1_subr
650 tra <lisp_car_cdrs_>|cdaar
651 zero .cdaar-lisp_subr_tv_,0
652 use Names
653 .cdaar: acc "cdaar"
654
655
656 use tv
657 cdadar: zero 1,-1
658 tsx6 type_1_subr
659 tra <lisp_car_cdrs_>|cdadar
660 zero .cdadar-lisp_subr_tv_,0
661 use Names
662 .cdadar: acc "cdadar"
663
664
665 use tv
666 cdaddr: zero 1,-1
667 tsx6 type_1_subr
668 tra <lisp_car_cdrs_>|cdaddr
669 zero .cdaddr-lisp_subr_tv_,0
670 use Names
671 .cdaddr: acc "cdaddr"
672
673
674 use tv
675 cdadr: zero 1,-1
676 tsx6 type_1_subr
677 tra <lisp_car_cdrs_>|cdadr
678 zero .cdadr-lisp_subr_tv_,0
679 use Names
680 .cdadr: acc "cdadr"
681
682
683 use tv
684 cdar: zero 1,-1
685 tsx6 type_1_subr
686 tra <lisp_car_cdrs_>|cdar
687 zero .cdar-lisp_subr_tv_,0
688 use Names
689 .cdar: acc "cdar"
690
691
692 use tv
693 cddaar: zero 1,-1
694 tsx6 type_1_subr
695 tra <lisp_car_cdrs_>|cddaar
696 zero .cddaar-lisp_subr_tv_,0
697 use Names
698 .cddaar: acc "cddaar"
699
700
701 use tv
702 cddadr: zero 1,-1
703 tsx6 type_1_subr
704 tra <lisp_car_cdrs_>|cddadr
705 zero .cddadr-lisp_subr_tv_,0
706 use Names
707 .cddadr: acc "cddadr"
708
709
710 use tv
711 cddar: zero 1,-1
712 tsx6 type_1_subr
713 tra <lisp_car_cdrs_>|cddar
714 zero .cddar-lisp_subr_tv_,0
715 use Names
716 .cddar: acc "cddar"
717
718
719 use tv
720 cdddar: zero 1,-1
721 tsx6 type_1_subr
722 tra <lisp_car_cdrs_>|cdddar
723 zero .cdddar-lisp_subr_tv_,0
724 use Names
725 .cdddar: acc "cdddar"
726
727
728 use tv
729 cddddr: zero 1,-1
730 tsx6 type_1_subr
731 tra <lisp_car_cdrs_>|cddddr
732 zero .cddddr-lisp_subr_tv_,0
733 use Names
734 .cddddr: acc "cddddr"
735
736
737 use tv
738 cdddr: zero 1,-1
739 tsx6 type_1_subr
740 tra <lisp_car_cdrs_>|cdddr
741 zero .cdddr-lisp_subr_tv_,0
742 use Names
743 .cdddr: acc "cdddr"
744
745
746 use tv
747 cddr: zero 1,-1
748 tsx6 type_1_subr
749 tra <lisp_car_cdrs_>|cddr
750 zero .cddr-lisp_subr_tv_,0
751 use Names
752 .cddr: acc "cddr"
753
754
755 use tv
756 cdr: zero 1,-1
757
758 tra <lisp_car_cdrs_>|cdr
759 zero
760 zero .cdr-lisp_subr_tv_,0
761 use Names
762 .cdr: acc "cdr"
763
764
765 use tv
766 chrct: zero 1025,-1
767
768 tra <lisp_reader_alm_>|chrct
769 zero
770 zero .chrct-lisp_subr_tv_,1
771 use Names
772 .chrct: acc "chrct"
773
774
775 use tv
776 cline: zero 1,-1
777 tsx6 pl1_fixup
778 tra <lisp_command_caller_>|cline
779 zero .cline-lisp_subr_tv_,0
780 use Names
781 .cline: acc "cline"
782
783
784 use tv
785 close: zero 1,-1
786 tsx6 pl1_fixup
787 tra <lisp_io_control_>|close
788 zero .close-lisp_subr_tv_,0
789 use Names
790 .close: acc "close"
791
792
793 use tv
794 comment: zero 0,-1
795 tsx6 type_1_subr
796 tra <lisp_quick_fcns_>|comment
797 zero .comment-lisp_subr_tv_,2
798 use Names
799 .comment: acc "comment"
800
801
802 use tv
803 cond: zero 0,-1
804 tsx6 type_1_subr
805 tra <lisp_quick_fcns_>|cond
806 zero .cond-lisp_subr_tv_,2
807 use Names
808 .cond: acc "cond"
809
810
811 use tv
812 cons: zero 2,-1
813 tsx6 type_1_subr
814 tra <lisp_alloc_>|cons_
815 zero .cons-lisp_subr_tv_,0
816 use Names
817 .cons: acc "cons"
818
819
820 use tv
821 cos: zero 1,-1
822 tsx6 pl1_fixup
823 tra <lisp_trig_>|cos
824 zero .cos-lisp_subr_tv_,0
825 use Names
826 .cos: acc "cos"
827
828
829 use tv
830 declare: zero 0,-1
831 tsx6 type_1_subr
832 tra <lisp_quick_fcns_>|declare
833 zero .declare-lisp_subr_tv_,2
834 use Names
835 .declare: acc "declare"
836
837
838 use tv
839 definedp: zero 1,-1
840 tsx6 type_1_subr
841 tra <lisp_alloc_>|boundp
842 zero .definedp-lisp_subr_tv_,0
843 use Names
844 .definedp: acc "definedp"
845
846
847 use tv
848 defprop: zero 0,-1
849 tsx6 pl1_fixup
850 tra <lisp_define_>|defprop
851 zero .defprop-lisp_subr_tv_,2
852 use Names
853 .defprop: acc "defprop"
854
855
856 use tv
857 defsubr: zero 3587,-1
858 tsx6 pl1_lsubr_fixup
859 tra <lisp_defsubr_>|defsubr
860 zero .defsubr-lisp_subr_tv_,1
861 use Names
862 .defsubr: acc "defsubr"
863
864
865 use tv
866 defun: zero 0,-1
867 tsx6 pl1_fixup
868 tra <lisp_define_>|defun
869 zero .defun-lisp_subr_tv_,2
870 use Names
871 .defun: acc "defun"
872
873
874 use tv
875 delete: zero 1538,-1
876 tsx6 type_1_subr
877 tra <lisp_quick_fcns_>|delete
878 zero .delete-lisp_subr_tv_,1
879 use Names
880 .delete: acc "delete"
881
882
883 use tv
884 deletef: zero 1,-1
885 tsx6 pl1_fixup
886 tra <lisp_io_control_>|deletef
887 zero .deletef-lisp_subr_tv_,0
888 use Names
889 .deletef: acc "deletef"
890
891
892 use tv
893 delq: zero 1538,-1
894 tsx6 type_1_subr
895 tra <lisp_quick_fcns_>|delq
896 zero .delq-lisp_subr_tv_,1
897 use Names
898 .delq: acc "delq"
899
900
901 use tv
902 difference: zero 261633,-1
903 tsx6 type_1_subr
904 tra <lisp_bignums_>|difference
905 zero .difference-lisp_subr_tv_,1
906 use Names
907 .difference: acc "difference"
908
909
910 use tv
911 do: zero 0,-1
912 tsx6 pl1_fixup
913 tra <lisp_prog_fns_>|do
914 zero .do-lisp_subr_tv_,2
915 use Names
916 .do: acc "do"
917
918
919 use tv
920 eoffn: zero 1025,-1
921 tsx6 pl1_lsubr_fixup
922 tra <lisp_io_fns_>|eoffn
923 zero .eoffn-lisp_subr_tv_,1
924 use Names
925 .eoffn: acc "eoffn"
926
927
928 use tv
929 eq: zero 2,-1
930
931 tra <lisp_quick_fcns_>|eq
932 zero
933 zero .eq-lisp_subr_tv_,0
934 use Names
935 .eq: acc "eq"
936
937
938 use tv
939 equal: zero 2,-1
940
941 tra <lisp_quick_fcns_>|equal
942 zero
943 zero .equal-lisp_subr_tv_,0
944 use Names
945 .equal: acc "equal"
946
947
948 use tv
949 err: zero 0,-1
950 tsx6 pl1_fixup
951 tra <lisp_error_>|err
952 zero .err-lisp_subr_tv_,2
953 use Names
954 .err: acc "err"
955
956
957 use tv
958 errframe: zero 1,-1
959 tsx6 pl1_fixup
960 tra <lisp_error_>|errframe
961 zero .errframe-lisp_subr_tv_,0
962 use Names
963 .errframe: acc "errframe"
964
965
966 use tv
967 errprint: zero 1,-1
968 tsx6 pl1_fixup
969 tra <lisp_error_>|errprint
970 zero .errprint-lisp_subr_tv_,0
971 use Names
972 .errprint: acc "errprint"
973
974
975 use tv
976 errset: zero 0,-1
977 tsx6 pl1_fixup
978 tra <lisp_prog_fns_>|errset
979 zero .errset-lisp_subr_tv_,2
980 use Names
981 .errset: acc "errset"
982
983
984 use tv
985 eval: zero 1025,-1
986 tsx6 type_1_subr
987 tra <lisp_>|eval_
988 zero .eval-lisp_subr_tv_,1
989 use Names
990 .eval: acc "eval"
991
992
993 use tv
994 evalframe: zero 1,-1
995 tsx6 pl1_fixup
996 tra <lisp_error_>|pdlframe
997 zero .evalframe-lisp_subr_tv_,0
998 use Names
999 .evalframe: acc "evalframe"
1000
1001
1002 use tv
1003 exp: zero 1,-1
1004 tsx6 pl1_fixup
1005 tra <lisp_trig_>|exp
1006 zero .exp-lisp_subr_tv_,0
1007 use Names
1008 .exp: acc "exp"
1009
1010
1011 use tv
1012 explode: zero 1,-1
1013 tsx6 pl1_fixup
1014 tra <lisp_print_>|explode
1015 zero .explode-lisp_subr_tv_,0
1016 use Names
1017 .explode: acc "explode"
1018
1019
1020 use tv
1021 explodec: zero 1,-1
1022 tsx6 pl1_fixup
1023 tra <lisp_print_>|explodec
1024 zero .explodec-lisp_subr_tv_,0
1025 use Names
1026 .explodec: acc "explodec"
1027
1028
1029 use tv
1030 exploden: zero 1,-1
1031 tsx6 pl1_fixup
1032 tra <lisp_print_>|exploden
1033 zero .exploden-lisp_subr_tv_,0
1034 use Names
1035 .exploden: acc "exploden"
1036
1037
1038 use tv
1039 expt: zero 2,-1
1040 tsx6 type_1_subr
1041 tra <lisp_bignums_>|expt
1042 zero .expt-lisp_subr_tv_,0
1043 use Names
1044 .expt: acc "expt"
1045
1046
1047 use tv
1048 filepos: zero 1025,-1
1049 tsx6 pl1_lsubr_fixup
1050 tra <lisp_io_fns_>|filepos
1051 zero .filepos-lisp_subr_tv_,1
1052 use Names
1053 .filepos: acc "filepos"
1054
1055
1056 use tv
1057 fix: zero 1,-1
1058 tsx6 type_1_subr
1059 tra <lisp_bignums_>|fix
1060 zero .fix-lisp_subr_tv_,0
1061 use Names
1062 .fix: acc "fix"
1063
1064
1065 use tv
1066 fixp: zero 1,-1
1067
1068 tra <lisp_quick_fcns_>|fixp
1069 zero
1070 zero .fixp-lisp_subr_tv_,0
1071 use Names
1072 .fixp: acc "fixp"
1073
1074
1075 use tv
1076 flatc: zero 1,-1
1077 tsx6 pl1_fixup
1078 tra <lisp_print_>|flatc
1079 zero .flatc-lisp_subr_tv_,0
1080 use Names
1081 .flatc: acc "flatc"
1082
1083
1084 use tv
1085 flatsize: zero 1,-1
1086 tsx6 pl1_fixup
1087 tra <lisp_print_>|flatsize
1088 zero .flatsize-lisp_subr_tv_,0
1089 use Names
1090 .flatsize: acc "flatsize"
1091
1092
1093 use tv
1094 float: zero 1,-1
1095 tsx6 type_1_subr
1096 tra <lisp_bignums_>|float
1097 zero .float-lisp_subr_tv_,0
1098 use Names
1099 .float: acc "float"
1100
1101
1102 use tv
1103 floatp: zero 1,-1
1104
1105 tra <lisp_quick_fcns_>|floatp
1106 zero
1107 zero .floatp-lisp_subr_tv_,0
1108 use Names
1109 .floatp: acc "floatp"
1110
1111
1112 use tv
1113 freturn: zero 2,-1
1114 tsx6 pl1_fixup
1115 tra <lisp_error_>|freturn
1116 zero .freturn-lisp_subr_tv_,0
1117 use Names
1118 .freturn: acc "freturn"
1119
1120
1121 use tv
1122 function: zero 0,-1
1123
1124 tra <lisp_car_cdrs_>|quote
1125 zero
1126 zero .function-lisp_subr_tv_,2
1127 use Names
1128 .function: acc "function"
1129
1130
1131 use tv
1132 gc: zero 0,-1
1133 tsx6 pl1_fixup
1134 tra <lisp_garbage_collector_>|gcsubr
1135 zero .gc-lisp_subr_tv_,0
1136 use Names
1137 .gc: acc "gc"
1138
1139
1140 use tv
1141 gctwa: zero 0,-1
1142 tsx6 pl1_fixup
1143 tra <lisp_status_fns_>|gctwa
1144 zero .gctwa-lisp_subr_tv_,2
1145 use Names
1146 .gctwa: acc "gctwa"
1147
1148
1149 use tv
1150 gensym: zero 512,-1
1151 tsx6 type_1_subr
1152 tra <lisp_alloc_>|gensym_
1153 zero .gensym-lisp_subr_tv_,1
1154 use Names
1155 .gensym: acc "gensym"
1156
1157
1158 use tv
1159 get: zero 2,-1
1160 tsx6 type_1_subr
1161 tra <lisp_property_fns_>|get_
1162 zero .get-lisp_subr_tv_,0
1163 use Names
1164 .get: acc "get"
1165
1166
1167 use tv
1168 get_pname: zero 1,-1
1169 tsx6 pl1_fixup
1170 tra <lisp_char_fns_>|get_pname
1171 zero .get_pname-lisp_subr_tv_,0
1172 use Names
1173 .get_pname: acc "get_pname"
1174
1175
1176 use tv
1177 getl: zero 2,-1
1178 tsx6 type_1_subr
1179 tra <lisp_property_fns_>|getl_
1180 zero .getl-lisp_subr_tv_,0
1181 use Names
1182 .getl: acc "getl"
1183
1184
1185 use tv
1186 go: zero 0,-1
1187 tsx6 type_1_subr
1188 tra <lisp_>|go
1189 zero .go-lisp_subr_tv_,2
1190 use Names
1191 .go: acc "go"
1192
1193
1194 use tv
1195 greaterp: zero 261633,-1
1196 tsx6 type_1_subr
1197 tra <lisp_bignums_>|greaterp
1198 zero .greaterp-lisp_subr_tv_,1
1199 use Names
1200 .greaterp: acc "greaterp"
1201
1202
1203 use tv
1204 index: zero 2,-1
1205 tsx6 pl1_fixup
1206 tra <lisp_char_fns_>|Index
1207 zero .index-lisp_subr_tv_,0
1208 use Names
1209 .index: acc "index"
1210
1211
1212 use tv
1213 inpush: zero 1,-1
1214 tsx6 pl1_fixup
1215 tra <lisp_io_fns_>|inpush
1216 zero .inpush-lisp_subr_tv_,0
1217 use Names
1218 .inpush: acc "inpush"
1219
1220
1221 use tv
1222 intern: zero 1,-1
1223 tsx6 pl1_fixup
1224 tra <lisp_obarray_utils_>|intern
1225 zero .intern-lisp_subr_tv_,0
1226 use Names
1227 .intern: acc "intern"
1228
1229
1230 use tv
1231 ioc: zero 0,-1
1232 tsx6 pl1_fixup
1233 tra <lisp_fault_handler_>|ioc
1234 zero .ioc-lisp_subr_tv_,2
1235 use Names
1236 .ioc: acc "ioc"
1237
1238
1239 use tv
1240 iog: zero 0,-1
1241 tsx6 pl1_fixup
1242 tra <lisp_fault_handler_>|iog
1243 zero .iog-lisp_subr_tv_,2
1244 use Names
1245 .iog: acc "iog"
1246
1247
1248 use tv
1249 isqrt: zero 1,-1
1250 tsx6 pl1_fixup
1251 tra <lisp_trig_>|isqrt
1252 zero .isqrt-lisp_subr_tv_,0
1253 use Names
1254 .isqrt: acc "isqrt"
1255
1256
1257 use tv
1258 last: zero 1,-1
1259
1260 tra <lisp_quick_fcns_>|last
1261 zero
1262 zero .last-lisp_subr_tv_,0
1263 use Names
1264 .last: acc "last"
1265
1266
1267 use tv
1268 length: zero 1,-1
1269
1270 tra <lisp_quick_fcns_>|length
1271 zero
1272 zero .length-lisp_subr_tv_,0
1273 use Names
1274 .length: acc "length"
1275
1276
1277 use tv
1278 lessp: zero 261633,-1
1279 tsx6 type_1_subr
1280 tra <lisp_bignums_>|lessp
1281 zero .lessp-lisp_subr_tv_,1
1282 use Names
1283 .lessp: acc "lessp"
1284
1285
1286 use tv
1287 linel: zero 1025,-1
1288
1289 tra <lisp_reader_alm_>|linel
1290 zero
1291 zero .linel-lisp_subr_tv_,1
1292 use Names
1293 .linel: acc "linel"
1294
1295
1296 use tv
1297 list: zero 261632,-1
1298 tsx6 type_1_subr
1299 tra <lisp_alloc_>|list_
1300 zero .list-lisp_subr_tv_,1
1301 use Names
1302 .list: acc "list"
1303
1304
1305 use tv
1306 log: zero 1,-1
1307 tsx6 pl1_fixup
1308 tra <lisp_trig_>|log
1309 zero .log-lisp_subr_tv_,0
1310 use Names
1311 .log: acc "log"
1312
1313
1314 use tv
1315 lsh: zero 2,-1
1316
1317 tra <lisp_utils_>|lsh
1318 zero
1319 zero .lsh-lisp_subr_tv_,0
1320 use Names
1321 .lsh: acc "lsh"
1322
1323
1324 use tv
1325 make_atom: zero 1,-1
1326 tsx6 pl1_fixup
1327 tra <lisp_char_fns_>|make_atom
1328 zero .make_atom-lisp_subr_tv_,0
1329 use Names
1330 .make_atom: acc "make_atom"
1331
1332
1333 use tv
1334 maknam: zero 1,-1
1335 tsx6 pl1_fixup
1336 tra <lisp_reader_>|maknam
1337 zero .maknam-lisp_subr_tv_,0
1338 use Names
1339 .maknam: acc "maknam"
1340
1341
1342 use tv
1343 makoblist: zero 1,-1
1344 tsx6 pl1_fixup
1345 tra <lisp_obarray_utils_>|makoblist
1346 zero .makoblist-lisp_subr_tv_,0
1347 use Names
1348 .makoblist: acc "makoblist"
1349
1350
1351 use tv
1352 makreadtable: zero 1,-1
1353 tsx6 pl1_fixup
1354 tra <lisp_reader_>|makreadtable
1355 zero .makreadtable-lisp_subr_tv_,0
1356 use Names
1357 .makreadtable: acc "makreadtable"
1358
1359
1360 use tv
1361 makunbound: zero 1,-1
1362 tsx6 type_1_subr
1363 tra <lisp_alloc_>|makunbound
1364 zero .makunbound-lisp_subr_tv_,0
1365 use Names
1366 .makunbound: acc "makunbound"
1367
1368
1369 use tv
1370 map: zero 261634,-1
1371 tsx6 type_1_subr
1372 tra <lisp_>|map
1373 zero .map-lisp_subr_tv_,1
1374 use Names
1375 .map: acc "map"
1376
1377
1378 use tv
1379 mapc: zero 261634,-1
1380 tsx6 type_1_subr
1381 tra <lisp_>|mapc
1382 zero .mapc-lisp_subr_tv_,1
1383 use Names
1384 .mapc: acc "mapc"
1385
1386
1387 use tv
1388 mapcan: zero 261634,-1
1389 tsx6 type_1_subr
1390 tra <lisp_>|mapcan
1391 zero .mapcan-lisp_subr_tv_,1
1392 use Names
1393 .mapcan: acc "mapcan"
1394
1395
1396 use tv
1397 mapcar: zero 261634,-1
1398 tsx6 type_1_subr
1399 tra <lisp_>|mapcar
1400 zero .mapcar-lisp_subr_tv_,1
1401 use Names
1402 .mapcar: acc "mapcar"
1403
1404
1405 use tv
1406 mapcon: zero 261634,-1
1407 tsx6 type_1_subr
1408 tra <lisp_>|mapcon
1409 zero .mapcon-lisp_subr_tv_,1
1410 use Names
1411 .mapcon: acc "mapcon"
1412
1413
1414 use tv
1415 maplist: zero 261634,-1
1416 tsx6 type_1_subr
1417 tra <lisp_>|maplist
1418 zero .maplist-lisp_subr_tv_,1
1419 use Names
1420 .maplist: acc "maplist"
1421
1422
1423 use tv
1424 max: zero 261633,-1
1425 tsx6 type_1_subr
1426 tra <lisp_bignums_>|max
1427 zero .max-lisp_subr_tv_,1
1428 use Names
1429 .max: acc "max"
1430
1431
1432 use tv
1433 member: zero 2,-1
1434
1435 tra <lisp_quick_fcns_>|member
1436 zero
1437 zero .member-lisp_subr_tv_,0
1438 use Names
1439 .member: acc "member"
1440
1441
1442 use tv
1443 memq: zero 2,-1
1444
1445 tra <lisp_quick_fcns_>|memq
1446 zero
1447 zero .memq-lisp_subr_tv_,0
1448 use Names
1449 .memq: acc "memq"
1450
1451
1452 use tv
1453 min: zero 261633,-1
1454 tsx6 type_1_subr
1455 tra <lisp_bignums_>|min
1456 zero .min-lisp_subr_tv_,1
1457 use Names
1458 .min: acc "min"
1459
1460
1461 use tv
1462 minus: zero 1,-1
1463 tsx6 type_1_subr
1464 tra <lisp_bignums_>|minus
1465 zero .minus-lisp_subr_tv_,0
1466 use Names
1467 .minus: acc "minus"
1468
1469
1470 use tv
1471 minusp: zero 1,-1
1472 tsx6 type_1_subr
1473 tra <lisp_bignums_>|minusp
1474 zero .minusp-lisp_subr_tv_,0
1475 use Names
1476 .minusp: acc "minusp"
1477
1478
1479 use tv
1480 mergef: zero 261634,-1
1481 tsx6 pl1_lsubr_fixup
1482 tra <lisp_io_control_>|mergef
1483 zero .mergef-lisp_subr_tv_,1
1484 use Names
1485 .mergef: acc "mergef"
1486
1487
1488 use tv
1489 nconc: zero 261632,-1
1490 tsx6 type_1_subr
1491 tra <lisp_alloc_>|nconc
1492 zero .nconc-lisp_subr_tv_,1
1493 use Names
1494 .nconc: acc "nconc"
1495
1496
1497 use tv
1498 ncons: zero 1,-1
1499 tsx6 type_1_subr
1500 tra <lisp_alloc_>|ncons_
1501 zero .ncons-lisp_subr_tv_,0
1502 use Names
1503 .ncons: acc "ncons"
1504
1505
1506 use tv
1507 namelist: zero 1,-1
1508 tsx6 pl1_fixup
1509 tra <lisp_io_fns_>|namelist
1510 zero .namelist-lisp_subr_tv_,0
1511 use Names
1512 .namelist: acc "namelist"
1513
1514
1515 use tv
1516 names: zero 1025,-1
1517 tsx6 pl1_lsubr_fixup
1518 tra <lisp_io_fns_>|names
1519 zero .names-lisp_subr_tv_,1
1520 use Names
1521 .names: acc "names"
1522
1523
1524 use tv
1525 namestring: zero 1,-1
1526 tsx6 pl1_fixup
1527 tra <lisp_io_fns_>|namestring
1528 zero .namestring-lisp_subr_tv_,0
1529 use Names
1530 .namestring: acc "namestring"
1531
1532
1533 use tv
1534 nointerrupt: zero 1,-1
1535 tsx6 pl1_fixup
1536 tra <lisp_fault_handler_>|nointerrupt
1537 zero .nointerrupt-lisp_subr_tv_,0
1538 use Names
1539 .nointerrupt: acc "nointerrupt"
1540
1541
1542 use tv
1543 noret: zero 1,-1
1544 tsx6 pl1_fixup
1545 tra <lisp_status_fns_>|noret
1546 zero .noret-lisp_subr_tv_,0
1547 use Names
1548 .noret: acc "noret"
1549
1550
1551 use tv
1552 not: zero 1,-1
1553
1554 tra <lisp_quick_fcns_>|null
1555 zero
1556 zero .not-lisp_subr_tv_,0
1557 use Names
1558 .not: acc "not"
1559
1560
1561 use tv
1562 nouuo: zero 1,-1
1563 tsx6 type_1_subr
1564 tra <lisp_>|nouuo
1565 zero .nouuo-lisp_subr_tv_,0
1566 use Names
1567 .nouuo: acc "nouuo"
1568
1569
1570 use tv
1571 nreverse: zero 1,-1
1572 tsx6 type_1_subr
1573 tra <lisp_alloc_>|nreverse_
1574 zero .nreverse-lisp_subr_tv_,0
1575 use Names
1576 .nreverse: acc "nreverse"
1577
1578
1579 use tv
1580 null: zero 1,-1
1581
1582 tra <lisp_quick_fcns_>|null
1583 zero
1584 zero .null-lisp_subr_tv_,0
1585 use Names
1586 .null: acc "null"
1587
1588
1589 use tv
1590 numberp: zero 1,-1
1591
1592 tra <lisp_quick_fcns_>|numberp
1593 zero
1594 zero .numberp-lisp_subr_tv_,0
1595 use Names
1596 .numberp: acc "numberp"
1597
1598
1599 use tv
1600 oddp: zero 1,-1
1601
1602 tra <lisp_quick_fcns_>|oddp
1603 zero
1604 zero .oddp-lisp_subr_tv_,0
1605 use Names
1606 .oddp: acc "oddp"
1607
1608
1609 use tv
1610 opena: zero 1,-1
1611 tsx6 pl1_fixup
1612 tra <lisp_io_control_>|opena
1613 zero .opena-lisp_subr_tv_,0
1614 use Names
1615 .opena: acc "opena"
1616
1617
1618 use tv
1619 openi: zero 1,-1
1620 tsx6 pl1_fixup
1621 tra <lisp_io_control_>|openi
1622 zero .openi-lisp_subr_tv_,0
1623 use Names
1624 .openi: acc "openi"
1625
1626
1627 use tv
1628 openo: zero 1,-1
1629 tsx6 pl1_fixup
1630 tra <lisp_io_control_>|openo
1631 zero .openo-lisp_subr_tv_,0
1632 use Names
1633 .openo: acc "openo"
1634
1635
1636 use tv
1637 or: zero 0,-1
1638 tsx6 type_1_subr
1639 tra <lisp_quick_fcns_>|or
1640 zero .or-lisp_subr_tv_,2
1641 use Names
1642 .or: acc "or"
1643
1644
1645 use tv
1646 plus: zero 261632,-1
1647 tsx6 type_1_subr
1648 tra <lisp_bignums_>|plus
1649 zero .plus-lisp_subr_tv_,1
1650 use Names
1651 .plus: acc "plus"
1652
1653
1654 use tv
1655 plusp: zero 1,-1
1656 tsx6 type_1_subr
1657 tra <lisp_bignums_>|plusp
1658 zero .plusp-lisp_subr_tv_,0
1659 use Names
1660 .plusp: acc "plusp"
1661
1662
1663 use tv
1664 prin1: zero 1025,-1
1665 tsx6 pl1_lsubr_fixup
1666 tra <lisp_print_>|prin1_
1667 zero .prin1-lisp_subr_tv_,1
1668 use Names
1669 .prin1: acc "prin1"
1670
1671
1672 use tv
1673 princ: zero 1025,-1
1674 tsx6 pl1_lsubr_fixup
1675 tra <lisp_print_>|princ_
1676 zero .princ-lisp_subr_tv_,1
1677 use Names
1678 .princ: acc "princ"
1679
1680
1681 use tv
1682 print: zero 1025,-1
1683 tsx6 pl1_lsubr_fixup
1684 tra <lisp_print_>|print_
1685 zero .print-lisp_subr_tv_,1
1686 use Names
1687 .print: acc "print"
1688
1689
1690 use tv
1691 prog2: zero 261634,-1
1692
1693 tra <lisp_quick_fcns_>|prog2
1694 zero
1695 zero .prog2-lisp_subr_tv_,1
1696 use Names
1697 .prog2: acc "prog2"
1698
1699
1700 use tv
1701 prog: zero 0,-1
1702 tsx6 pl1_fixup
1703 tra <lisp_prog_fns_>|prog
1704 zero .prog-lisp_subr_tv_,2
1705 use Names
1706 .prog: acc "prog"
1707
1708
1709 use tv
1710 progn: zero 261633,-1
1711
1712 tra <lisp_quick_fcns_>|progn
1713 zero
1714 zero .progn-lisp_subr_tv_,1
1715 use Names
1716 .progn: acc "progn"
1717
1718
1719 use tv
1720 putprop: zero 3,-1
1721 tsx6 type_1_subr
1722 tra <lisp_property_fns_>|putprop_
1723 zero .putprop-lisp_subr_tv_,0
1724 use Names
1725 .putprop: acc "putprop"
1726
1727
1728 use tv
1729 quit: zero 0,-1
1730 tsx6 pl1_fixup
1731 tra <lisp>|quit
1732 zero .quit-lisp_subr_tv_,0
1733 use Names
1734 .quit: acc "quit"
1735
1736
1737 use tv
1738 quote: zero 0,-1
1739
1740 tra <lisp_car_cdrs_>|quote
1741 zero
1742 zero .quote-lisp_subr_tv_,2
1743 use Names
1744 .quote: acc "quote"
1745
1746
1747 use tv
1748 quotient: zero 261633,-1
1749 tsx6 type_1_subr
1750 tra <lisp_bignums_>|quotient
1751 zero .quotient-lisp_subr_tv_,1
1752 use Names
1753 .quotient: acc "quotient"
1754
1755
1756 use tv
1757 random: zero 512,-1
1758 tsx6 type_1_subr
1759 tra <lisp_quick_fcns_>|random
1760 zero .random-lisp_subr_tv_,1
1761 use Names
1762 .random: acc "random"
1763
1764
1765 use tv
1766 read: zero 1024,-1
1767 tsx6 pl1_lsubr_fixup
1768 tra <lisp_reader_>|read
1769 zero .read-lisp_subr_tv_,1
1770 use Names
1771 .read: acc "read"
1772
1773
1774 use tv
1775 readch: zero 1024,-1
1776 tsx6 type_1_subr
1777 tra <lisp_reader_alm_>|readch
1778 zero .readch-lisp_subr_tv_,1
1779 use Names
1780 .readch: acc "readch"
1781
1782
1783 use tv
1784 readlist: zero 1,-1
1785 tsx6 pl1_fixup
1786 tra <lisp_reader_>|readlist
1787 zero .readlist-lisp_subr_tv_,0
1788 use Names
1789 .readlist: acc "readlist"
1790
1791
1792 use tv
1793 readline: zero 1024,-1
1794 tsx6 pl1_lsubr_fixup
1795 tra <lisp_reader_>|readstring
1796 zero .readline-lisp_subr_tv_,1
1797 use Names
1798 .readline: acc "readline"
1799
1800
1801 use tv
1802 remainder: zero 2,-1
1803 tsx6 type_1_subr
1804 tra <lisp_bignums_>|remainder
1805 zero .remainder-lisp_subr_tv_,0
1806 use Names
1807 .remainder: acc "remainder"
1808
1809
1810 use tv
1811 remob: zero 1,-1
1812 tsx6 pl1_fixup
1813 tra <lisp_obarray_utils_>|remob
1814 zero .remob-lisp_subr_tv_,0
1815 use Names
1816 .remob: acc "remob"
1817
1818
1819 use tv
1820 remprop: zero 2,-1
1821 tsx6 type_1_subr
1822 tra <lisp_property_fns_>|remprop_
1823 zero .remprop-lisp_subr_tv_,0
1824 use Names
1825 .remprop: acc "remprop"
1826
1827
1828 use tv
1829 rename: zero 2,-1
1830 tsx6 pl1_fixup
1831 tra <lisp_io_control_>|rename
1832 zero .rename-lisp_subr_tv_,0
1833 use Names
1834 .rename: acc "rename"
1835
1836
1837 use tv
1838 return: zero 1,-1
1839 tsx6 type_1_subr
1840 tra <lisp_>|return
1841 zero .return-lisp_subr_tv_,0
1842 use Names
1843 .return: acc "return"
1844
1845
1846 use tv
1847 reverse: zero 1,-1
1848 tsx6 type_1_subr
1849 tra <lisp_alloc_>|reverse
1850 zero .reverse-lisp_subr_tv_,0
1851 use Names
1852 .reverse: acc "reverse"
1853
1854
1855 use tv
1856 rot: zero 2,-1
1857
1858 tra <lisp_utils_>|rot
1859 zero
1860 zero .rot-lisp_subr_tv_,0
1861 use Names
1862 .rot: acc "rot"
1863
1864
1865 use tv
1866 rplaca: zero 2,-1
1867 tsx6 type_1_subr
1868 tra <lisp_quick_fcns_>|rplaca
1869 zero .rplaca-lisp_subr_tv_,0
1870 use Names
1871 .rplaca: acc "rplaca"
1872
1873
1874 use tv
1875 rplacd: zero 2,-1
1876
1877 tra <lisp_quick_fcns_>|rplacd
1878 zero
1879 zero .rplacd-lisp_subr_tv_,0
1880 use Names
1881 .rplacd: acc "rplacd"
1882
1883
1884 use tv
1885 runtime: zero 0,-1
1886
1887 tra <lisp_quick_fcns_>|runtime
1888 zero
1889 zero .runtime-lisp_subr_tv_,0
1890 use Names
1891 .runtime: acc "runtime"
1892
1893
1894 use tv
1895 sassoc: zero 3,-1
1896
1897 tra <lisp_quick_fcns_>|sassoc
1898 zero
1899 zero .sassoc-lisp_subr_tv_,0
1900 use Names
1901 .sassoc: acc "sassoc"
1902
1903
1904 use tv
1905 sassq: zero 3,-1
1906
1907 tra <lisp_quick_fcns_>|sassq
1908 zero
1909 zero .sassq-lisp_subr_tv_,0
1910 use Names
1911 .sassq: acc "sassq"
1912
1913
1914 use tv
1915 save: zero 0,-1
1916 tsx6 pl1_fixup
1917 tra <lisp>|save
1918 zero .save-lisp_subr_tv_,2
1919 use Names
1920 .save: acc "save"
1921
1922
1923 use tv
1924 set: zero 2,-1
1925 tsx6 type_1_subr
1926 tra <lisp_quick_fcns_>|set
1927 zero .set-lisp_subr_tv_,0
1928 use Names
1929 .set: acc "set"
1930
1931
1932 use tv
1933 setarg: zero 2,-1
1934 tsx6 type_1_subr
1935 tra <lisp_>|setarg
1936 zero .setarg-lisp_subr_tv_,0
1937 use Names
1938 .setarg: acc "setarg"
1939
1940
1941 use tv
1942 setq: zero 0,-1
1943 tsx6 type_1_subr
1944 tra <lisp_quick_fcns_>|setq
1945 zero .setq-lisp_subr_tv_,2
1946 use Names
1947 .setq: acc "setq"
1948
1949
1950 use tv
1951 shortnamestring: zero 1,-1
1952 tsx6 pl1_fixup
1953 tra <lisp_io_fns_>|shortnamestring
1954 zero .shortnamestring-lisp_subr_tv_,0
1955 use Names
1956 .shortnamestring: acc "shortnamestring"
1957
1958
1959 use tv
1960 signp: zero 0,-1
1961 tsx6 type_1_subr
1962 tra <lisp_utils_>|signp
1963 zero .signp-lisp_subr_tv_,2
1964 use Names
1965 .signp: acc "signp"
1966
1967
1968 use tv
1969 sin: zero 1,-1
1970 tsx6 pl1_fixup
1971 tra <lisp_trig_>|sin
1972 zero .sin-lisp_subr_tv_,0
1973 use Names
1974 .sin: acc "sin"
1975
1976
1977 use tv
1978 sleep: zero 1,-1
1979 tsx6 pl1_fixup
1980 tra <lisp_trig_>|sleep
1981 zero .sleep-lisp_subr_tv_,0
1982 use Names
1983 .sleep: acc "sleep"
1984
1985
1986 use tv
1987 smallnump: zero 1,-1
1988
1989 tra <lisp_quick_fcns_>|smallnump
1990 zero
1991 zero .smallnump-lisp_subr_tv_,0
1992 use Names
1993 .smallnump: acc "smallnump"
1994
1995
1996 use tv
1997 sqrt: zero 1,-1
1998 tsx6 pl1_fixup
1999 tra <lisp_trig_>|sqrt
2000 zero .sqrt-lisp_subr_tv_,0
2001 use Names
2002 .sqrt: acc "sqrt"
2003
2004
2005 use tv
2006 sstatus: zero 0,-1
2007 tsx6 pl1_fixup
2008 tra <lisp_status_fns_>|sstatus
2009 zero .sstatus-lisp_subr_tv_,2
2010 use Names
2011 .sstatus: acc "sstatus"
2012
2013
2014 use tv
2015 status: zero 0,-1
2016 tsx6 pl1_fixup
2017 tra <lisp_status_fns_>|status
2018 zero .status-lisp_subr_tv_,2
2019 use Names
2020 .status: acc "status"
2021
2022
2023 use tv
2024 store: zero 0,-1
2025 tsx6 type_1_subr
2026 tra <lisp_oprs_>|store
2027 zero .store-lisp_subr_tv_,2
2028 use Names
2029 .store: acc "store"
2030
2031
2032 use tv
2033 stringlength: zero 1,-1
2034 tsx6 pl1_fixup
2035 tra <lisp_char_fns_>|stringlength
2036 zero .stringlength-lisp_subr_tv_,0
2037 use Names
2038 .stringlength: acc "stringlength"
2039
2040
2041 use tv
2042 stringp: zero 1,-1
2043
2044 tra <lisp_quick_fcns_>|stringp
2045 zero
2046 zero .stringp-lisp_subr_tv_,0
2047 use Names
2048 .stringp: acc "stringp"
2049
2050
2051 use tv
2052 sub1: zero 1,-1
2053 tsx6 type_1_subr
2054 tra <lisp_bignums_>|sub1
2055 zero .sub1-lisp_subr_tv_,0
2056 use Names
2057 .sub1: acc "sub1"
2058
2059
2060 use tv
2061 sublis: zero 2,-1
2062 tsx6 type_1_subr
2063 tra <lisp_alloc_>|sublis
2064 zero .sublis-lisp_subr_tv_,0
2065 use Names
2066 .sublis: acc "sublis"
2067
2068
2069 use tv
2070 subrp: zero 1,-1
2071
2072 tra <lisp_quick_fcns_>|subrp
2073 zero
2074 zero .subrp-lisp_subr_tv_,0
2075 use Names
2076 .subrp: acc "subrp"
2077
2078
2079 use tv
2080 subst: zero 3,-1
2081 tsx6 type_1_subr
2082 tra <lisp_alloc_>|subst_
2083 zero .subst-lisp_subr_tv_,0
2084 use Names
2085 .subst: acc "subst"
2086
2087
2088 use tv
2089 substr2: zero 2,-1
2090 tsx6 pl1_fixup
2091 tra <lisp_char_fns_>|Substr2
2092 zero .substr2-lisp_subr_tv_,0
2093 use Names
2094 .substr2: acc "substr2"
2095
2096
2097 use tv
2098 substr: zero 1538,-1
2099 tsx6 pl1_lsubr_fixup
2100 tra <lisp_char_fns_>|Substr
2101 zero .substr-lisp_subr_tv_,1
2102 use Names
2103 .substr: acc "substr"
2104
2105
2106 use tv
2107 sysp: zero 1,-1
2108 tsx6 pl1_fixup
2109 tra <lisp_defsubr_>|sysp
2110 zero .sysp-lisp_subr_tv_,0
2111 use Names
2112 .sysp: acc "sysp"
2113
2114
2115 use tv
2116 terpri: zero 512,-1
2117 tsx6 pl1_lsubr_fixup
2118 tra <lisp_print_>|terpri
2119 zero .terpri-lisp_subr_tv_,1
2120 use Names
2121 .terpri: acc "terpri"
2122
2123
2124 use tv
2125 throw: zero 0,-1
2126 tsx6 pl1_fixup
2127 tra <lisp_prog_fns_>|throw
2128 zero .throw-lisp_subr_tv_,2
2129 use Names
2130 .throw: acc "throw"
2131
2132
2133 use tv
2134 time: zero 0,-1
2135 tsx6 pl1_fixup
2136 tra <lisp_status_fns_>|time
2137 zero .time-lisp_subr_tv_,0
2138 use Names
2139 .time: acc "time"
2140
2141
2142 use tv
2143 times: zero 261632,-1
2144 tsx6 type_1_subr
2145 tra <lisp_bignums_>|times
2146 zero .times-lisp_subr_tv_,1
2147 use Names
2148 .times: acc "times"
2149
2150
2151 use tv
2152 tyi: zero 1024,-1
2153 tsx6 type_1_subr
2154 tra <lisp_reader_alm_>|tyi
2155 zero .tyi-lisp_subr_tv_,1
2156 use Names
2157 .tyi: acc "tyi"
2158
2159
2160 use tv
2161 tyipeek: zero 512,-1
2162 tsx6 type_1_subr
2163 tra <lisp_reader_alm_>|tyipeek
2164 zero .tyipeek-lisp_subr_tv_,1
2165 use Names
2166 .tyipeek: acc "tyipeek"
2167
2168
2169 use tv
2170 tyo: zero 1025,-1
2171 tsx6 type_1_subr
2172 tra <lisp_reader_alm_>|tyo_alm
2173 zero .tyo-lisp_subr_tv_,1
2174 use Names
2175 .tyo: acc "tyo"
2176
2177
2178 use tv
2179 typep: zero 1,-1
2180 tsx6 type_1_subr
2181 tra <lisp_utils_>|typep
2182 zero .typep-lisp_subr_tv_,0
2183 use Names
2184 .typep: acc "typep"
2185
2186
2187 use tv
2188 xcons: zero 2,-1
2189 tsx6 type_1_subr
2190 tra <lisp_alloc_>|xcons_
2191 zero .xcons-lisp_subr_tv_,0
2192 use Names
2193 .xcons: acc "xcons"
2194
2195
2196 use tv
2197 zerop: zero 1,-1
2198
2199 tra <lisp_quick_fcns_>|zerop
2200 zero
2201 zero .zerop-lisp_subr_tv_,0
2202 use Names
2203 .zerop: acc "zerop"
2204
2205
2206 use tv
2207 alphalessp: zero 2,-1
2208 tsx6 type_1_subr
2209 tra <lisp_quick_fcns_>|alphalessp
2210 zero .alphalessp-lisp_subr_tv_,0
2211 use Names
2212 .alphalessp: acc "alphalessp"
2213
2214
2215 use tv
2216 samepnamep: zero 2,-1
2217 tsx6 type_1_subr
2218 tra <lisp_quick_fcns_>|samepnamep
2219 zero .samepnamep-lisp_subr_tv_,0
2220 use Names
2221 .samepnamep: acc "samepnamep"
2222
2223
2224 use tv
2225 getchar: zero 2,-1
2226 tsx6 type_1_subr
2227 tra <lisp_quick_fcns_>|getchar
2228 zero .getchar-lisp_subr_tv_,0
2229 use Names
2230 .getchar: acc "getchar"
2231
2232
2233 use tv
2234 sxhash: zero 1,-1
2235 tsx6 type_1_subr
2236 tra <lisp_utils_>|sxhash
2237 zero .sxhash-lisp_subr_tv_,0
2238 use Names
2239 .sxhash: acc "sxhash"
2240
2241
2242 use tv
2243 gcd: zero 2,-1
2244 tsx6 type_1_subr
2245 tra <lisp_bignums_>|gcd
2246 zero .gcd-lisp_subr_tv_,0
2247 use Names
2248 .gcd: acc "gcd"
2249
2250
2251 use tv
2252 error: zero 1536,-1
2253 tsx6 pl1_lsubr_fixup
2254 tra <lisp_error_>|error
2255 zero .error-lisp_subr_tv_,1
2256 use Names
2257 .error: acc "error"
2258
2259
2260 use tv
2261 setsyntax: zero 3,-1
2262 tsx6 pl1_fixup
2263 tra <lisp_status_fns_>|setsyntax
2264 zero .setsyntax-lisp_subr_tv_,0
2265 use Names
2266 .setsyntax: acc "setsyntax"
2267
2268
2269 use tv
2270 cursorpos: zero 1024,-1
2271 tsx6 pl1_lsubr_fixup
2272 tra <lisp_io_fns_>|cursorpos
2273 zero .cursorpos-lisp_subr_tv_,1
2274 use Names
2275 .cursorpos: acc "cursorpos"
2276
2277
2278 use tv
2279 force_output: zero 1,-1
2280 tsx6 pl1_fixup
2281 tra <lisp_io_control_>|force_output
2282 zero .force_output-lisp_subr_tv_,0
2283 use Names
2284 .force_output: acc "force-output"
2285
2286
2287 use tv
2288 clear_input: zero 1,-1
2289 tsx6 pl1_fixup
2290 tra <lisp_io_control_>|clear_input
2291 zero .clear_input-lisp_subr_tv_,0
2292 use Names
2293 .clear_input: acc "clear-input"
2294
2295
2296 use tv
2297 haipart: zero 2,-1
2298 tsx6 type_1_subr
2299 tra <lisp_bignums_>|haipart
2300 zero .haipart-lisp_subr_tv_,0
2301 use Names
2302 .haipart: acc "haipart"
2303
2304
2305 use tv
2306 haulong: zero 1,-1
2307 tsx6 type_1_subr
2308 tra <lisp_bignums_>|haulong
2309 zero .haulong-lisp_subr_tv_,0
2310 use Names
2311 .haulong: acc "haulong"
2312
2313
2314 use tv
2315 sort: zero 2,-1
2316 tsx6 pl1_fixup
2317 tra <lisp_array_fcns_>|sort
2318 zero .sort-lisp_subr_tv_,0
2319 use Names
2320 .sort: acc "sort"
2321
2322
2323 use tv
2324 sortcar: zero 2,-1
2325 tsx6 pl1_fixup
2326 tra <lisp_array_fcns_>|sortcar
2327 zero .sortcar-lisp_subr_tv_,0
2328 use Names
2329 .sortcar: acc "sortcar"
2330
2331
2332 use tv
2333 fillarray: zero 2,-1
2334 tsx6 pl1_fixup
2335 tra <lisp_array_fcns_>|fillarray
2336 zero .fillarray-lisp_subr_tv_,0
2337 use Names
2338 .fillarray: acc "fillarray"
2339
2340
2341 use tv
2342 listarray: zero 1025,-1
2343 tsx6 pl1_lsubr_fixup
2344 tra <lisp_array_fcns_>|listarray
2345 zero .listarray-lisp_subr_tv_,1
2346 use Names
2347 .listarray: acc "listarray"
2348
2349
2350 use tv
2351 listify: zero 1,-1
2352 tsx6 type_1_subr
2353 tra <lisp_>|listify
2354 zero .listify-lisp_subr_tv_,0
2355 use Names
2356 .listify: acc "listify"
2357
2358
2359 use tv
2360 quikload: zero 0,-1
2361 drl 0
2362 odd
2363 zero .quikload-lisp_subr_tv_,0
2364 use Names
2365 .quikload: acc "listen"
2366
2367
2368 use tv
2369 funcall: zero 261633,-1
2370 tsx6 type_1_subr
2371 tra <lisp_>|funcall
2372 zero .funcall-lisp_subr_tv_,1
2373 use Names
2374 .funcall: acc "funcall"
2375
2376
2377 use tv
2378 listen: zero 0,-1
2379 tsx6 type_1_subr
2380 tra <lisp_reader_alm_>|listen
2381 zero .listen-lisp_subr_tv_,0
2382 use Names
2383 .listen: acc "listen"
2384
2385
2386 use tv
2387 fixgcd: zero 2,-1
2388
2389 tra <lisp_utils_>|fixgcd
2390 zero
2391 zero .fixgcd-lisp_subr_tv_,0
2392 use Names
2393 .fixgcd: acc "\\"
2394
2395
2396 use tv
2397 copysymbol: zero 2,-1
2398 tsx6 type_1_subr
2399 tra <lisp_alloc_>|copysymbol
2400 zero .copysymbol-lisp_subr_tv_,0
2401 use Names
2402 .copysymbol: acc "copysymbol"
2403
2404
2405 use tv
2406 load: zero 1,-1
2407 tsx6 pl1_fixup
2408 tra <lisp_load_>|lisp_load_
2409 zero .load-lisp_subr_tv_,0
2410 use Names
2411 .load: acc "load"
2412
2413
2414 use tv
2415 charpos: zero 1025,-1
2416
2417 tra <lisp_reader_alm_>|charpos
2418 zero
2419 zero .charpos-lisp_subr_tv_,1
2420 use Names
2421 .charpos: acc "charpos"
2422
2423
2424 use tv
2425 linenum: zero 1025,-1
2426
2427 tra <lisp_reader_alm_>|linenum
2428 zero
2429 zero .linenum-lisp_subr_tv_,1
2430 use Names
2431 .linenum: acc "linenum"
2432
2433
2434 use tv
2435 pagenum: zero 1025,-1
2436
2437 tra <lisp_reader_alm_>|pagenum
2438 zero
2439 zero .pagenum-lisp_subr_tv_,1
2440 use Names
2441 .pagenum: acc "pagenum"
2442
2443
2444 use tv
2445 pagel: zero 1025,-1
2446
2447 tra <lisp_reader_alm_>|pagel
2448 zero
2449 zero .pagel-lisp_subr_tv_,1
2450 use Names
2451 .pagel: acc "pagel"
2452
2453
2454 use tv
2455 endpagefn: zero 1025,-1
2456 tsx6 pl1_lsubr_fixup
2457 tra <lisp_io_fns_>|endpagefn
2458 zero .endpagefn-lisp_subr_tv_,1
2459 use Names
2460 .endpagefn: acc "endpagefn"
2461
2462
2463 use tv
2464 percent_include: zero 0,-1
2465 tsx6 pl1_fixup
2466 tra <lisp_io_control_>|percent_include
2467 zero .percent_include-lisp_subr_tv_,2
2468 use Names
2469 .percent_include: acc "%include"
2470
2471
2472 use tv
2473 defaultf: zero 1,-1
2474 tsx6 pl1_fixup
2475 tra <lisp_io_fns_>|defaultf
2476 zero .defaultf-lisp_subr_tv_,0
2477 use Names
2478 .defaultf: acc "defaultf"
2479
2480
2481 use tv
2482 alloc: zero 1,-1
2483 tsx6 pl1_fixup
2484 tra <lisp_status_fns_>|alloc
2485 zero .alloc-lisp_subr_tv_,0
2486 use Names
2487 .alloc: acc "alloc"
2488
2489
2490 use tv
2491 implode: zero 1,-1
2492 tsx6 pl1_fixup
2493 tra <lisp_reader_>|implode
2494 zero .implode-lisp_subr_tv_,0
2495 use Names
2496 .implode: acc "implode"
2497
2498
2499 use tv
2500 purcopy: zero 1,-1
2501
2502 tra <lisp_subr_tv_>|purcopy_code
2503 zero
2504 zero .purcopy-lisp_subr_tv_,0
2505 use Names
2506 .purcopy: acc "purcopy"
2507
2508
2509 use tv
2510 nreconc: zero 2,-1
2511 tsx6 type_1_subr
2512 tra <lisp_alloc_>|nreconc_
2513 zero .nreconc-lisp_subr_tv_,0
2514 use Names
2515 .nreconc: acc "nreconc"
2516
2517
2518 use tv
2519 err_1: zero 1,-1
2520 tsx6 err_break-*,ic
2521 zero 0,0
2522 zero .err_1-lisp_subr_tv_,0
2523 use Names
2524 .err_1: acc "*internal-^b-break"
2525
2526
2527 use tv
2528 err_5: zero 1,-1
2529 tsx6 err_break-*,ic
2530 zero -1,8
2531 zero .err_5-lisp_subr_tv_,0
2532 use Names
2533 .err_5: acc "*internal-undf-fnctn-break"
2534
2535
2536 use tv
2537 err_6: zero 1,-1
2538 tsx6 err_break-*,ic
2539 zero -1,10
2540 zero .err_6-lisp_subr_tv_,0
2541 use Names
2542 .err_6: acc "*internal-unbnd-vrbl-break"
2543
2544
2545 use tv
2546 err_7: zero 1,-1
2547 tsx6 err_break-*,ic
2548 zero -1,12
2549 zero .err_7-lisp_subr_tv_,0
2550 use Names
2551 .err_7: acc "*internal-wrng-type-arg-break"
2552
2553
2554 use tv
2555 err_8: zero 1,-1
2556 tsx6 err_break-*,ic
2557 zero -1,14
2558 zero .err_8-lisp_subr_tv_,0
2559 use Names
2560 .err_8: acc "*internal-unseen-go-tag-break"
2561
2562
2563 use tv
2564 err_9: zero 1,-1
2565 tsx6 err_break-*,ic
2566 zero -1,16
2567 zero .err_9-lisp_subr_tv_,0
2568 use Names
2569 .err_9: acc "*internal-wrng-no-args-break"
2570
2571
2572 use tv
2573 err_10: zero 1,-1
2574 tsx6 err_break-*,ic
2575 zero 0,18
2576 zero .err_10-lisp_subr_tv_,0
2577 use Names
2578 .err_10: acc "*internal-gc-lossage-break"
2579
2580
2581 use tv
2582 err_11: zero 1,-1
2583 tsx6 err_break-*,ic
2584 zero -1,20
2585 zero .err_11-lisp_subr_tv_,0
2586 use Names
2587 .err_11: acc "*internal-fail-act-break"
2588
2589
2590 use tv
2591 err_12: zero 1,-1
2592 tsx6 err_break-*,ic
2593 zero -1,22
2594 zero .err_12-lisp_subr_tv_,0
2595 use Names
2596 .err_12: acc "*internal-pdl-overflow-break"
2597
2598
2599 use tv
2600 err_19: zero 1,-1
2601
2602 tra <lisp_subr_tv_>|star_rset_trap
2603 zero
2604 zero .err_19-lisp_subr_tv_,0
2605 use Names
2606 .err_19: acc "*internal-*rset-break"
2607
2608
2609 use tv
2610 err_18: zero 1,-1
2611
2612 tra <lisp_subr_tv_>|autoload_trap
2613 zero
2614 zero .err_18-lisp_subr_tv_,0
2615 use Names
2616 .err_18: acc "*internal-autoload-trap"
2617
2618
2619 use tv
2620 getcharn: zero 2,-1
2621 tsx6 type_1_subr
2622 tra <lisp_quick_fcns_>|getcharn
2623 zero .getcharn-lisp_subr_tv_,0
2624 use Names
2625 .getcharn: acc "getcharn"
2626
2627
2628 use tv
2629 subrcall: zero 0,-1
2630 tsx6 type_1_subr
2631 tra <lisp_>|subrcall
2632 zero .subrcall-lisp_subr_tv_,2
2633 use Names
2634 .subrcall: acc "subrcall"
2635
2636
2637 use tv
2638 lsubrcall: zero 0,-1
2639 tsx6 type_1_subr
2640 tra <lisp_>|lsubrcall
2641 zero .lsubrcall-lisp_subr_tv_,2
2642 use Names
2643 .lsubrcall: acc "lsubrcall"
2644
2645
2646 use tv
2647 arraycall: zero 0,-1
2648 tsx6 type_1_subr
2649 tra <lisp_>|arraycall
2650 zero .arraycall-lisp_subr_tv_,2
2651 use Names
2652 .arraycall: acc "arraycall"
2653
2654
2655 use tv
2656 maknum: zero 1,-1
2657 tsx6 type_1_subr
2658 tra <lisp_alloc_>|maknum
2659 zero .maknum-lisp_subr_tv_,0
2660 use Names
2661 .maknum: acc "maknum"
2662
2663
2664 use tv
2665 munkam: zero 1,-1
2666 tsx6 type_1_subr
2667 tra <lisp_alloc_>|munkam
2668 zero .munkam-lisp_subr_tv_,0
2669 use Names
2670 .munkam: acc "munkam"
2671
2672
2673 use tv
2674 loadarrays: zero 1,-1
2675 tsx6 pl1_fixup
2676 tra <lisp_loadumparrays_>|loadarrays
2677 zero .loadarrays-lisp_subr_tv_,0
2678 use Names
2679 .loadarrays: acc "loadarrays"
2680
2681
2682 use tv
2683 dumparrays: zero 2,-1
2684 tsx6 pl1_fixup
2685 tra <lisp_loadumparrays_>|dumparrays
2686 zero .dumparrays-lisp_subr_tv_,0
2687 use Names
2688 .dumparrays: acc "dumparrays"
2689
2690
2691 use tv
2692 expt_fix: zero 2,-1
2693
2694 tra <lisp_utils_>|expt_fix
2695 zero
2696 zero .expt_fix-lisp_subr_tv_,0
2697 use Names
2698 .expt_fix: acc "^"
2699
2700
2701 use tv
2702 expt_flt: zero 2,-1
2703
2704 tra <lisp_utils_>|expt_flo
2705 zero
2706 zero .expt_flt-lisp_subr_tv_,0
2707 use Names
2708 .expt_flt: acc "^$"
2709
2710
2711 use tv
2712 symeval: zero 1,-1
2713 tsx6 type_1_subr
2714 tra <lisp_>|symeval
2715 zero .symeval-lisp_subr_tv_,0
2716 use Names
2717 .symeval: acc "symeval"
2718
2719
2720 use tv
2721 plist: zero 1,-1
2722 tsx6 type_1_subr
2723 tra <lisp_property_fns_>|plist_
2724 zero .plist-lisp_subr_tv_,0
2725 use Names
2726 .plist: acc "plist"
2727
2728
2729 use tv
2730 setplist: zero 2,-1
2731 tsx6 type_1_subr
2732 tra <lisp_property_fns_>|setplist_
2733 zero .setplist-lisp_subr_tv_,0
2734 use Names
2735 .setplist: acc "setplist"
2736
2737
2738 use tv
2739 open: zero 1024,-1
2740 tsx6 pl1_lsubr_fixup
2741 tra <lisp_io_control_>|open
2742 zero .open-lisp_subr_tv_,1
2743 use Names
2744 .open: acc "open"
2745
2746
2747 use tv
2748 in: zero 1,-1
2749 tsx6 pl1_fixup
2750 tra <lisp_io_control_>|in
2751 zero .in-lisp_subr_tv_,0
2752 use Names
2753 .in: acc "in"
2754
2755
2756 use tv
2757 out: zero 2,-1
2758 tsx6 pl1_fixup
2759 tra <lisp_io_control_>|out
2760 zero .out-lisp_subr_tv_,0
2761 use Names
2762 .out: acc "out"
2763
2764
2765 use tv
2766 truename: zero 1,-1
2767 tsx6 pl1_fixup
2768 tra <lisp_io_fns_>|truename
2769 zero .truename-lisp_subr_tv_,0
2770 use Names
2771 .truename: acc "truename"
2772
2773
2774 use tv
2775 evalhook: zero 2,-1
2776 tsx6 type_1_subr
2777 tra <lisp_>|evalhook
2778 zero .evalhook-lisp_subr_tv_,0
2779 use Names
2780 .evalhook: acc "evalhook"
2781
2782
2783 use tv
2784 fsc: zero 2,-1
2785
2786 tra <lisp_utils_>|fsc
2787 zero
2788 zero .fsc-lisp_subr_tv_,0
2789 use Names
2790 .fsc: acc "fsc"
2791
2792
2793 use tv
2794 ifix: zero 1,-1
2795
2796 tra <lisp_utils_>|ifix
2797 zero
2798 zero .ifix-lisp_subr_tv_,0
2799 use Names
2800 .ifix: acc "ifix"
2801
2802
2803 use tv
2804 progv: zero 0,-1
2805 tsx6 pl1_fixup
2806 tra <lisp_prog_fns_>|progv
2807 zero .progv-lisp_subr_tv_,2
2808 use Names
2809 .progv: acc "progv"
2810
2811
2812 use tv
2813 mapatoms: zero 1025,-1
2814 tsx6 pl1_lsubr_fixup
2815 tra <lisp_array_fcns_>|mapatoms
2816 zero .mapatoms-lisp_subr_tv_,1
2817 use Names
2818 .mapatoms: acc "mapatoms"
2819
2820
2821 use tv
2822 symbolp: zero 1,-1
2823
2824 tra <lisp_quick_fcns_>|symbolp
2825 zero
2826 zero .symbolp-lisp_subr_tv_,0
2827 use Names
2828 .symbolp: acc "symbolp"
2829
2830
2831 use tv
2832 filep: zero 1,-1
2833
2834 tra <lisp_quick_fcns_>|filep
2835 zero
2836 zero .filep-lisp_subr_tv_,0
2837 use Names
2838 .filep: acc "filep"
2839
2840
2841 use tv
2842 suspend: zero 0,-1
2843 tsx6 pl1_fixup
2844 tra <lisp_command_caller_>|suspend
2845 zero .suspend-lisp_subr_tv_,0
2846 use Names
2847 .suspend: acc "suspend"
2848
2849
2850 use tv
2851 ctrl_g: zero 0,-1
2852 tsx6 pl1_fixup
2853 tra <lisp_fault_handler_>|ctrl_g_function
2854 zero .ctrl_g-lisp_subr_tv_,0
2855 use Names
2856 .ctrl_g: acc "^g"
2857
2858
2859 use tv
2860 unwind_protect: zero 0,-1
2861 tsx6 pl1_fixup
2862 tra <lisp_prog_fns_>|unwind_protect
2863 zero .unwind_protect-lisp_subr_tv_,2
2864 use Names
2865 .unwind_protect: acc "unwind-protect"
2866
2867
2868 use tv
2869 let: zero 0,-1
2870 tsx6 type_1_subr
2871 tra <lisp_>|let
2872 zero .let-lisp_subr_tv_,2
2873 use Names
2874 .let: acc "let"
2875
2876
2877 use tv
2878 arrayp: zero 1,-1
2879
2880 tra <lisp_quick_fcns_>|arrayp
2881 zero
2882 zero .arrayp-lisp_subr_tv_,0
2883 use Names
2884 .arrayp: acc "arrayp"
2885
2886
2887 use tv
2888 list_star: zero 261633,-1
2889 tsx6 type_1_subr
2890 tra <lisp_alloc_>|list_star_
2891 zero .list_star-lisp_subr_tv_,1
2892 use Names
2893 .list_star: acc "list*"
2894
2895
2896 use tv
2897 eval_when: zero 0,-1
2898 tsx6 pl1_fixup
2899 tra <lisp_prog_fns_>|eval_when
2900 zero .eval_when-lisp_subr_tv_,2
2901 use Names
2902 .eval_when: acc "eval-when"
2903
2904
2905 use tv
2906 read_from_string: zero 1,-1
2907 tsx6 pl1_fixup
2908 tra <lisp_reader_>|read_from_string
2909 zero .read_from_string-lisp_subr_tv_,0
2910 use Names
2911 .read_from_string: acc "read-from-string"
2912
2913
2914 use tv
2915 prog1: zero 261633,-1
2916
2917 tra <lisp_quick_fcns_>|prog1
2918 zero
2919 zero .prog1-lisp_subr_tv_,1
2920 use Names
2921 .prog1: acc "prog1"
2922