shithub: sl

ref: dc4a648a71627db05ba1c24557c0ab7f80d348ed
dir: /boot/sl.boot/

View raw version
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