Unified · Split
| @@ -932,9 +932,9 @@ separate-doc-from-body set-doc! $def cdadr caadr #fn(nconc) · 931 unmodified lines | |||
| 932 | macrocall? $quote λ $def) expand-in 11)) 16) | 932 | macrocall? $quote λ $def) expand-in 11)) 16) |
| 933 | macroexpand-1 #fn("A180H35080:708051853:08580=z2:80:" #(macrocall?) 7) | 933 | macroexpand-1 #fn("A180H35080:708051853:08580=z2:80:" #(macrocall?) 7) |
| 934 | make-code-emitter #fn("A0D92050ED9EEo6:" #(#fn(table)) 10) make-system-image | 934 | make-code-emitter #fn("A0D92050ED9EEo6:" #(#fn(table)) 10) make-system-image |
| 935 | #fn("A1DI20?542180222324547585762750785252792:7;872:7<875253f27=7>7?7@DAI=4DAI>4DAI?4D9I@42A898:8;8<>42B8886>22C8=>1q8=504:" #(#fn("A1202122808552;J\xa30480Z;3\x9b04238051S;3\x8f04248051[S;JE042580512524805151dS;3k0422808652S;3]047627802853;J=047629802:53S;3>042;24805151S:" #((*syntax-environment* | 935 | #fn("A1DI20?542180222324547585762750785252792:7;872:7<875253f27=7>7?7@DAI=4DAI>4DAI?4D9I@42A898:8;8<>42B8886>22C8=>1q8=504:" #(#fn("A1202122808552;J\x940480Z;3\x8c04238051S;3\x8004248051[S;JE042580512524805151dS;3\\0422808652S;3N047627802853S;3>042924805151S:" #((*syntax-environment* |
| 936 | *properties* *builtins*) (ptr) #fn(memq) #fn(const?) | 936 | *properties* *builtins*) (ptr) #fn(memq) #fn(const?) |
| 937 | #fn(top-level-value) #fn(str) <= *a *z +a +z #fn(io?)) save? 10) | 937 | #fn(top-level-value) #fn(str) <= *a *z #fn(io?)) save? 10) |
| 938 | #fn(file) :write :create :truncate filter sort #fn(environment) < nconc #fn(map) list | 938 | #fn(file) :write :create :truncate filter sort #fn(environment) < nconc #fn(map) list |
| 939 | top-level-value *print-pretty* *print-readably* *print-circle* that #fn("A090I0491I1492I2493I3:" #(*print-pretty* | 939 | top-level-value *print-pretty* *print-readably* *print-circle* that #fn("A090I0491I1492I2493I3:" #(*print-pretty* |
| 940 | *print-readably* *print-circle* that) 4) #fn("A0209091524219161:" #(#fn(write) | 940 | *print-readably* *print-circle* that) 4) #fn("A0209091524219161:" #(#fn(write) |
| @@ -3648,14 +3648,13 @@ · 3647 unmodified lines | |||
| 3648 | (let {[includes '(*syntax-environment* *properties* *builtins*)] | 3648 | (let {[includes '(*syntax-environment* *properties* *builtins*)] |
| 3649 | [excludes '(ptr)]} | 3649 | [excludes '(ptr)]} |
| 3650 | (or (memq s includes) | 3650 | (or (memq s includes) |
| 3651 | (and (bound? s) | 3651 | (and (bound? s) (not (const? s)) |
| 3652 | (not (const? s)) | 3652 | (or (not (builtin? (top-level-value s))) |
| 3653 | (or (not (builtin? (top-level-value s))) | 3653 | (not (equal? (str s) ; alias of a builtin |
| 3654 | (not (equal? (str s) ; alias of a builtin | 3654 | (str (top-level-value s))))) |
| 3655 | (str (top-level-value s))))) | 3655 | (not (memq s excludes)) |
| 3656 | (not (memq s excludes)) | 3656 | (not (<= '*a s '*z)) |
| 3657 | (not (or (<= '*a s '*z) (<= '+a s '+z))) | 3657 | (not (io? (top-level-value s))))))) |
| 3658 | (not (io? (top-level-value s))))))) | ||
| 3659 | (let* {[f (file filename :write :create :truncate)] | 3658 | (let* {[f (file filename :write :create :truncate)] |
| 3660 | [syms (filter save? (sort (environment) <))] | 3659 | [syms (filter save? (sort (environment) <))] |
| 3661 | [data (apply nconc (map list syms (map top-level-value syms)))]} | 3660 | [data (apply nconc (map list syms (map top-level-value syms)))]} |