ref: 721152be3a42fbebed2fc4bb947253ad558b4f91
parent: aaa5cd4ca48ace29538f59436063544f3124535e
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Sun Nov 10 13:40:01 EST 2024
fix ugly indentation in disassembly output
--- a/compiler.lsp
+++ b/compiler.lsp
@@ -618,7 +618,7 @@
" >"
" ")
(hex5 (- s 5)) ": "
- (string inst) "\t"))
+ inst " "))
(dotimes (xx lev) (princ "\t"))
;(princ "maxstack " (ref-int32-LE code 0) "\n")
(let ((i 4)
--- a/flisp.boot
+++ b/flisp.boot
@@ -199,8 +199,8 @@
delete-duplicates))) delete-duplicates)
disassemble #fn("?000\x891000.///\x8a1000I60O?14|282JD07001E53471504D:@30D422>82<230512405163:" #(disassemble newline #fn("8000n320>DD62:" #(#fn(":000n220>?0421>?14EAK\x8022~423>r424F5162:" #(#fn(":000n10\\;36040[S3E07021514720O910KM63:73061:" #(princ- "\n" disassemble print) print-val) #fn("<000n370921;3V04910El;3L04719217215152;3;04921182ML37023@4024751r5\x805126270512865:" #(princ- >= 1- " >" " " hex5 ": " #fn(string) "\t") print-inst)
+ "\n" disassemble print) print-val) #fn("<000n370921;3V04910El;3L04719217215152;3;04921182ML37023@4024751r5\x80512602765:" #(princ+ >= 1- " >" " " hex5 ": " " ") print-inst)
#fn("7000n1702161:" #(princ "\t")) #fn(":000n2D01L3E0420>2122>O735351@\x19/:" #(#fn(";000n170Ar4523907150@30D4E920K\x8022~4AKMz00423>061:" #(> newline #fn("7000n1702161:" #(princ "\t")) #fn(">000n120021523\\0921A910r45349209327293191052G514910r4Mz10:20023523W0921A910K534920932931910GG514910KMz10:20024523V0921A910K5347526931910G51514910KMz10:20027523[0921A910r45347526729319105251514910r4Mz10:20028523r0921A910r25347526931910G5129524910KMz1047526931910G51514910KMz10:2002:523\xb50921A910r8A2;C70r4@30EM534752672931910525129524910r4Mz1047526729319105251514910r4Mz104A2;CX07529514752672931910525129524910r4Mz10:D:02<c3]0921A910r4534752672931910525129524910r4Mz10:2002=523d0921A910r2534752>7?910r,7@93191052g351524910r2Mz10:2002A523d0921A910r4534752>7?910r,7293191052g351524910r4Mz10:921A910E63:" #(#fn(memq)