1(set! cons? (lambda (o) "True if o is a cons cell." (= (type o) "CONS") ) )
2(set! exception? (lambda (o) "True if o is an exception." (= (type o) "EXEP")))
3(set! free? (lambda (o) "Trus if o is a free cell - this should be impossible!" (= (type o) "FREE")))
4(set! function? (lambda (o) "True if o is a compiled function." (= (type o) "EXEP")))
5(set! integer? (lambda (o) "True if o is an integer." (= (type o) "INTR")))
6(set! lambda? (lambda (o) "True if o is an interpreted (source) function." (= (type o) "LMDA")))
7(set! nil? (lambda (o) "True if o is the canonical nil value." (= (type o) "NIL ")))
8(set! nlambda? (lambda (o) "True if o is an interpreted (source) special form." (= (type o) "NLMD")))
9(set! rational? (lambda (o) "True if o is an rational number." (= (type o) "RTIO")))
10(set! read? (lambda (o) "True if o is a read stream." (= (type o) "READ") ) )
11(set! real? (lambda (o) "True if o is an real number." (= (type o) "REAL")))
12(set! special? (lambda (o) "True if o is a compiled special form." (= (type o) "SPFM") ) )
13(set! string? (lambda (o) "True if o is a string." (= (type o) "STRG") ) )
14(set! symbol? (lambda (o) "True if o is a symbol." (= (type o) "SYMB") ) )
15(set! true? (lambda (o) "True if o is the canonical true value." (= (type o) "TRUE") ) )
16(set! write? (lambda (o) "True if o is a write stream." (= (type o) "WRIT") ) )
1.9.8