ref: dc4a648a71627db05ba1c24557c0ab7f80d348ed
dir: /boot/sl.boot/
sed: Output line too long (*builtins* #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL #fn("n10<:" #()) #fn("n10=:" #()) NIL NIL NIL NIL #fn("n10B:" #()) NIL NIL NIL NIL NIL #fn("n10H:" #()) NIL NIL NIL #fn("z0700}2:" #(<)) NIL #fn("n201N:" #()) NIL #fn("n201P:" #()) #fn("n201Q:" #()) #fn("n10R:" #()) #fn("n10S:" #()) #fn("n10T:" #()) NIL #fn("n10V:" #()) NIL #fn("n10X:" #()) #fn("n10Y:" #()) #fn("n10Z:" #()) #fn("n10[:" #()) #fn("n10\\:" #()) #fn("n10]:" #()) NIL #fn("n201_:" #()) NIL NIL NIL #fn("n201c:" #()) #fn("n201d:" #()) #fn("z00:" #()) #fn("z0700}2:" #(apply)) #fn("z0700}2:" #(+)) #fn("z0700}2:" #(-)) #fn("z0700}2:" #(*)) #fn("z0700}2:" #(/)) #fn("z0700}2:" #(div0)) #fn("z0700}2:" #(=)) #fn("n201m:" #()) NIL #fn("z0700}2:" #(vec)) #fn("z0700}2:" #(aset!)) NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL #fn("n3012082>1|:" #(#fn("n1A061:" #()))) NIL NIL NIL NIL NIL NIL NIL NIL #fn("z0700}2:" #(aref)) NIL NIL NIL) *properties* #table(*funvars* #table(identity ((x)) bound? ((symbol)) io-eof? ((io)) < ((a . rest)) cadr ((cell)) sym (term) nan? ((v)) for ((min max fn)) fixnum? ((v)) exit (((status NIL))) > ((a . rest)) + (rest) div0 ((a b)) __finish ((status)) lz-unpack ((data :to destination) (data :size decompressed-bytes)) defstruct ((name doc options… (slot-1 DEFAULT) slot-2 (slot-3 :read-only)) (name (:type vec) (:named T) (:constructor T) (:conc-name NIL) (:predicate NIL) . slots)) compare ((x y)) buffer (NIL) num? ((v)) add-exit-hook ((fun)) rand-float (NIL) builtin? ((v)) set-car! ((cell new-first)) cons? ((v)) 1+ ((n)) aref ((sequence subscript0 . rest)) zero? ((x)) vec (rest) >= ((a . rest)) sym? ((v)) void? ((x)) length= ((lst n)) positive? ((x)) doc-for ((term (doc NIL))) aset! ((sequence subscripts… new-value)) car ((lst)) <= ((a . rest)) str (term) cons ((first second)) - ((a . rest)) remprop ((symbol key)) negative? ((x)) rand (NIL) void (rest) file ((path (:read NIL) (:write NIL) (:create NIL) (:truncate NIL) (:append NIL))) rand-double (NIL) 1- ((n)) atom? ((value)) cdr ((lst)) vec? ((v)) / ((x . rest)) equal? ((a b)) eqv? ((a b)) io? ((term)) eof-object? ((term)) list (rest) apply ((fn arg . rest)) help ((term (:print-header help-print-header))) rand-u32 (NIL) = ((a . rest)) rand-u64 (NIL) not ((v)) set-cdr! ((cell new-second)) /= ((a . rest)) fn? ((v)) help-print-header ((term sigs)) lz-pack ((data (level 0))) *prompt* (NIL) eq? ((a b)) getprop ((symbol key (def NIL))) vm-stats (NIL) * (rest) putprop ((symbol