Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
cmucl
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
26
Issues
26
List
Boards
Labels
Service Desk
Milestones
Merge Requests
1
Merge Requests
1
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
cmucl
cmucl
Commits
edac2d80
Commit
edac2d80
authored
Jan 13, 1993
by
cvs2git
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
This commit was manufactured by cvs2svn to create branch 'new_struct'.
parent
10b7c474
Changes
876
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
876 changed files
with
0 additions
and
408280 deletions
+0
-408280
assembler/assem.lisp
assembler/assem.lisp
+0
-697
assembler/assembler.lisp
assembler/assembler.lisp
+0
-1693
assembler/disassemble.lisp
assembler/disassemble.lisp
+0
-368
assembler/miscasm.lisp
assembler/miscasm.lisp
+0
-44
assembler/rompconst.lisp
assembler/rompconst.lisp
+0
-1097
assembler/ropdefs.lisp
assembler/ropdefs.lisp
+0
-221
assembly/assemfile.lisp
assembly/assemfile.lisp
+0
-218
assembly/hppa/alloc.lisp
assembly/hppa/alloc.lisp
+0
-24
assembly/hppa/arith.lisp
assembly/hppa/arith.lisp
+0
-282
assembly/hppa/array.lisp
assembly/hppa/array.lisp
+0
-112
assembly/hppa/assem-rtns.lisp
assembly/hppa/assem-rtns.lisp
+0
-218
assembly/hppa/support.lisp
assembly/hppa/support.lisp
+0
-80
assembly/mips/alloc.lisp
assembly/mips/alloc.lisp
+0
-21
assembly/mips/arith.lisp
assembly/mips/arith.lisp
+0
-307
assembly/mips/array.lisp
assembly/mips/array.lisp
+0
-252
assembly/mips/assem-rtns.lisp
assembly/mips/assem-rtns.lisp
+0
-238
assembly/mips/bit-bash.lisp
assembly/mips/bit-bash.lisp
+0
-527
assembly/mips/support.lisp
assembly/mips/support.lisp
+0
-72
assembly/mips/wrlist.lisp
assembly/mips/wrlist.lisp
+0
-304
assembly/rt/alloc.lisp
assembly/rt/alloc.lisp
+0
-95
assembly/rt/arith.lisp
assembly/rt/arith.lisp
+0
-478
assembly/rt/array.lisp
assembly/rt/array.lisp
+0
-124
assembly/rt/assem-rtns.lisp
assembly/rt/assem-rtns.lisp
+0
-319
assembly/rt/support.lisp
assembly/rt/support.lisp
+0
-65
assembly/sparc/alloc.lisp
assembly/sparc/alloc.lisp
+0
-21
assembly/sparc/arith.lisp
assembly/sparc/arith.lisp
+0
-512
assembly/sparc/array.lisp
assembly/sparc/array.lisp
+0
-111
assembly/sparc/assem-rtns.lisp
assembly/sparc/assem-rtns.lisp
+0
-242
assembly/sparc/support.lisp
assembly/sparc/support.lisp
+0
-80
benchmarks/cascor1.lisp
benchmarks/cascor1.lisp
+0
-1470
benchmarks/gabriel/bmarks.lisp
benchmarks/gabriel/bmarks.lisp
+0
-2385
benchmarks/gabriel/ctak.lisp
benchmarks/gabriel/ctak.lisp
+0
-28
benchmarks/gabriel/fft.lisp
benchmarks/gabriel/fft.lisp
+0
-102
benchmarks/gabriel/puzzle.c
benchmarks/gabriel/puzzle.c
+0
-230
benchmarks/gabriel/puzzle.lisp
benchmarks/gabriel/puzzle.lisp
+0
-167
benchmarks/gabriel/tak.lisp
benchmarks/gabriel/tak.lisp
+0
-28
benchmarks/gabriel/triang.lisp
benchmarks/gabriel/triang.lisp
+0
-57
benchmarks/oprofile.lisp
benchmarks/oprofile.lisp
+0
-317
benchmarks/richards/RICHARDS_MAIL
benchmarks/richards/RICHARDS_MAIL
+0
-63
benchmarks/richards/cbase.h
benchmarks/richards/cbase.h
+0
-15
benchmarks/richards/rbase.h
benchmarks/richards/rbase.h
+0
-16
benchmarks/richards/richards.c
benchmarks/richards/richards.c
+0
-235
benchmarks/richards/richards.h
benchmarks/richards/richards.h
+0
-52
benchmarks/richards/richards.lisp
benchmarks/richards/richards.lisp
+0
-407
benchmarks/richards/richards.t
benchmarks/richards/richards.t
+0
-378
benchmarks/richards/tasks.c
benchmarks/richards/tasks.c
+0
-153
benchmarks/richards/tasks.h
benchmarks/richards/tasks.h
+0
-122
benchmarks/richards/types.c
benchmarks/richards/types.c
+0
-28
benchmarks/richards/types.h
benchmarks/richards/types.h
+0
-100
benchmarks/soar/default.soar
benchmarks/soar/default.soar
+0
-705
benchmarks/soar/eight.soar
benchmarks/soar/eight.soar
+0
-269
benchmarks/soar/readme.txt
benchmarks/soar/readme.txt
+0
-8
benchmarks/soar/soar.lisp
benchmarks/soar/soar.lisp
+0
-7273
clx/CHANGES
clx/CHANGES
+0
-40
clx/README
clx/README
+0
-48
clx/attributes.lisp
clx/attributes.lisp
+0
-638
clx/buffer.lisp
clx/buffer.lisp
+0
-1787
clx/bufmac.lisp
clx/bufmac.lisp
+0
-184
clx/build-clx.lisp
clx/build-clx.lisp
+0
-25
clx/clx.lisp
clx/clx.lisp
+0
-922
clx/cmudep.lisp
clx/cmudep.lisp
+0
-19
clx/defsystem.lisp
clx/defsystem.lisp
+0
-530
clx/depdefs.lisp
clx/depdefs.lisp
+0
-652
clx/dependent.lisp
clx/dependent.lisp
+0
-3546
clx/display.lisp
clx/display.lisp
+0
-574
clx/doc.lisp
clx/doc.lisp
+0
-3803
clx/exclMakefile
clx/exclMakefile
+0
-168
clx/exclREADME
clx/exclREADME
+0
-56
clx/exclcmac.lisp
clx/exclcmac.lisp
+0
-260
clx/excldefsys.lisp
clx/excldefsys.lisp
+0
-186
clx/excldep.c
clx/excldep.c
+0
-73
clx/excldep.lisp
clx/excldep.lisp
+0
-449
clx/fonts.lisp
clx/fonts.lisp
+0
-365
clx/gcontext.lisp
clx/gcontext.lisp
+0
-971
clx/generalock.lisp
clx/generalock.lisp
+0
-72
clx/graphics.lisp
clx/graphics.lisp
+0
-447
clx/image.lisp
clx/image.lisp
+0
-2666
clx/input.lisp
clx/input.lisp
+0
-1887
clx/keysyms.lisp
clx/keysyms.lisp
+0
-408
clx/macros.lisp
clx/macros.lisp
+0
-1090
clx/manager.lisp
clx/manager.lisp
+0
-789
clx/ms-patch.uu
clx/ms-patch.uu
+0
-57
clx/package.lisp
clx/package.lisp
+0
-385
clx/provide.lisp
clx/provide.lisp
+0
-56
clx/requests.lisp
clx/requests.lisp
+0
-1491
clx/resource.lisp
clx/resource.lisp
+0
-696
clx/sockcl.lisp
clx/sockcl.lisp
+0
-163
clx/socket.c
clx/socket.c
+0
-153
clx/text.lisp
clx/text.lisp
+0
-1084
clx/translate.lisp
clx/translate.lisp
+0
-563
code/alieneval.lisp
code/alieneval.lisp
+0
-1950
code/array.lisp
code/array.lisp
+0
-980
code/backq.lisp
code/backq.lisp
+0
-298
code/bignum-test.lisp
code/bignum-test.lisp
+0
-104
code/bignum.lisp
code/bignum.lisp
+0
-2563
code/bit-bash.lisp
code/bit-bash.lisp
+0
-518
code/byte-interp.lisp
code/byte-interp.lisp
+0
-1423
code/c-call.lisp
code/c-call.lisp
+0
-88
code/char.lisp
code/char.lisp
+0
-375
code/clx-ext.lisp
code/clx-ext.lisp
+0
-593
code/cmu-site.lisp
code/cmu-site.lisp
+0
-20
code/commandline.lisp
code/commandline.lisp
+0
-192
code/debug-int.lisp
code/debug-int.lisp
+0
-3791
code/debug-vm.lisp
code/debug-vm.lisp
+0
-67
code/debug.lisp
code/debug.lisp
+0
-1621
code/defmacro.lisp
code/defmacro.lisp
+0
-417
code/dyncount.lisp
code/dyncount.lisp
+0
-674
code/eval.lisp
code/eval.lisp
+0
-450
code/fd-stream.lisp
code/fd-stream.lisp
+0
-1504
code/fdefinition.lisp
code/fdefinition.lisp
+0
-299
code/filesys.lisp
code/filesys.lisp
+0
-1156
code/final.lisp
code/final.lisp
+0
-60
code/float-trap.lisp
code/float-trap.lisp
+0
-175
code/float.lisp
code/float.lisp
+0
-844
code/foreign.lisp
code/foreign.lisp
+0
-216
code/format-time.lisp
code/format-time.lisp
+0
-194
code/format.lisp
code/format.lisp
+0
-2371
code/generic-site.lisp
code/generic-site.lisp
+0
-57
code/globals.lisp
code/globals.lisp
+0
-53
code/hppa-vm.lisp
code/hppa-vm.lisp
+0
-232
code/internet.lisp
code/internet.lisp
+0
-370
code/irrat.lisp
code/irrat.lisp
+0
-394
code/kernel.lisp
code/kernel.lisp
+0
-140
code/list.lisp
code/list.lisp
+0
-980
code/mach-os.lisp
code/mach-os.lisp
+0
-77
code/mach.lisp
code/mach.lisp
+0
-168
code/machdef.lisp
code/machdef.lisp
+0
-80
code/mipsstrops.lisp
code/mipsstrops.lisp
+0
-219
code/misc.lisp
code/misc.lisp
+0
-169
code/module.lisp
code/module.lisp
+0
-99
code/ntrace.lisp
code/ntrace.lisp
+0
-674
code/numbers.lisp
code/numbers.lisp
+0
-1226
code/old-loop.lisp
code/old-loop.lisp
+0
-825
code/package.lisp
code/package.lisp
+0
-1455
code/parse-time.lisp
code/parse-time.lisp
+0
-607
code/pathname.lisp
code/pathname.lisp
+0
-2006
code/pmax-disassem.lisp
code/pmax-disassem.lisp
+0
-517
code/pmax-machdef.lisp
code/pmax-machdef.lisp
+0
-39
code/pmax-vm.lisp
code/pmax-vm.lisp
+0
-209
code/pprint.lisp
code/pprint.lisp
+0
-1474
code/profile.lisp
code/profile.lisp
+0
-502
code/purify.lisp
code/purify.lisp
+0
-41
code/query.lisp
code/query.lisp
+0
-79
code/rand.lisp
code/rand.lisp
+0
-119
code/reader.lisp
code/reader.lisp
+0
-1417
code/remote.lisp
code/remote.lisp
+0
-367
code/rt-machdef.lisp
code/rt-machdef.lisp
+0
-36
code/rt-vm.lisp
code/rt-vm.lisp
+0
-183
code/run-program.lisp
code/run-program.lisp
+0
-668
code/sap.lisp
code/sap.lisp
+0
-214
code/save.lisp
code/save.lisp
+0
-237
code/scavhook.lisp
code/scavhook.lisp
+0
-55
code/search-list.lisp
code/search-list.lisp
+0
-159
code/seq.lisp
code/seq.lisp
+0
-2314
code/setf-funs.lisp
code/setf-funs.lisp
+0
-64
code/signal.lisp
code/signal.lisp
+0
-359
code/sort.lisp
code/sort.lisp
+0
-446
code/sparc-machdef.lisp
code/sparc-machdef.lisp
+0
-35
code/sparc-vm.lisp
code/sparc-vm.lisp
+0
-253
code/stream.lisp
code/stream.lisp
+0
-1380
code/string.lisp
code/string.lisp
+0
-554
code/sunos-os.lisp
code/sunos-os.lisp
+0
-82
code/symbol.lisp
code/symbol.lisp
+0
-228
code/time.lisp
code/time.lisp
+0
-387
code/vm.lisp
code/vm.lisp
+0
-83
code/weak.lisp
code/weak.lisp
+0
-46
code/wire.lisp
code/wire.lisp
+0
-668
compiler/aliencomp.lisp
compiler/aliencomp.lisp
+0
-701
compiler/alloc.lisp
compiler/alloc.lisp
+0
-343
compiler/array-tran.lisp
compiler/array-tran.lisp
+0
-571
compiler/backend.lisp
compiler/backend.lisp
+0
-318
compiler/bit-util.lisp
compiler/bit-util.lisp
+0
-57
compiler/byte-comp.lisp
compiler/byte-comp.lisp
+0
-1804
compiler/c.log
compiler/c.log
+0
-2048
compiler/checkgen.lisp
compiler/checkgen.lisp
+0
-533
compiler/codegen.lisp
compiler/codegen.lisp
+0
-289
compiler/constraint.lisp
compiler/constraint.lisp
+0
-518
compiler/control.lisp
compiler/control.lisp
+0
-228
compiler/copyprop.lisp
compiler/copyprop.lisp
+0
-269
compiler/ctype.lisp
compiler/ctype.lisp
+0
-782
compiler/debug-dump.lisp
compiler/debug-dump.lisp
+0
-774
compiler/debug.lisp
compiler/debug.lisp
+0
-1362
compiler/dfo.lisp
compiler/dfo.lisp
+0
-490
compiler/disassem.lisp
compiler/disassem.lisp
+0
-3724
compiler/dyncount.lisp
compiler/dyncount.lisp
+0
-90
compiler/entry.lisp
compiler/entry.lisp
+0
-126
compiler/envanal.lisp
compiler/envanal.lisp
+0
-394
compiler/eval-comp.lisp
compiler/eval-comp.lisp
+0
-308
compiler/eval.lisp
compiler/eval.lisp
+0
-1291
compiler/float-tran.lisp
compiler/float-tran.lisp
+0
-291
compiler/fndb.lisp
compiler/fndb.lisp
+0
-1163
compiler/generic/core.lisp
compiler/generic/core.lisp
+0
-337
compiler/generic/utils.lisp
compiler/generic/utils.lisp
+0
-77
compiler/generic/vm-ir2tran.lisp
compiler/generic/vm-ir2tran.lisp
+0
-153
compiler/generic/vm-macs.lisp
compiler/generic/vm-macs.lisp
+0
-254
compiler/generic/vm-typetran.lisp
compiler/generic/vm-typetran.lisp
+0
-67
compiler/globals.lisp
compiler/globals.lisp
+0
-10
compiler/gtn.lisp
compiler/gtn.lisp
+0
-246
compiler/hppa/alloc.lisp
compiler/hppa/alloc.lisp
+0
-197
compiler/hppa/arith.lisp
compiler/hppa/arith.lisp
+0
-853
compiler/hppa/array.lisp
compiler/hppa/array.lisp
+0
-347
compiler/hppa/c-call.lisp
compiler/hppa/c-call.lisp
+0
-185
compiler/hppa/call.lisp
compiler/hppa/call.lisp
+0
-1224
compiler/hppa/cell.lisp
compiler/hppa/cell.lisp
+0
-273
compiler/hppa/char.lisp
compiler/hppa/char.lisp
+0
-137
compiler/hppa/debug.lisp
compiler/hppa/debug.lisp
+0
-138
compiler/hppa/float.lisp
compiler/hppa/float.lisp
+0
-601
compiler/hppa/insts.lisp
compiler/hppa/insts.lisp
+0
-1544
compiler/hppa/macros.lisp
compiler/hppa/macros.lisp
+0
-401
compiler/hppa/memory.lisp
compiler/hppa/memory.lisp
+0
-106
compiler/hppa/move.lisp
compiler/hppa/move.lisp
+0
-309
compiler/hppa/nlx.lisp
compiler/hppa/nlx.lisp
+0
-273
compiler/hppa/parms.lisp
compiler/hppa/parms.lisp
+0
-213
compiler/hppa/pred.lisp
compiler/hppa/pred.lisp
+0
-43
compiler/hppa/print.lisp
compiler/hppa/print.lisp
+0
-48
compiler/hppa/sap.lisp
compiler/hppa/sap.lisp
+0
-286
compiler/hppa/static-fn.lisp
compiler/hppa/static-fn.lisp
+0
-144
compiler/hppa/subprim.lisp
compiler/hppa/subprim.lisp
+0
-58
compiler/hppa/system.lisp
compiler/hppa/system.lisp
+0
-230
compiler/hppa/type-vops.lisp
compiler/hppa/type-vops.lisp
+0
-492
compiler/hppa/values.lisp
compiler/hppa/values.lisp
+0
-89
compiler/hppa/vm.lisp
compiler/hppa/vm.lisp
+0
-359
compiler/ir1final.lisp
compiler/ir1final.lisp
+0
-139
compiler/ir1opt.lisp
compiler/ir1opt.lisp
+0
-1658
compiler/ir1util.lisp
compiler/ir1util.lisp
+0
-2145
compiler/life.lisp
compiler/life.lisp
+0
-1132
compiler/loadbackend.lisp
compiler/loadbackend.lisp
+0
-70
compiler/loadcom.lisp
compiler/loadcom.lisp
+0
-78
compiler/locall.lisp
compiler/locall.lisp
+0
-1058
compiler/ltn.lisp
compiler/ltn.lisp
+0
-1105
compiler/ltv.lisp
compiler/ltv.lisp
+0
-60
compiler/macros.lisp
compiler/macros.lisp
+0
-1155
compiler/mips/alloc.lisp
compiler/mips/alloc.lisp
+0
-234
compiler/mips/arith.lisp
compiler/mips/arith.lisp
+0
-926
compiler/mips/array.lisp
compiler/mips/array.lisp
+0
-445
compiler/mips/c-call.lisp
compiler/mips/c-call.lisp
+0
-201
compiler/mips/char.lisp
compiler/mips/char.lisp
+0
-136
compiler/mips/debug.lisp
compiler/mips/debug.lisp
+0
-149
compiler/mips/float.lisp
compiler/mips/float.lisp
+0
-424
compiler/mips/insts.lisp
compiler/mips/insts.lisp
+0
-1273
compiler/mips/macros.lisp
compiler/mips/macros.lisp
+0
-485
compiler/mips/memory.lisp
compiler/mips/memory.lisp
+0
-73
compiler/mips/mips-regs.txt
compiler/mips/mips-regs.txt
+0
-60
compiler/mips/move.lisp
compiler/mips/move.lisp
+0
-323
compiler/mips/nlx.lisp
compiler/mips/nlx.lisp
+0
-328
compiler/mips/notes.txt
compiler/mips/notes.txt
+0
-161
compiler/mips/pred.lisp
compiler/mips/pred.lisp
+0
-63
compiler/mips/print.lisp
compiler/mips/print.lisp
+0
-41
compiler/mips/random-doc.txt
compiler/mips/random-doc.txt
+0
-351
compiler/mips/sap.lisp
compiler/mips/sap.lisp
+0
-321
compiler/mips/static-fn.lisp
compiler/mips/static-fn.lisp
+0
-147
compiler/mips/subprim.lisp
compiler/mips/subprim.lisp
+0
-64
compiler/mips/system.lisp
compiler/mips/system.lisp
+0
-323
compiler/mips/utils.lisp
compiler/mips/utils.lisp
+0
-80
compiler/mips/values.lisp
compiler/mips/values.lisp
+0
-98
compiler/mips/vm.lisp
compiler/mips/vm.lisp
+0
-363
compiler/new-assem.lisp
compiler/new-assem.lisp
+0
-1778
compiler/old-rt/arith.lisp
compiler/old-rt/arith.lisp
+0
-196
compiler/old-rt/array.lisp
compiler/old-rt/array.lisp
+0
-106
compiler/old-rt/assem-insts.lisp
compiler/old-rt/assem-insts.lisp
+0
-286
compiler/old-rt/assem-macs.lisp
compiler/old-rt/assem-macs.lisp
+0
-296
compiler/old-rt/call.lisp
compiler/old-rt/call.lisp
+0
-985
compiler/old-rt/cell.lisp
compiler/old-rt/cell.lisp
+0
-166
compiler/old-rt/char.lisp
compiler/old-rt/char.lisp
+0
-166
compiler/old-rt/core.lisp
compiler/old-rt/core.lisp
+0
-171
compiler/old-rt/dump.lisp
compiler/old-rt/dump.lisp
+0
-1062
compiler/old-rt/fop.lisp
compiler/old-rt/fop.lisp
+0
-14
compiler/old-rt/genesis.lisp
compiler/old-rt/genesis.lisp
+0
-1574
compiler/old-rt/memory.lisp
compiler/old-rt/memory.lisp
+0
-147
compiler/old-rt/miscop.lisp
compiler/old-rt/miscop.lisp
+0
-197
compiler/old-rt/move.lisp
compiler/old-rt/move.lisp
+0
-101
compiler/old-rt/nlx.lisp
compiler/old-rt/nlx.lisp
+0
-221
compiler/old-rt/odump.lisp
compiler/old-rt/odump.lisp
+0
-852
compiler/old-rt/parms.lisp
compiler/old-rt/parms.lisp
+0
-80
compiler/old-rt/pred.lisp
compiler/old-rt/pred.lisp
+0
-48
compiler/old-rt/print.lisp
compiler/old-rt/print.lisp
+0
-27
compiler/old-rt/subprim.lisp
compiler/old-rt/subprim.lisp
+0
-164
compiler/old-rt/system.lisp
compiler/old-rt/system.lisp
+0
-172
compiler/old-rt/type-vops.lisp
compiler/old-rt/type-vops.lisp
+0
-287
compiler/old-rt/values.lisp
compiler/old-rt/values.lisp
+0
-64
compiler/old-rt/vm-tran.lisp
compiler/old-rt/vm-tran.lisp
+0
-103
compiler/old-rt/vm-type.lisp
compiler/old-rt/vm-type.lisp
+0
-137
compiler/old-rt/vm.lisp
compiler/old-rt/vm.lisp
+0
-386
compiler/pack.lisp
compiler/pack.lisp
+0
-1555
compiler/profile.lisp
compiler/profile.lisp
+0
-88
compiler/pseudo-vops.lisp
compiler/pseudo-vops.lisp
+0
-43
compiler/represent.lisp
compiler/represent.lisp
+0
-722
compiler/rt/afpa.lisp
compiler/rt/afpa.lisp
+0
-486
compiler/rt/alloc.lisp
compiler/rt/alloc.lisp
+0
-139
compiler/rt/arith.lisp
compiler/rt/arith.lisp
+0
-920
compiler/rt/array.lisp
compiler/rt/array.lisp
+0
-584
compiler/rt/c-call.lisp
compiler/rt/c-call.lisp
+0
-217
compiler/rt/call.lisp
compiler/rt/call.lisp
+0
-1158
compiler/rt/cell.lisp
compiler/rt/cell.lisp
+0
-348
compiler/rt/char.lisp
compiler/rt/char.lisp
+0
-167
compiler/rt/debug.lisp
compiler/rt/debug.lisp
+0
-149
compiler/rt/insts.lisp
compiler/rt/insts.lisp
+0
-1437
compiler/rt/macros.lisp
compiler/rt/macros.lisp
+0
-540
compiler/rt/mc68881.lisp
compiler/rt/mc68881.lisp
+0
-564
compiler/rt/memory.lisp
compiler/rt/memory.lisp
+0
-182
compiler/rt/move.lisp
compiler/rt/move.lisp
+0
-356
compiler/rt/nlx.lisp
compiler/rt/nlx.lisp
+0
-302
compiler/rt/params.lisp
compiler/rt/params.lisp
+0
-220
compiler/rt/pred.lisp
compiler/rt/pred.lisp
+0
-53
compiler/rt/print.lisp
compiler/rt/print.lisp
+0
-47
compiler/rt/sap.lisp
compiler/rt/sap.lisp
+0
-413
compiler/rt/static-fn.lisp
compiler/rt/static-fn.lisp
+0
-146
compiler/rt/subprim.lisp
compiler/rt/subprim.lisp
+0
-63
compiler/rt/system.lisp
compiler/rt/system.lisp
+0
-244
compiler/rt/type-vops.lisp
compiler/rt/type-vops.lisp
+0
-474
compiler/rt/values.lisp
compiler/rt/values.lisp
+0
-102
compiler/rt/vm.lisp
compiler/rt/vm.lisp
+0
-684
compiler/saptran.lisp
compiler/saptran.lisp
+0
-129
compiler/seqtran.lisp
compiler/seqtran.lisp
+0
-470
compiler/sparc/alloc.lisp
compiler/sparc/alloc.lisp
+0
-192
compiler/sparc/arith.lisp
compiler/sparc/arith.lisp
+0
-774
compiler/sparc/array.lisp
compiler/sparc/array.lisp
+0
-428
compiler/sparc/c-call.lisp
compiler/sparc/c-call.lisp
+0
-180
compiler/sparc/call.lisp
compiler/sparc/call.lisp
+0
-1239
compiler/sparc/cell.lisp
compiler/sparc/cell.lisp
+0
-288
compiler/sparc/char.lisp
compiler/sparc/char.lisp
+0
-148
compiler/sparc/debug.lisp
compiler/sparc/debug.lisp
+0
-128
compiler/sparc/float.lisp
compiler/sparc/float.lisp
+0
-520
compiler/sparc/insts.lisp
compiler/sparc/insts.lisp
+0
-890
compiler/sparc/macros.lisp
compiler/sparc/macros.lisp
+0
-438
compiler/sparc/memory.lisp
compiler/sparc/memory.lisp
+0
-116
compiler/sparc/move.lisp
compiler/sparc/move.lisp
+0
-324
compiler/sparc/nlx.lisp
compiler/sparc/nlx.lisp
+0
-279
compiler/sparc/parms.lisp
compiler/sparc/parms.lisp
+0
-238
compiler/sparc/pred.lisp
compiler/sparc/pred.lisp
+0
-46
compiler/sparc/print.lisp
compiler/sparc/print.lisp
+0
-41
compiler/sparc/sap.lisp
compiler/sparc/sap.lisp
+0
-287
compiler/sparc/static-fn.lisp
compiler/sparc/static-fn.lisp
+0
-150
compiler/sparc/subprim.lisp
compiler/sparc/subprim.lisp
+0
-62
compiler/sparc/system.lisp
compiler/sparc/system.lisp
+0
-245
compiler/sparc/type-vops.lisp
compiler/sparc/type-vops.lisp
+0
-421
compiler/sparc/values.lisp
compiler/sparc/values.lisp
+0
-91
compiler/sparc/vm.lisp
compiler/sparc/vm.lisp
+0
-340
compiler/srctran.lisp
compiler/srctran.lisp
+0
-1587
compiler/sset.lisp
compiler/sset.lisp
+0
-300
compiler/stack.lisp
compiler/stack.lisp
+0
-259
compiler/statcount.lisp
compiler/statcount.lisp
+0
-166
compiler/tn.lisp
compiler/tn.lisp
+0
-572
compiler/vmdef.lisp
compiler/vmdef.lisp
+0
-281
contrib/CATALOG.TXT
contrib/CATALOG.TXT
+0
-291
contrib/READ-ME.TXT
contrib/READ-ME.TXT
+0
-132
contrib/defsystem/defsystem.lisp
contrib/defsystem/defsystem.lisp
+0
-1217
contrib/defsystem/defsystem.ps
contrib/defsystem/defsystem.ps
+0
-1118
contrib/demos/demos.catalog
contrib/demos/demos.catalog
+0
-38
contrib/demos/demos.lisp
contrib/demos/demos.lisp
+0
-1038
contrib/follow-mouse/follow-mouse.catalog
contrib/follow-mouse/follow-mouse.catalog
+0
-46
contrib/follow-mouse/follow-mouse.lisp
contrib/follow-mouse/follow-mouse.lisp
+0
-152
contrib/games/feebs/brains.lisp
contrib/games/feebs/brains.lisp
+0
-58
contrib/games/feebs/feebs.catalog
contrib/games/feebs/feebs.catalog
+0
-37
contrib/games/feebs/feebs.lisp
contrib/games/feebs/feebs.lisp
+0
-1779
contrib/games/feebs/feebs.log
contrib/games/feebs/feebs.log
+0
-90
contrib/games/feebs/feebs.mss
contrib/games/feebs/feebs.mss
+0
-556
contrib/games/feebs/mazes.lisp
contrib/games/feebs/mazes.lisp
+0
-238
contrib/hist/hist.catalog
contrib/hist/hist.catalog
+0
-53
contrib/hist/hist.lisp
contrib/hist/hist.lisp
+0
-89
contrib/library-maintenance/catalog-cat.lisp
contrib/library-maintenance/catalog-cat.lisp
+0
-64
contrib/library-maintenance/compile-lib.lisp
contrib/library-maintenance/compile-lib.lisp
+0
-21
contrib/library-maintenance/old-catalog-format.txt
contrib/library-maintenance/old-catalog-format.txt
+0
-72
contrib/ops/b.ops
contrib/ops/b.ops
+0
-181
contrib/ops/bug.ops
contrib/ops/bug.ops
+0
-15
contrib/ops/ceramic.ops
contrib/ops/ceramic.ops
+0
-348
contrib/ops/compile-ops.lisp
contrib/ops/compile-ops.lisp
+0
-12
contrib/ops/dec.ops
contrib/ops/dec.ops
+0
-299
contrib/ops/fbug.ops
contrib/ops/fbug.ops
+0
-3089
contrib/ops/haunt.ops
contrib/ops/haunt.ops
+0
-6745
contrib/ops/mab.ops
contrib/ops/mab.ops
+0
-174
contrib/ops/myw.ops
contrib/ops/myw.ops
+0
-9029
contrib/ops/ops-backup.lisp
contrib/ops/ops-backup.lisp
+0
-196
contrib/ops/ops-compile.lisp
contrib/ops/ops-compile.lisp
+0
-805
contrib/ops/ops-io.lisp
contrib/ops/ops-io.lisp
+0
-541
contrib/ops/ops-main.lisp
contrib/ops/ops-main.lisp
+0
-726
contrib/ops/ops-match.lisp
contrib/ops/ops-match.lisp
+0
-749
contrib/ops/ops-rhs.lisp
contrib/ops/ops-rhs.lisp
+0
-646
contrib/ops/ops-util.lisp
contrib/ops/ops-util.lisp
+0
-242
contrib/ops/ops.catalog
contrib/ops/ops.catalog
+0
-43
contrib/ops/ops.lisp
contrib/ops/ops.lisp
+0
-42
contrib/ops/pp.ops
contrib/ops/pp.ops
+0
-53
contrib/ops/rubik.ops
contrib/ops/rubik.ops
+0
-2026
contrib/ops/test1.ops
contrib/ops/test1.ops
+0
-21
contrib/ops/test2.ops
contrib/ops/test2.ops
+0
-74
contrib/ops/test3.ops
contrib/ops/test3.ops
+0
-110
contrib/ops/tourney.ops
contrib/ops/tourney.ops
+0
-299
contrib/ops/ttt.ops
contrib/ops/ttt.ops
+0
-308
contrib/ops/weaver.ops
contrib/ops/weaver.ops
+0
-8850
contrib/psgraph/psgraph.catalog
contrib/psgraph/psgraph.catalog
+0
-61
contrib/psgraph/psgraph.doc
contrib/psgraph/psgraph.doc
+0
-125
contrib/psgraph/psgraph.lisp
contrib/psgraph/psgraph.lisp
+0
-506
contrib/psgraph/psgraph.log
contrib/psgraph/psgraph.log
+0
-18
docs/cmu-user/cmu-user.dict
docs/cmu-user/cmu-user.dict
+0
-460
docs/cmu-user/cmu-user.tex
docs/cmu-user/cmu-user.tex
+0
-11506
docs/database/cmulisp-fmt.el
docs/database/cmulisp-fmt.el
+0
-146
docs/database/cmulisp.sty
docs/database/cmulisp.sty
+0
-119
docs/database/dbolio.lib
docs/database/dbolio.lib
+0
-324
docs/database/hem.lib
docs/database/hem.lib
+0
-71
docs/database/outtir.lib
docs/database/outtir.lib
+0
-329
docs/database/spice.lib
docs/database/spice.lib
+0
-67
docs/database/spicer.fon
docs/database/spicer.fon
+0
-230
docs/database/table.lib
docs/database/table.lib
+0
-27
docs/database/uttir.lib
docs/database/uttir.lib
+0
-329
docs/doc-diff.lisp
docs/doc-diff.lisp
+0
-384
docs/hem/cim/aux-sys.mss
docs/hem/cim/aux-sys.mss
+0
-694
docs/hem/cim/cim.mss
docs/hem/cim/cim.mss
+0
-4039
docs/hem/hem-docs.log
docs/hem/hem-docs.log
+0
-43
docs/hem/hem.dict
docs/hem/hem.dict
+0
-446
docs/hem/user/commands.mss
docs/hem/user/commands.mss
+0
-822
docs/hem/user/intro.mss
docs/hem/user/intro.mss
+0
-1127
docs/hem/user/lisp.mss
docs/hem/user/lisp.mss
+0
-822
docs/hem/user/mail.mss
docs/hem/user/mail.mss
+0
-1343
docs/hem/user/netnews.mss
docs/hem/user/netnews.mss
+0
-488
docs/hem/user/special-modes.mss
docs/hem/user/special-modes.mss
+0
-738
docs/hem/user/user.mss
docs/hem/user/user.mss
+0
-2003
docs/internals/architecture.tex
docs/internals/architecture.tex
+0
-306
docs/internals/back.tex
docs/internals/back.tex
+0
-725
docs/internals/compiler-overview.tex
docs/internals/compiler-overview.tex
+0
-540
docs/internals/compiler.tex
docs/internals/compiler.tex
+0
-6
docs/internals/debugger.tex
docs/internals/debugger.tex
+0
-537
docs/internals/design.tex
docs/internals/design.tex
+0
-18
docs/internals/environment.tex
docs/internals/environment.tex
+0
-3
docs/internals/fasl.tex
docs/internals/fasl.tex
+0
-584
docs/internals/front.tex
docs/internals/front.tex
+0
-943
docs/internals/glossary.tex
docs/internals/glossary.tex
+0
-411
docs/internals/interface.tex
docs/internals/interface.tex
+0
-6
docs/internals/internal-design.txt
docs/internals/internal-design.txt
+0
-694
docs/internals/interpreter.tex
docs/internals/interpreter.tex
+0
-191
docs/internals/lowlev.tex
docs/internals/lowlev.tex
+0
-10
docs/internals/middle.tex
docs/internals/middle.tex
+0
-649
docs/internals/object.tex
docs/internals/object.tex
+0
-713
docs/internals/outline.txt
docs/internals/outline.txt
+0
-120
docs/internals/retargeting.tex
docs/internals/retargeting.tex
+0
-1082
docs/internals/run-time.tex
docs/internals/run-time.tex
+0
-7
docs/internals/vm.tex
docs/internals/vm.tex
+0
-1454
docs/rtguts.mss
docs/rtguts.mss
+0
-4150
general-info/alpha-notes-thru-92.txt
general-info/alpha-notes-thru-92.txt
+0
-3056
general-info/beta-release-notes.txt
general-info/beta-release-notes.txt
+0
-766
general-info/bugs.txt
general-info/bugs.txt
+0
-20
general-info/cmu-README.txt
general-info/cmu-README.txt
+0
-38
general-info/cmucl.1
general-info/cmucl.1
+0
-322
general-info/lisp.1
general-info/lisp.1
+0
-175
general-info/net-README.txt
general-info/net-README.txt
+0
-149
general-info/omega-release-notes.txt
general-info/omega-release-notes.txt
+0
-777
general-info/tech-report.txt
general-info/tech-report.txt
+0
-6
hemlock/abbrev.lisp
hemlock/abbrev.lisp
+0
-685
hemlock/auto-save.lisp
hemlock/auto-save.lisp
+0
-396
hemlock/bindings.lisp
hemlock/bindings.lisp
+0
-770
hemlock/bit-display.lisp
hemlock/bit-display.lisp
+0
-293
hemlock/bit-screen.lisp
hemlock/bit-screen.lisp
+0
-1809
hemlock/bit-stream.lisp
hemlock/bit-stream.lisp
+0
-149
hemlock/bufed.lisp
hemlock/bufed.lisp
+0
-288
hemlock/buffer.lisp
hemlock/buffer.lisp
+0
-630
hemlock/charmacs.lisp
hemlock/charmacs.lisp
+0
-118
hemlock/command.lisp
hemlock/command.lisp
+0
-490
hemlock/comments.lisp
hemlock/comments.lisp
+0
-410
hemlock/compilation.order
hemlock/compilation.order
+0
-250
hemlock/completion.lisp
hemlock/completion.lisp
+0
-519
hemlock/cursor.lisp
hemlock/cursor.lisp
+0
-423
hemlock/debug.lisp
hemlock/debug.lisp
+0
-532
hemlock/defsyn.lisp
hemlock/defsyn.lisp
+0
-160
hemlock/dired.lisp
hemlock/dired.lisp
+0
-697
hemlock/diredcoms.lisp
hemlock/diredcoms.lisp
+0
-896
hemlock/display.lisp
hemlock/display.lisp
+0
-312
hemlock/doccoms.lisp
hemlock/doccoms.lisp
+0
-429
hemlock/echo.lisp
hemlock/echo.lisp
+0
-743
hemlock/echocoms.lisp
hemlock/echocoms.lisp
+0
-318
hemlock/ed-integrity.lisp
hemlock/ed-integrity.lisp
+0
-167
hemlock/edit-defs.lisp
hemlock/edit-defs.lisp
+0
-312
hemlock/eval-server.lisp
hemlock/eval-server.lisp
+0
-1033
hemlock/filecoms.lisp
hemlock/filecoms.lisp
+0
-1058
hemlock/files.lisp
hemlock/files.lisp
+0
-202
hemlock/fill.lisp
hemlock/fill.lisp
+0
-738
hemlock/font.lisp
hemlock/font.lisp
+0
-122
hemlock/gosmacs.lisp
hemlock/gosmacs.lisp
+0
-35
hemlock/group.lisp
hemlock/group.lisp
+0
-237
hemlock/hacks.lisp
hemlock/hacks.lisp
+0
-25
hemlock/hemlock.log
hemlock/hemlock.log
+0
-4514
hemlock/hemlock.upd
hemlock/hemlock.upd
+0
-104
hemlock/hi-integrity.lisp
hemlock/hi-integrity.lisp
+0
-54
hemlock/highlight.lisp
hemlock/highlight.lisp
+0
-221
hemlock/htext1.lisp
hemlock/htext1.lisp
+0
-648
hemlock/htext2.lisp
hemlock/htext2.lisp
+0
-500
hemlock/htext3.lisp
hemlock/htext3.lisp
+0
-238
hemlock/htext4.lisp
hemlock/htext4.lisp
+0
-419
hemlock/hunk-draw.lisp
hemlock/hunk-draw.lisp
+0
-474
hemlock/icom.lisp
hemlock/icom.lisp
+0
-76
hemlock/indent.lisp
hemlock/indent.lisp
+0
-287
hemlock/input.lisp
hemlock/input.lisp
+0
-445
hemlock/interp.lisp
hemlock/interp.lisp
+0
-484
hemlock/kbdmac.lisp
hemlock/kbdmac.lisp
+0
-469
hemlock/key-event.lisp
hemlock/key-event.lisp
+0
-752
hemlock/keysym-defs.lisp
hemlock/keysym-defs.lisp
+0
-251
hemlock/keytran.lisp
hemlock/keytran.lisp
+0
-185
hemlock/keytrandefs.lisp
hemlock/keytrandefs.lisp
+0
-186
hemlock/killcoms.lisp
hemlock/killcoms.lisp
+0
-489
hemlock/line.lisp
hemlock/line.lisp
+0
-160
hemlock/linimage.lisp
hemlock/linimage.lisp
+0
-521
hemlock/lisp-lib.lisp
hemlock/lisp-lib.lisp
+0
-183
hemlock/lispbuf.lisp
hemlock/lispbuf.lisp
+0
-768
hemlock/lispeval.lisp
hemlock/lispeval.lisp
+0
-977
hemlock/lispmode.lisp
hemlock/lispmode.lisp
+0
-1479
hemlock/macros.lisp
hemlock/macros.lisp
+0
-684
hemlock/main.lisp
hemlock/main.lisp
+0
-376
hemlock/mh.lisp
hemlock/mh.lisp
+0
-3170
hemlock/morecoms.lisp
hemlock/morecoms.lisp
+0
-858
hemlock/netnews.lisp
hemlock/netnews.lisp
+0
-2391
hemlock/notes.txt
hemlock/notes.txt
+0
-27
hemlock/overwrite.lisp
hemlock/overwrite.lisp
+0
-67
hemlock/pascal.lisp
hemlock/pascal.lisp
+0
-48
hemlock/perq-hemlock.log
hemlock/perq-hemlock.log
+0
-146
hemlock/pop-up-stream.lisp
hemlock/pop-up-stream.lisp
+0
-226
hemlock/rcs.lisp
hemlock/rcs.lisp
+0
-518
hemlock/register.lisp
hemlock/register.lisp
+0
-181
hemlock/ring.lisp
hemlock/ring.lisp
+0
-208
hemlock/rompsite.lisp
hemlock/rompsite.lisp
+0
-1065
hemlock/screen.lisp
hemlock/screen.lisp
+0
-200
hemlock/scribe.lisp
hemlock/scribe.lisp
+0
-499
hemlock/search1.lisp
hemlock/search1.lisp
+0
-656
hemlock/search2.lisp
hemlock/search2.lisp
+0
-207
hemlock/searchcoms.lisp
hemlock/searchcoms.lisp
+0
-643
hemlock/shell.lisp
hemlock/shell.lisp
+0
-395
hemlock/spell-aug.lisp
hemlock/spell-aug.lisp
+0
-237
hemlock/spell-build.lisp
hemlock/spell-build.lisp
+0
-248
hemlock/spell-corr.lisp
hemlock/spell-corr.lisp
+0
-815
hemlock/spell-dictionary.text
hemlock/spell-dictionary.text
+0
-15505
hemlock/spell-rt.lisp
hemlock/spell-rt.lisp
+0
-99
hemlock/spellcoms.lisp
hemlock/spellcoms.lisp
+0
-814
hemlock/srccom.lisp
hemlock/srccom.lisp
+0
-484
hemlock/streams.lisp
hemlock/streams.lisp
+0
-297
hemlock/struct-ed.lisp
hemlock/struct-ed.lisp
+0
-42
hemlock/struct.lisp
hemlock/struct.lisp
+0
-627
hemlock/syntax.lisp
hemlock/syntax.lisp
+0
-571
hemlock/table.lisp
hemlock/table.lisp
+0
-751
hemlock/termcap.lisp
hemlock/termcap.lisp
+0
-439
hemlock/text.lisp
hemlock/text.lisp
+0
-572
hemlock/things-to-do.txt
hemlock/things-to-do.txt
+0
-621
hemlock/ts-buf.lisp
hemlock/ts-buf.lisp
+0
-313
hemlock/ts-stream.lisp
hemlock/ts-stream.lisp
+0
-378
hemlock/tty-disp-rt.lisp
hemlock/tty-disp-rt.lisp
+0
-185
hemlock/tty-display.lisp
hemlock/tty-display.lisp
+0
-1104
hemlock/tty-screen.lisp
hemlock/tty-screen.lisp
+0
-400
hemlock/tty-stream.lisp
hemlock/tty-stream.lisp
+0
-160
hemlock/undo.lisp
hemlock/undo.lisp
+0
-225
hemlock/unixcoms.lisp
hemlock/unixcoms.lisp
+0
-255
hemlock/vars.lisp
hemlock/vars.lisp
+0
-304
hemlock/window.lisp
hemlock/window.lisp
+0
-679
hemlock/winimage.lisp
hemlock/winimage.lisp
+0
-335
hemlock/xcoms.lisp
hemlock/xcoms.lisp
+0
-42
interface/debug.lisp
interface/debug.lisp
+0
-446
interface/initial.lisp
interface/initial.lisp
+0
-16
interface/inspect.lisp
interface/inspect.lisp
+0
-502
interface/interface.lisp
interface/interface.lisp
+0
-721
ldb/Makefile.boot
ldb/Makefile.boot
+0
-8
ldb/Makefile.orig
ldb/Makefile.orig
+0
-153
ldb/alloc.c
ldb/alloc.c
+0
-122
ldb/alloc.h
ldb/alloc.h
+0
-3
ldb/arch.h
ldb/arch.h
+0
-8
ldb/backtrace.c
ldb/backtrace.c
+0
-222
ldb/bitbash.c
ldb/bitbash.c
+0
-72
ldb/breakpoint.c
ldb/breakpoint.c
+0
-166
ldb/core.h
ldb/core.h
+0
-33
ldb/coreparse.c
ldb/coreparse.c
+0
-143
ldb/dynbind.c
ldb/dynbind.c
+0
-69
ldb/egets.c
ldb/egets.c
+0
-628
ldb/fake-mach.c
ldb/fake-mach.c
+0
-53
ldb/gc.c
ldb/gc.c
+0
-1938
ldb/gc.h
ldb/gc.h
+0
-33
ldb/globals.c
ldb/globals.c
+0
-66
ldb/globals.h
ldb/globals.h
+0
-68
ldb/interrupt.c
ldb/interrupt.c
+0
-417
ldb/interrupt.h
ldb/interrupt.h
+0
-38
ldb/ldb.c
ldb/ldb.c
+0
-160
ldb/ldb.h
ldb/ldb.h
+0
-25
ldb/lispregs.h
ldb/lispregs.h
+0
-17
ldb/mach-os.c
ldb/mach-os.c
+0
-180
ldb/mach-os.h
ldb/mach-os.h
+0
-13
ldb/mips-arch.c
ldb/mips-arch.c
+0
-144
ldb/mips-assem.s
ldb/mips-assem.s
+0
-356
ldb/mips-lispregs.h
ldb/mips-lispregs.h
+0
-50
ldb/monitor.c
ldb/monitor.c
+0
-494
ldb/os-common.c
ldb/os-common.c
+0
-95
ldb/os.h
ldb/os.h
+0
-47
ldb/pager.c
ldb/pager.c
+0
-587
ldb/pager.h
ldb/pager.h
+0
-47
ldb/pagerlog.c
ldb/pagerlog.c
+0
-50
ldb/parse.c
ldb/parse.c
+0
-360
ldb/parse.h
ldb/parse.h
+0
-9
ldb/print.c
ldb/print.c
+0
-585
ldb/print.h
ldb/print.h
+0
-5
ldb/purify.c
ldb/purify.c
+0
-736
ldb/regnames.c
ldb/regnames.c
+0
-5
ldb/rt-arch.c
ldb/rt-arch.c
+0
-164
ldb/rt-assem.s
ldb/rt-assem.s
+0
-260
ldb/rt-lispregs.h
ldb/rt-lispregs.h
+0
-32
ldb/save.c
ldb/save.c
+0
-347
ldb/search.c
ldb/search.c
+0
-45
ldb/signal.h
ldb/signal.h
+0
-32
ldb/socket.c
ldb/socket.c
+0
-144
ldb/sparc-arch.c
ldb/sparc-arch.c
+0
-201
ldb/sparc-assem.s
ldb/sparc-assem.s
+0
-475
ldb/sparc-lispregs.h
ldb/sparc-lispregs.h
+0
-64
ldb/sunos-os.c
ldb/sunos-os.c
+0
-701
ldb/sunos-os.h
ldb/sunos-os.h
+0
-13
ldb/test.c
ldb/test.c
+0
-264
ldb/undefineds.src
ldb/undefineds.src
+0
-163
ldb/validate.c
ldb/validate.c
+0
-63
ldb/validate.h
ldb/validate.h
+0
-49
ldb/vars.c
ldb/vars.c
+0
-185
ldb/vars.h
ldb/vars.h
+0
-13
ldb/version.c
ldb/version.c
+0
-2
lisp/Config.parisc_mach
lisp/Config.parisc_mach
+0
-16
lisp/Config.pmax_mach
lisp/Config.pmax_mach
+0
-12
lisp/Config.sun4_mach
lisp/Config.sun4_mach
+0
-11
lisp/Config.sun4c_41
lisp/Config.sun4c_41
+0
-11
lisp/GNUmakefile
lisp/GNUmakefile
+0
-52
lisp/alloc.c
lisp/alloc.c
+0
-116
lisp/alloc.h
lisp/alloc.h
+0
-13
lisp/arch.h
lisp/arch.h
+0
-25
lisp/backtrace.c
lisp/backtrace.c
+0
-230
lisp/breakpoint.c
lisp/breakpoint.c
+0
-125
lisp/breakpoint.h
lisp/breakpoint.h
+0
-17
lisp/core.h
lisp/core.h
+0
-45
lisp/coreparse.c
lisp/coreparse.c
+0
-140
lisp/dynbind.c
lisp/dynbind.c
+0
-68
lisp/dynbind.h
lisp/dynbind.h
+0
-10
lisp/gc.h
lisp/gc.h
+0
-22
lisp/globals.c
lisp/globals.c
+0
-53
lisp/globals.h
lisp/globals.h
+0
-62
lisp/hppa-arch.c
lisp/hppa-arch.c
+0
-281
lisp/hppa-assem.S
lisp/hppa-assem.S
+0
-324
lisp/hppa-assem.s
lisp/hppa-assem.s
+0
-324
lisp/hppa-lispregs.h
lisp/hppa-lispregs.h
+0
-59
lisp/hppa-validate.h
lisp/hppa-validate.h
+0
-20
lisp/interr.c
lisp/interr.c
+0
-150
lisp/interr.h
lisp/interr.h
+0
-16
lisp/interrupt.c
lisp/interrupt.c
+0
-335
lisp/interrupt.h
lisp/interrupt.h
+0
-44
lisp/lisp.c
lisp/lisp.c
+0
-217
lisp/lisp.h
lisp/lisp.h
+0
-43
lisp/lispregs.h
lisp/lispregs.h
+0
-25
lisp/mach-os.c
lisp/mach-os.c
+0
-169
lisp/mach-os.h
lisp/mach-os.h
+0
-12
lisp/mips-arch.c
lisp/mips-arch.c
+0
-297
lisp/mips-assem.S
lisp/mips-assem.S
+0
-363
lisp/mips-lispregs.h
lisp/mips-lispregs.h
+0
-58
lisp/mips-validate.h
lisp/mips-validate.h
+0
-19
lisp/monitor.c
lisp/monitor.c
+0
-482
lisp/monitor.h
lisp/monitor.h
+0
-4
lisp/os-common.c
lisp/os-common.c
+0
-91
lisp/os.h
lisp/os.h
+0
-56
lisp/parse.c
lisp/parse.c
+0
-361
lisp/parse.h
lisp/parse.h
+0
-9
lisp/print.h
lisp/print.h
+0
-14
lisp/purify.h
lisp/purify.h
+0
-10
lisp/regnames.c
lisp/regnames.c
+0
-5
lisp/save.c
lisp/save.c
+0
-229
lisp/save.h
lisp/save.h
+0
-14
lisp/search.c
lisp/search.c
+0
-44
lisp/search.h
lisp/search.h
+0
-11
lisp/socket.c
lisp/socket.c
+0
-144
lisp/sparc-arch.c
lisp/sparc-arch.c
+0
-300
lisp/sparc-assem.S
lisp/sparc-assem.S
+0
-495
lisp/sparc-lispregs.h
lisp/sparc-lispregs.h
+0
-77
lisp/sparc-validate.h
lisp/sparc-validate.h
+0
-23
lisp/sunos-os.c
lisp/sunos-os.c
+0
-700
lisp/sunos-os.h
lisp/sunos-os.h
+0
-13
lisp/undefineds.c
lisp/undefineds.c
+0
-18
lisp/undefineds.h
lisp/undefineds.h
+0
-157
lisp/validate.c
lisp/validate.c
+0
-65
lisp/validate.h
lisp/validate.h
+0
-28
lisp/vars.c
lisp/vars.c
+0
-173
lisp/vars.h
lisp/vars.h
+0
-15
lisp/version.c
lisp/version.c
+0
-2
motif/lisp/callbacks.lisp
motif/lisp/callbacks.lisp
+0
-457
motif/lisp/conversion.lisp
motif/lisp/conversion.lisp
+0
-364
motif/lisp/events.lisp
motif/lisp/events.lisp
+0
-876
motif/lisp/initial.lisp
motif/lisp/initial.lisp
+0
-226
motif/lisp/interface-build.lisp
motif/lisp/interface-build.lisp
+0
-89
motif/lisp/interface-glue.lisp
motif/lisp/interface-glue.lisp
+0
-213
motif/lisp/internals.lisp
motif/lisp/internals.lisp
+0
-214
motif/lisp/main.lisp
motif/lisp/main.lisp
+0
-108
motif/lisp/prototypes.lisp
motif/lisp/prototypes.lisp
+0
-800
motif/lisp/string-base.lisp
motif/lisp/string-base.lisp
+0
-336
motif/lisp/transport.lisp
motif/lisp/transport.lisp
+0
-308
motif/lisp/widgets.lisp
motif/lisp/widgets.lisp
+0
-235
motif/lisp/xt-types.lisp
motif/lisp/xt-types.lisp
+0
-278
motif/server/GNUmakefile
motif/server/GNUmakefile
+0
-33
motif/server/callbacks.c
motif/server/callbacks.c
+0
-342
motif/server/datatrans.c
motif/server/datatrans.c
+0
-476
motif/server/datatrans.h
motif/server/datatrans.h
+0
-66
motif/server/events.c
motif/server/events.c
+0
-451
motif/server/functions.h
motif/server/functions.h
+0
-178
motif/server/global.h
motif/server/global.h
+0
-34
motif/server/list.c
motif/server/list.c
+0
-348
motif/server/main.c
motif/server/main.c
+0
-224
motif/server/message.c
motif/server/message.c
+0
-218
motif/server/message.h
motif/server/message.h
+0
-28
motif/server/motif.c
motif/server/motif.c
+0
-250
motif/server/packet.c
motif/server/packet.c
+0
-175
motif/server/packet.h
motif/server/packet.h
+0
-26
motif/server/requests.c
motif/server/requests.c
+0
-175
motif/server/requests.h
motif/server/requests.h
+0
-8
motif/server/resources.c
motif/server/resources.c
+0
-50
motif/server/server.c
motif/server/server.c
+0
-182
motif/server/tables.c
motif/server/tables.c
+0
-253
motif/server/tables.h
motif/server/tables.h
+0
-31
motif/server/text.c
motif/server/text.c
+0
-262
motif/server/translations.c
motif/server/translations.c
+0
-117
motif/server/types.h
motif/server/types.h
+0
-41
motif/server/widgets.c
motif/server/widgets.c
+0
-435
motif/server/xmstring.c
motif/server/xmstring.c
+0
-255
pcl/12-7-88-notes.text
pcl/12-7-88-notes.text
+0
-45
pcl/3-17-88-notes.text
pcl/3-17-88-notes.text
+0
-167
pcl/3-19-87-notes.text
pcl/3-19-87-notes.text
+0
-138
pcl/4-21-87-notes.text
pcl/4-21-87-notes.text
+0
-53
pcl/4-29-87-notes.text
pcl/4-29-87-notes.text
+0
-80
pcl/5-22-87-notes.text
pcl/5-22-87-notes.text
+0
-126
pcl/5-22-89-notes.text
pcl/5-22-89-notes.text
+0
-152
pcl/8-28-88-notes.text
pcl/8-28-88-notes.text
+0
-537
pcl/RCSSNAP.last-merge
pcl/RCSSNAP.last-merge
+0
-84
pcl/bench.lisp
pcl/bench.lisp
+0
-448
pcl/boot.lisp
pcl/boot.lisp
+0
-2166
pcl/braid.lisp
pcl/braid.lisp
+0
-698
pcl/cache.lisp
pcl/cache.lisp
+0
-1484
pcl/cloe-low.lisp
pcl/cloe-low.lisp
+0
-32
pcl/cmu-low.lisp
pcl/cmu-low.lisp
+0
-501
pcl/combin.lisp
pcl/combin.lisp
+0
-403
pcl/compat.lisp
pcl/compat.lisp
+0
-31
pcl/construct.lisp
pcl/construct.lisp
+0
-1064
pcl/coral-low.lisp
pcl/coral-low.lisp
+0
-63
pcl/cpatch.lisp
pcl/cpatch.lisp
+0
-32
pcl/cpl.lisp
pcl/cpl.lisp
+0
-313
pcl/ctypes.lisp
pcl/ctypes.lisp
+0
-45
pcl/defclass.lisp
pcl/defclass.lisp
+0
-460
pcl/defcombin.lisp
pcl/defcombin.lisp
+0
-430
pcl/defs.lisp
pcl/defs.lisp
+0
-891
pcl/defsys.lisp
pcl/defsys.lisp
+0
-1063
pcl/dfun.lisp
pcl/dfun.lisp
+0
-1531
pcl/dlap.lisp
pcl/dlap.lisp
+0
-639
pcl/dlisp.lisp
pcl/dlisp.lisp
+0
-414
pcl/dlisp2.lisp
pcl/dlisp2.lisp
+0
-180
pcl/env.lisp
pcl/env.lisp
+0
-331
pcl/excl-low.lisp
pcl/excl-low.lisp
+0
-136
pcl/extensions.lisp
pcl/extensions.lisp
+0
-496
pcl/fast-init.lisp
pcl/fast-init.lisp
+0
-888
pcl/fin.lisp
pcl/fin.lisp
+0
-1962
pcl/fixup.lisp
pcl/fixup.lisp
+0
-40
pcl/fngen.lisp
pcl/fngen.lisp
+0
-214
pcl/fsc.lisp
pcl/fsc.lisp
+0
-100
pcl/gcl-patches.lisp
pcl/gcl-patches.lisp
+0
-168
pcl/genera-low.lisp
pcl/genera-low.lisp
+0
-423
pcl/generic-functions.lisp
pcl/generic-functions.lisp
+0
-779
pcl/get-pcl.text
pcl/get-pcl.text
+0
-180
pcl/gold-low.lisp
pcl/gold-low.lisp
+0
-51
pcl/hp-low.lisp
pcl/hp-low.lisp
+0
-37
pcl/ibcl-low.lisp
pcl/ibcl-low.lisp
+0
-327
pcl/ibcl-patches.lisp
pcl/ibcl-patches.lisp
+0
-129
pcl/init.lisp
pcl/init.lisp
+0
-258
pcl/inline.lisp
pcl/inline.lisp
+0
-263
pcl/iterate.lisp
pcl/iterate.lisp
+0
-1267
pcl/kcl-low.lisp
pcl/kcl-low.lisp
+0
-438
pcl/kcl-mods.text
pcl/kcl-mods.text
+0
-224
pcl/kcl-notes.text
pcl/kcl-notes.text
+0
-39
pcl/kcl-patches.lisp
pcl/kcl-patches.lisp
+0
-362
pcl/lap.lisp
pcl/lap.lisp
+0
-500
pcl/lap.text
pcl/lap.text
+0
-655
pcl/list-functions.lisp
pcl/list-functions.lisp
+0
-141
pcl/low.lisp
pcl/low.lisp
+0
-445
pcl/lucid-low.lisp
pcl/lucid-low.lisp
+0
-384
pcl/macros.lisp
pcl/macros.lisp
+0
-743
pcl/make-test.lisp
pcl/make-test.lisp
+0
-47
pcl/makediff
pcl/makediff
+0
-0
pcl/makefile.akcl
pcl/makefile.akcl
+0
-32
pcl/march-92-notes.text
pcl/march-92-notes.text
+0
-311
pcl/may-day-notes.text
pcl/may-day-notes.text
+0
-98
pcl/methods.lisp
pcl/methods.lisp
+0
-1646
pcl/misc-kcl-patches.text
pcl/misc-kcl-patches.text
+0
-340
pcl/new-kcl-wrapper.text
pcl/new-kcl-wrapper.text
+0
-2157
pcl/notes.text
pcl/notes.text
+0
-280
pcl/pcl-env-internal.lisp
pcl/pcl-env-internal.lisp
+0
-261
pcl/pcl-env.lisp
pcl/pcl-env.lisp
+0
-1629
pcl/pcl-env.text
pcl/pcl-env.text
+0
-105
pcl/pclcom.lisp
pcl/pclcom.lisp
+0
-9
pcl/pclload.lisp
pcl/pclload.lisp
+0
-10
pcl/pkg.lisp
pcl/pkg.lisp
+0
-366
pcl/plap.lisp
pcl/plap.lisp
+0
-369
pcl/precom1.lisp
pcl/precom1.lisp
+0
-51
pcl/precom2.lisp
pcl/precom2.lisp
+0
-31
pcl/precom4.lisp
pcl/precom4.lisp
+0
-32
pcl/pyr-low.lisp
pcl/pyr-low.lisp
+0
-50
pcl/pyr-patches.lisp
pcl/pyr-patches.lisp
+0
-9
pcl/quadlap.lisp
pcl/quadlap.lisp
+0
-619
pcl/readme.text
pcl/readme.text
+0
-11
pcl/rel-7-2-patches.lisp
pcl/rel-7-2-patches.lisp
+0
-387
pcl/rel-8-patches.lisp
pcl/rel-8-patches.lisp
+0
-255
pcl/slots-boot.lisp
pcl/slots-boot.lisp
+0
-409
pcl/slots.lisp
pcl/slots.lisp
+0
-385
pcl/std-class.lisp
pcl/std-class.lisp
+0
-1266
pcl/structure-class.lisp
pcl/structure-class.lisp
+0
-340
pcl/sys-package.lisp
pcl/sys-package.lisp
+0
-149
pcl/sys-proclaim.lisp
pcl/sys-proclaim.lisp
+0
-818
pcl/sysdef.lisp
pcl/sysdef.lisp
+0
-121
pcl/ti-low.lisp
pcl/ti-low.lisp
+0
-83
pcl/ti-patches.lisp
pcl/ti-patches.lisp
+0
-105
pcl/time.lisp
pcl/time.lisp
+0
-156
pcl/user-instances.lisp
pcl/user-instances.lisp
+0
-684
pcl/vaxl-low.lisp
pcl/vaxl-low.lisp
+0
-80
pcl/vector.lisp
pcl/vector.lisp
+0
-1083
pcl/walk.lisp
pcl/walk.lisp
+0
-2183
pcl/xerox-low.lisp
pcl/xerox-low.lisp
+0
-173
pcl/xerox-patches.lisp
pcl/xerox-patches.lisp
+0
-248
tests/arg-test.lisp
tests/arg-test.lisp
+0
-17
tests/block-test.lisp
tests/block-test.lisp
+0
-4
tests/byte.lisp
tests/byte.lisp
+0
-5
tests/call-test.lisp
tests/call-test.lisp
+0
-7
tests/char-test.lisp
tests/char-test.lisp
+0
-8
tests/check-test.lisp
tests/check-test.lisp
+0
-12
tests/circular.lisp
tests/circular.lisp
+0
-9
tests/copy-prop.lisp
tests/copy-prop.lisp
+0
-5
tests/dead-code.lisp
tests/dead-code.lisp
+0
-23
tests/delete-note.lisp
tests/delete-note.lisp
+0
-9
tests/derive.lisp
tests/derive.lisp
+0
-18
tests/dynamic-type.lisp
tests/dynamic-type.lisp
+0
-7
tests/eff-note.lisp
tests/eff-note.lisp
+0
-21
tests/error-test.lisp
tests/error-test.lisp
+0
-17
tests/error.lisp
tests/error.lisp
+0
-6
tests/examples.lisp
tests/examples.lisp
+0
-19
tests/float.lisp
tests/float.lisp
+0
-15
tests/flush.lisp
tests/flush.lisp
+0
-7
tests/ftype-assert.lisp
tests/ftype-assert.lisp
+0
-57
tests/local-call-type.lisp
tests/local-call-type.lisp
+0
-11
tests/macro-example.lisp
tests/macro-example.lisp
+0
-2
tests/misdecl.lisp
tests/misdecl.lisp
+0
-5
tests/mixed-compare.lisp
tests/mixed-compare.lisp
+0
-2
tests/mv-bind.lisp
tests/mv-bind.lisp
+0
-9
tests/nlx-hair.lisp
tests/nlx-hair.lisp
+0
-12
tests/nlx-test.lisp
tests/nlx-test.lisp
+0
-81
tests/pred-test.lisp
tests/pred-test.lisp
+0
-9
tests/read-eof.lisp
tests/read-eof.lisp
+0
-7
tests/rep-change.lisp
tests/rep-change.lisp
+0
-6
tests/source-test.lisp
tests/source-test.lisp
+0
-7
tests/spill-test.lisp
tests/spill-test.lisp
+0
-8
tests/stack.lisp
tests/stack.lisp
+0
-54
tests/struct-test.lisp
tests/struct-test.lisp
+0
-7
tests/tagbody.lisp
tests/tagbody.lisp
+0
-6
tests/tlf-test.lisp
tests/tlf-test.lisp
+0
-24
tests/top-level-nlx.lisp
tests/top-level-nlx.lisp
+0
-23
tests/transform.lisp
tests/transform.lisp
+0
-5
tests/undef-test.lisp
tests/undef-test.lisp
+0
-6
tests/values-note.lisp
tests/values-note.lisp
+0
-30
tests/values-test.lisp
tests/values-test.lisp
+0
-2
tests/values.lisp
tests/values.lisp
+0
-41
tools/chop.c
tools/chop.c
+0
-48
tools/clmcom.lisp
tools/clmcom.lisp
+0
-40
tools/clxcom.lisp
tools/clxcom.lisp
+0
-90
tools/comcom.lisp
tools/comcom.lisp
+0
-311
tools/compile-all
tools/compile-all
+0
-247
tools/config
tools/config
+0
-5
tools/config.lisp
tools/config.lisp
+0
-96
tools/do-worldbuild
tools/do-worldbuild
+0
-29
tools/dupsrcs.c
tools/dupsrcs.c
+0
-83
tools/fixheader
tools/fixheader
+0
-39
tools/hemcom.lisp
tools/hemcom.lisp
+0
-167
tools/hemload.lisp
tools/hemload.lisp
+0
-124
tools/inst-lisp
tools/inst-lisp
+0
-19
tools/mk-lisp
tools/mk-lisp
+0
-80
tools/pclcom.lisp
tools/pclcom.lisp
+0
-31
tools/rcsupdate.c
tools/rcsupdate.c
+0
-339
tools/sample-wrapper
tools/sample-wrapper
+0
-15
tools/setup.lisp
tools/setup.lisp
+0
-235
tools/snapshot-update.lisp
tools/snapshot-update.lisp
+0
-50
tools/updates
tools/updates
+0
-39
tools/worldbuild.lisp
tools/worldbuild.lisp
+0
-141
tools/worldload.lisp
tools/worldload.lisp
+0
-187
No files found.
assembler/assem.lisp
deleted
100644 → 0
View file @
10b7c474
This diff is collapsed.
Click to expand it.
assembler/assembler.lisp
deleted
100644 → 0
View file @
10b7c474
This diff is collapsed.
Click to expand it.
assembler/disassemble.lisp
deleted
100644 → 0
View file @
10b7c474
;;; -*- Mode: Lisp; Package: Compiler -*-
;;; **********************************************************************
;;; This code was written as part of the Spice Lisp project at
;;; Carnegie-Mellon University, and has been placed in the public domain.
;;; Spice Lisp is currently incomplete and under active development.
;;; If you want to use this code or any part of Spice Lisp, please contact
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; The DISASSEMBLE function as described in the Common Lisp manual.
;;;
;;; Written by Don Mathis
;;;
;;;
;;; Modified 11/83 by Robert Rose to put an asterisk before lines
;;; that are branched to.
;;;
;;; Heavily Modified 1/84 to use new instruction set.
;;;
;;; Modified by David B. McDonald to disassemble the Romp instruction
;;; set.
;;;
;;; Hacked by Rob MacLachlan for the interim RT function format. Hopefully
;;; this file will die after the port.
;;;
;;; **********************************************************************
;;;
(
in-package
'compiler
:use
'
(
"LISP"
"SYSTEM"
))
(
export
'lisp::disassemble
(
find-package
'lisp
))
(
proclaim
'
(
special
romp-4bit-opcode-symbol
romp-8bit-opcode-symbol
))
;;;; The Main function, DISASSEMBLE
(
defun
disassemble
(
function
&optional
(
*standard-output*
*standard-output*
))
"The argument should be either a function object, a lambda expression, or
a symbol with a function definition. If the relevant function is not a
compiled function, it is first compiled. In any case, the compiled code
is then 'reverse assembled' and printed out in a symbolic format."
(
etypecase
function
(
function
(
ecase
(
%primitive
get-vector-subtype
function
)
((
#.
%function-entry-subtype
#.
%function-closure-entry-subtype
)
(
prin-prelim-info
function
)
(
Output-macro-instructions
function
(
branch-list
function
)))
(
#.
%function-closure-subtype
(
disassemble
(
%primitive
header-ref
function
%function-name-slot
)))))
(
symbol
(
disassemble
(
symbol-function
function
)))))
;;; PRIN-PRELIM-INFO takes a function object and extracts from it and
;;; prints out the following information:
;;; - The argument list of the function.
;;; - The number of Locals allocated by the function.
;;; - Whether the function does or does not evaluate its arguments.
(
defun
prin-prelim-info
(
function
)
(
format
t
"~%Disassembly of ~S.~%"
(
%primitive
header-ref
function
%function-name-slot
))
(
format
t
"~%Its arg list is: ~A.~%"
(
%primitive
header-ref
function
%function-entry-arglist-slot
)))
;;; OUTPUT-MACRO-INSTRUCTIONS takes a function object and prints out the
;;; corresponding macro. (Not executable macro, just macro that looks good!)
(
defun
Output-Macro-Instructions
(
function
branches
)
(
declare
(
optimize
(
speed
3
)
(
safety
0
)))
(
let*
((
byte-vector
(
%primitive
header-ref
function
%function-code-slot
))
(
offset
(
-
(
%primitive
header-ref
function
%function-offset-slot
)
i-vector-header-size
))
(
vector-length
(
length
byte-vector
)))
(
declare
(
fixnum
vector-length
))
(
do
((
i
0
))
((
=
i
vector-length
))
(
declare
(
fixnum
i
))
(
when
(
=
i
offset
)
(
format
t
"~&*** Enter here:~%"
))
(
let*
((
opcode
(
aref
byte-vector
i
))
(
symbol
(
find-symbol-name
opcode
))
(
inst-type
(
get
symbol
'romp-instruction-type
)))
(
case
inst-type
(
ji
(
print-ji-instruction
opcode
byte-vector
i
branches
)
(
setq
i
(
the
fixnum
(
+
i
2
))))
(
x
(
print-x-instruction
opcode
byte-vector
i
branches
)
(
setq
i
(
the
fixnum
(
+
i
2
))))
(
ds
(
print-ds-instruction
opcode
byte-vector
i
branches
function
)
(
setq
i
(
the
fixnum
(
+
i
2
))))
(
r
(
print-r-instruction
opcode
byte-vector
i
branches
)
(
setq
i
(
the
fixnum
(
+
i
2
))))
(
bi
(
print-bi-instruction
opcode
byte-vector
i
branches
)
(
setq
i
(
the
fixnum
(
+
i
4
))))
(
ba
(
print-ba-instruction
opcode
byte-vector
i
branches
)
(
setq
i
(
the
fixnum
(
+
i
4
))))
(
d
(
setq
i
(
the
fixnum
(
+
i
(
the
fixnum
(
print-d-instruction
opcode
byte-vector
i
branches
function
))))))
(
T
(
error
"Illegal instruction type: ~A for instruction ~A.~%"
inst-type
symbol
)))))))
(
defun
find-symbol-name
(
opcode
)
(
declare
(
fixnum
opcode
))
(
let
((
symbol
(
svref
romp-4bit-opcode-symbol
(
logand
(
the
fixnum
(
ash
opcode
-4
))
#xFF
))))
(
if
symbol
symbol
(
svref
romp-8bit-opcode-symbol
opcode
))))
;;; BRANCH-LIST is very much like output-macro-instructions,
;;; but instead of actually creating all the instructions it just
;;; creates the branch instruction labels. A list of these labels
;;; is returned.
(
defun
branch-list
(
function
)
(
let*
((
byte-vector
(
%primitive
header-ref
function
%function-code-slot
))
(
vector-length
(
length
byte-vector
))
(
branches
nil
))
(
declare
(
fixnum
vector-length
))
(
do
((
i
0
))
((
>=
i
vector-length
))
(
declare
(
fixnum
i
))
(
let*
((
opcode
(
aref
byte-vector
i
))
(
symbol
(
find-symbol-name
opcode
))
(
inst-type
(
get
symbol
'romp-instruction-type
)))
(
case
inst-type
(
ji
(
push
(
the
fixnum
(
+
i
(
the
fixnum
(
sign-extend-ji
byte-vector
i
))))
branches
)
(
setq
i
(
the
fixnum
(
+
i
2
))))
((
x
ds
r
)
(
setq
i
(
the
fixnum
(
+
i
2
))))
(
bi
(
push
(
the
fixnum
(
+
i
(
the
fixnum
(
sign-extend-bi
byte-vector
i
))))
branches
)
(
setq
i
(
the
fixnum
(
+
i
4
))))
((
ba
d
)
(
setq
i
(
the
fixnum
(
+
i
4
))))
(
T
(
error
"Unknown instruction type: ~A, for instruction ~A.~%"
inst-type
symbol
)))))
branches
))
(
defun
print-ji-instruction
(
opcode
byte-vector
index
branches
)
(
declare
(
fixnum
opcode
index
))
(
format
t
"~6D~A (~A ~A ~A)~%"
index
(
if
(
memq
index
branches
)
"*"
" "
)
(
if
(
=
(
logand
opcode
#x8
)
0
)
"JNB"
"JB"
)
(
romp-condition-code
(
+
8
(
logand
opcode
#x7
)))
`
(
**address**
,
(
the
fixnum
(
+
index
(
the
fixnum
(
sign-extend-ji
byte-vector
index
)))))))
(
defun
print-x-instruction
(
opcode
byte-vector
index
branches
)
(
declare
(
fixnum
opcode
index
))
(
let*
((
rega
(
get-register-name
(
logand
opcode
#xF
)))
(
operand
(
aref
byte-vector
(
the
fixnum
(
1+
index
))))
(
regb
(
get-register-name
(
logand
(
the
fixnum
(
ash
operand
-4
))
#xF
)))
(
regc
(
get-register-name
(
logand
operand
#xF
)))
(
star
(
if
(
memq
index
branches
)
"*"
" "
)))
(
declare
(
fixnum
operand
))
(
if
(
eq
regc
'NL0
)
(
cond
((
and
(
eq
rega
'NL0
)
(
eq
regb
'NL0
))
(
format
t
"~6D~A (LR NL0 NL0) ; Padding for previous execute instruction.~%"
index
star
))
(
T
(
format
t
"~6D~A (LR ~A ~A)~%"
index
(
if
(
memq
index
branches
)
"*"
" "
)
rega
regb
)))
(
format
t
"~6D~A (CAS ~A ~A ~A)~%"
index
(
if
(
memq
index
branches
)
"*"
" "
)
rega
regb
regc
))))
(
defun
print-ds-instruction
(
opcode
byte-vector
index
branches
function
)
(
declare
(
fixnum
opcode
index
))
(
let*
((
symbol
(
find-symbol-name
opcode
))
(
operand
(
aref
byte-vector
(
the
fixnum
(
1+
index
))))
(
rega
(
get-register-name
(
logand
(
the
fixnum
(
ash
operand
-4
))
#xF
)))
(
regb
(
get-register-name
(
logand
operand
#xF
)))
(
offset
(
ash
(
logand
opcode
#xF
)
2
)))
(
declare
(
fixnum
offset
operand
))
(
cond
((
and
(
memq
symbol
'
(
ls
sts
))
(
memq
regb
'
(
ENV
CONT
)))
(
print-special-access
symbol
rega
regb
offset
function
index
branches
))
(
T
(
format
t
"~6D~A (~A ~A ~A ~A)~%"
index
(
if
(
memq
index
branches
)
"*"
" "
)
(
symbol-name
symbol
)
(
get-register-name
(
logand
(
the
fixnum
(
ash
operand
-4
))
#xF
))
(
get-register-name
(
logand
operand
#xF
))
(
case
symbol
((
ls
sts
)
(
ash
(
logand
opcode
#xF
)
2
))
((
lhs
lhas
sths
)
(
ash
(
logand
opcode
#xF
)
1
))
(
T
(
logand
opcode
#xF
))))))))
(
defun
print-r-instruction
(
opcode
byte-vector
index
branches
)
(
declare
(
fixnum
index
opcode
))
(
let*
((
symbol
(
find-symbol-name
opcode
))
(
operand
(
aref
byte-vector
(
the
fixnum
(
1+
index
))))
(
rega
(
logand
(
the
fixnum
(
ash
operand
-4
))
#xF
))
(
regb
(
logand
operand
#xF
)))
(
declare
(
fixnum
operand
))
(
cond
((
memq
symbol
'
(
inc
dec
lis
mftbil
mftbiu
mttbil
mttbiu
ais
cis
sis
clrbl
clrbu
setbl
setbu
sari
sari16
sri
sri16
srpi
srpi16
sli
sli16
slpi
slpi16
))
(
format
t
"~6D~A (~A ~A ~A)~%"
index
(
if
(
memq
index
branches
)
"*"
" "
)
(
symbol-name
symbol
)
(
get-register-name
rega
)
regb
))
((
memq
symbol
'
(
bbr
bbrx
bnbr
bnbrx
))
(
format
t
"~6D~A (~A ~A ~A)~%"
index
(
if
(
memq
index
branches
)
"*"
" "
)
(
symbol-name
symbol
)
(
romp-condition-code
rega
)
(
get-register-name
regb
)))
((
memq
symbol
'
(
mts
mfs
))
(
format
t
"~6D~A (~A ~A ~A)~%"
index
(
if
(
memq
index
branches
)
"*"
" "
)
(
symbol-name
symbol
)
rega
regb
))
((
memq
symbol
'
(
clrsb
setsb
))
(
format
t
"~6D~A (~A ~A ~A)~%"
index
(
if
(
memq
index
branches
)
"*"
" "
)
(
symbol-name
symbol
)
rega
regb
))
(
T
(
format
t
"~6D~A (~A ~A ~A)~%"
index
(
if
(
memq
index
branches
)
"*"
" "
)
(
symbol-name
symbol
)
(
get-register-name
rega
)
(
get-register-name
regb
))))))
(
defun
print-bi-instruction
(
opcode
byte-vector
index
branches
)
(
declare
(
fixnum
index
opcode
))
(
let*
((
symbol
(
find-symbol-name
opcode
))
(
cc
(
romp-condition-code
(
logand
(
ash
(
the
fixnum
(
aref
byte-vector
(
the
fixnum
(
1+
index
))))
-4
)
#xF
)))
(
label
(
the
fixnum
(
+
index
(
the
fixnum
(
sign-extend-bi
byte-vector
index
))))))
(
format
t
"~6D~A (~A ~A ~A)~%"
index
(
if
(
memq
index
branches
)
"*"
" "
)
(
symbol-name
symbol
)
cc
`
(
**address**
,
label
))))
(
defun
print-ba-instruction
(
opcode
byte-vector
index
branches
)
(
declare
(
fixnum
index
opcode
))
(
let*
((
symbol
(
find-symbol-name
opcode
))
(
operand
(
the
fixnum
(
logior
(
ash
(
the
fixnum
(
aref
byte-vector
(
the
fixnum
(
1+
index
))))
16
)
(
ash
(
the
fixnum
(
aref
byte-vector
(
the
fixnum
(
+
index
2
))))
8
)
(
the
fixnum
(
aref
byte-vector
(
the
fixnum
(
+
index
3
)))))))
(
miscop
(
find-miscop-name
operand
)))
(
format
t
"~6D~A (~A ~A) ; Call miscop ~A.~%"