Unified · Split
| @@ -932,9 +932,9 @@ separate-doc-from-body set-doc! $def cdadr caadr #fn(nconc) · 931 unmodified lines | ||
| 932 | 932 | macrocall? $quote λ $def) expand-in 11)) 16) |
| 933 | 933 | macroexpand-1 #fn("A180H35080:708051853:08580=z2:80:" #(macrocall?) 7) |
| 934 | 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 | 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 | 938 | #fn(file) :write :create :truncate filter sort #fn(environment) < nconc #fn(map) list |
| 939 | 939 | top-level-value *print-pretty* *print-readably* *print-circle* that #fn("A090I0491I1492I2493I3:" #(*print-pretty* |
| 940 | 940 | *print-readably* *print-circle* that) 4) #fn("A0209091524219161:" #(#fn(write) |
| @@ -3648,14 +3648,13 @@ · 3647 unmodified lines | ||
| 3648 | 3648 | (let {[includes '(*syntax-environment* *properties* *builtins*)] |
| 3649 | 3649 | [excludes '(ptr)]} |
| 3650 | 3650 | (or (memq s includes) |
| 3651 | − (and (bound? s) | |
| 3652 | − (not (const? s)) | |
| 3653 | − (or (not (builtin? (top-level-value s))) | |
| 3654 | − (not (equal? (str s) ; alias of a builtin | |
| 3655 | − (str (top-level-value s))))) | |
| 3656 | − (not (memq s excludes)) | |
| 3657 | − (not (or (<= '*a s '*z) (<= '+a s '+z))) | |
| 3658 | − (not (io? (top-level-value s))))))) | |
| 3651 | + (and (bound? s) (not (const? s)) | |
| 3652 | + (or (not (builtin? (top-level-value s))) | |
| 3653 | + (not (equal? (str s) ; alias of a builtin | |
| 3654 | + (str (top-level-value s))))) | |
| 3655 | + (not (memq s excludes)) | |
| 3656 | + (not (<= '*a s '*z)) | |
| 3657 | + (not (io? (top-level-value s))))))) | |
| 3659 | 3658 | (let* {[f (file filename :write :create :truncate)] |
| 3660 | 3659 | [syms (filter save? (sort (environment) <))] |
| 3661 | 3660 | [data (apply nconc (map list syms (map top-level-value syms)))]} |