| @@ -312,10 +312,10 @@ help help-print-header group #fn(sym) ":doc-" doc getprop *doc* *formals-list* g · 311 unmodified lines |
| 312 | 312 | #fn(str-find) "*" #fn(str-sub) 1- #fn(length) #fn("n1200512185A5286;390422855186;3S04F;J804E86l2;3C0492;J<04878693Ml2:" #(#fn(str) |
| 313 | 313 | #fn(str-find) #fn(length)) 10) #fn(nconc) filter #fn(environment) table-keys *syntax-environment* |
| 314 | 314 | #fn(for-each) #fn("n17005147160:" #(princ newline) 6) sort <) environment-find-matching 18) |
| 315 | | −#fn("n370qw042187>1221820>32388>1{88504:" #(*print-syntax-sugar* #fn("n0Aw0:" #(*print-syntax-sugar*) 4) |
| 316 | | −#fn("n0A3?02021F92>2A62:7250473F514739261:" #(#fn(for-each) |
| 317 | | −#fn("n17050471A51471F0P61:" #(newline princ) 7) newline princ) 7) |
| 318 | | −#fn("n1A50420061:" #(#fn(raise)) 6)) print-sig 8) |
| 315 | +#fn("n37071qw04qw14228788>2231820>32489>1{89504:" #(*print-syntax-sugar* *print-pretty* #fn("n0Aw04Fw1:" #(*print-syntax-sugar* |
| 316 | +*print-pretty*) 4) #fn("n0A3?02021F92>2A62:7250473F514739261:" #(#fn(for-each) |
| 317 | +#fn("n17050471A51471F0P61:" #(newline |
| 318 | +princ) 7) newline princ) 7) #fn("n1A50420061:" #(#fn(raise)) 6)) print-sig 9) |
| 319 | 319 | #fn("n1200E210225263:" #(#fn(str-sub) #fn(str-find) "\n") first-line 10) |
| 320 | 320 | #fn("n10B;3B040<20Q;38040T21Q:" #(doc group) doc-group? 6) |
| 321 | 321 | #fn("n10H;3@0470A71022q5362:" #(member getprop *doc-extra*) doc-extra-term? 10) |
| @@ -563,15 +563,16 @@ caadr $begin nconc #fn(map)) 8) remove-duplicates) get-defined-vars 8) · 241 unmodified lines |
| 563 | 563 | get-syntax #fn("n120710q63:" #(#fn(get) *syntax-environment*) get-syntax 8) getprop |
| 564 | 564 | #fn("|20003000W2000;J60q?2420711q53873J088;3<04208808253;J50482:883:02088062:22231e261:" #(#fn(get) |
| 565 | 565 | *properties* #fn(raise) key-error) getprop 10) |
| 566 | | −help-print-header #fn("O200020004000W2000J60q?24W3000J7021?34Ib88822880>2_413C0232483088>3152@c07583514823F0757605151488<2751@>078051488<0514795047960:" #(#(:kind |
| 566 | +help-print-header #fn("O200020004000W2000J60q?24W3000J7021?34Ib88822880>2_413[073qw342489>125830881>4268:>1{8:504^1^1@c07783514823F0777805151488<2951@>07:051488<05147;5047;60:" #(#(:kind |
| 567 | 567 | :lpad) "" #fn("n1A70_471220RJ:023051@W00R3C00Z3>02324F5151@A07505137026@40272863:" #(void princ |
| 568 | 568 | " ;; [" #fn(type-of) |
| 569 | 569 | #fn(top-level-value) |
| 570 | 570 | get-syntax |
| 571 | 571 | "macro" "any" |
| 572 | 572 | "]") print-type 9) |
| 573 | | −#fn(for-each) #fn("n170A51471F0P51492<F5147260:" #(princ print newline) 7) princ caddr "doc group" |
| 574 | | −print newline) help-print-header 8) |
| 573 | +*print-pretty* #fn("n0Aw0:" #(*print-pretty*) 4) #fn("n02021AF92>39362:" #(#fn(for-each) |
| 574 | +#fn("n170A51471F0P51492<F5147260:" #(princ |
| 575 | +print newline) 7)) 7) #fn("n1A50420061:" #(#fn(raise)) 6) princ caddr "doc group" print newline) help-print-header 9) |
| 575 | 576 | i_auto11# #:i_auto11# i_auto23# #:i_auto23# identity |
| 576 | 577 | #fn("n10:" #() identity 4) in-env? #fn("n21B;3F042001<52;J:047101=62:" #(#fn(assq) |
| 577 | 578 | in-env?) in-env? 7) |