shithub: femtolisp

Info  •  Files  •  Log  •  Branches

make-system-image: no need for newlines in the compressed boot image

--- a/flisp.boot

+++ b/flisp.boot

@@ -302,7 +302,7 @@

   (*linefeed* *directory-separator* *argv* that *print-pretty* *print-width* *print-readably*

 	      *print-level* *print-length* *os-name* *interactive* *prompt*) *print-pretty*

   *print-readably* #fn("5000n0Aw04Fw1:" #(*print-pretty* *print-readably*))

-  #fn("?000n07021A>17223505152742576842577845253f22885F52429F7:52428859252429927:52^1^142;F512<2=F51r:522>2?E2@2A84522B84r(522B84r 522B84r\x18525629938652429938552^1^1^142C925142C9361:" #(filter

+  #fn("?000n07021A>17223505152742576842577845253f22885F52428859252429927:52^1^142;F512<2=F51r:522>2?E2@2A84522B84r(522B84r 522B84r\x18525629938652429938552^1^1^142C925142C9361:" #(filter

   #fn("8000n10Z;3u0420051S;3j0421051[S;IC0422051222105151dS;3I04230A52S;3=04242105151S:" #(#fn(constant?)

   #fn(top-level-value) #fn(string) #fn(memq) #fn(iostream?))) simple-sort #fn(environment) nconc #fn(map)

   list top-level-value #fn(write) #fn(io-write) *linefeed* #fn(sizeof)

--- a/system.lsp

+++ b/system.lsp

@@ -1071,7 +1071,6 @@

                       (simple-sort (environment))))

              (data (apply nconc (map list syms (map top-level-value syms)))))

         (write data b)

-        (io-write b *linefeed*)

         (write data f)

         (io-write f *linefeed*))

       (let* ((size (sizeof b))