Date:
07.05.2019
|
Time:
21:51:56
|
String Memory:
[allocated chars]
65536
[free]
3026
[used]
62510
[%free]
00004.617310
[%used]
00095.382690
|
Object Memory:
[#allocated]
8192000
[#free]
8191179
[#used]
821
[%free]
00099.989975
[%used]
00000.010022
|
Memory Contents:
Symbols:
302
=
>
>=
<
<=
+
-
*
/
**
%
assert
define
mutate
if
quote
quasiquote
and
or
not
while
let
lambda
special-lambda
eval
prog
list
pair
first
rest
set-type
delete-type
type
info
show
print
read
exit
break
memstat
try
load
import
copy
error
symbol->keyword
string->symbol
symbol->string
concat-strings
define-syntax
when
condition
body
if
condition
unquote
pair
prog
body
unquote
nil
quasiquote
prog
define-syntax
unless
condition
body
if
condition
unquote
nil
pair
prog
body
unquote
quasiquote
prog
define-syntax
cond
clauses
define
rec
clauses
if
=
nil
clauses
nil
if
=
first
first
clauses
else
quote
prog
if
not
=
rest
clauses
error
pair
prog
quote
rest
first
clauses
list
if
quote
first
first
clauses
pair
prog
quote
rest
first
clauses
rec
rest
clauses
rec
clauses
prog
define
nil?
x
=
x
nil
define
number?
x
=
type
x
define
symbol?
x
=
type
x
define
keyword?
x
=
type
x
define
pair?
x
=
type
x
define
string?
x
=
type
x
define
lambda?
x
=
type
x
define
special-lambda?
x
=
type
x
define
built-n-function?
x
=
type
x
define
apply
fun
seq
eval
pair
fun
seq
define
end
seq
if
or
nil?
seq
not
pair?
rest
seq
seq
end
rest
seq
define
last
seq
first
end
seq
define
extend
seq
elem
if
pair?
seq
prog
define
e
end
seq
mutate
e
pair
first
e
elem
seq
elem
define
append
seq
elem
extend
seq
pair
elem
nil
define-syntax
extend!
seq
elem
mutate
seq
unquote
extend
seq
unquote
elem
unquote
quasiquote
prog
define-syntax
append!
seq
elem
mutate
seq
unquote
append
seq
unquote
elem
unquote
quasiquote
prog
define
length
seq
if
nil?
seq
+
length
rest
seq
define
increment
val
+
val
define
decrement
val
-
val
define
range
from
to
when
<
from
to
pair
from
range
+
from
to
condition
body
Keywords:
16
:
rest
:
rest
:
rest
:
number
:
symbol
:
keyword
:
pair
:
string
:
dynamic-function
:
dynamic-macro
:
built-in-function
:
keys
:
defaults-to
:
from
:
to
:
symbol-undefined
Numbers:
6
00000.000000
00001.000000
00001.000000
00001.000000
00000.000000
00001.000000
Strings:
21
"Doc String for 'when'"
"There are additional clauses after the else clause!"
"Checks if the argument is nil."
"Checks if the argument is a number."
"Checks if the argument is a symbol."
"Checks if the argument is a keyword."
"Checks if the argument is a pair."
"Checks if the argument is a string."
"Checks if the argument is a function."
"Checks if the argument is a macro."
"Checks if the argument is a built-in function."
"Applies the funciton to the sequence, as in calls the function with\nithe se"
"Returns the last pair in the sqeuence."
"Returns the (first) of the last (pair) of the given sequence."
"Extends a list with the given element, by putting it in\nthe (rest) of the l"
"Appends an element to a sequence, by extendeing the list\nwith (pair elem ni"
"test"
"Returns the length of the given sequence."
"Adds one to the argument."
"Subtracts one from the argument."
"Returns a sequence of numbers starting with the number defined\nby the key '"
Lists, Pairs:
30
420
define-syntax
when
condition
:
rest
body
"Doc String for 'when"
quasiquote
if
unquote
condition
unquote
pair
prog
body
nil
when
condition
:
rest
body
"Doc String for 'when"
quasiquote
if
unquote
condition
unquote
pair
prog
body
nil
prog
quasiquote
if
unquote
condition
unquote
pair
prog
body
nil
define-syntax
unless
condition
:
rest
body
quasiquote
if
unquote
condition
nil
unquote
pair
prog
body
prog
quasiquote
if
unquote
condition
nil
unquote
pair
prog
body
define-syntax
cond
:
rest
clauses
define
rec
clauses
if
=
nil
clauses
nil
if
=
first
first
clauses
quote
else
prog
if
not
=
()
rest
clauses
error
"There are additional"
pair
quote
prog
rest
first
clauses
list
quote
if
first
first
clauses
pair
quote
prog
rest
first
clauses
rec
rest
clauses
rec
clauses
prog
define
rec
clauses
if
=
nil
clauses
nil
if
=
first
first
clauses
quote
else
prog
if
not
=
()
rest
clauses
error
"There are additional"
pair
quote
prog
rest
first
clauses
list
quote
if
first
first
clauses
pair
quote
prog
rest
first
clauses
rec
rest
clauses
rec
clauses
define
nil?
x
"Checks if the argume"
=
x
nil
define
number?
x
"Checks if the argume"
=
type
x
:
number
define
symbol?
x
"Checks if the argume"
=
type
x
:
symbol
define
keyword?
x
"Checks if the argume"
=
type
x
:
keyword
define
pair?
x
"Checks if the argume"
=
type
x
:
pair
define
string?
x
"Checks if the argume"
=
type
x
:
string
define
lambda?
x
"Checks if the argume"
=
type
x
:
dynamic-function
define
special-lambda?
x
"Checks if the argume"
=
type
x
:
dynamic-macro
define
built-n-function?
x
"Checks if the argume"
=
type
x
:
built-in-function
define
apply
fun
seq
"Applies the funciton"
eval
pair
fun
seq
define
end
seq
"Returns the last pai"
if
or
nil?
seq
not
pair?
rest
seq
seq
end
rest
seq
define
last
seq
"Returns the (first) "
first
end
seq
define
extend
seq
elem
"Extends a list with "
if
pair?
seq
prog
define
e
end
seq
mutate
e
pair
first
e
elem
seq
elem
define
append
seq
elem
"Appends an element t"
extend
seq
pair
elem
nil
define-syntax
extend!
seq
elem
"test"
quasiquote
mutate
unquote
seq
extend
unquote
seq
unquote
elem
prog
quasiquote
mutate
unquote
seq
extend
unquote
seq
unquote
elem
define-syntax
append!
seq
elem
quasiquote
mutate
unquote
seq
append
unquote
seq
unquote
elem
prog
quasiquote
mutate
unquote
seq
append
unquote
seq
unquote
elem
define
length
seq
"Returns the length o"
if
nil?
seq
00000.000000
+
00001.000000
length
rest
seq
define
increment
val
"Adds one to the argu"
+
val
00001.000000
define
decrement
val
"Subtracts one from t"
-
val
00001.000000
define
range
:
keys
from
:
defaults-to
00000.000000
to
"Returns a sequence o"
()
when
<
from
to
pair
from
range
:
from
+
00001.000000
from
:
to
to