SubL/examples.1

constant-internal-id

(constant-internal-id #$Lenat)

 CYC(#): (constant-internal-id #$Lenat)
 [Time: 0.0 secs]
 1

numberp

(numberp 1)

 (numberp 1)
[Time: 0.0 secs]
 T

(numberp #$Lenat)

CYC(#): (numberp #$Lenat)
[Time: 0.0 secs]
NIL

constantp

(constantp #$Lenat)

CYC(#): (constantp #$Lenat)
[Time: 0.002 secs]
T

functionp

CYC(#): (functionp)
Error: Cannot make an arity 0 function from #<Function FUNCTIONP> {req=1 ...}
CYC(#): (functionp "a" 'a)
Error: Cannot make an arity 2 function from #<Function FUNCTIONP> {req=1 opt=0 allowsrest=false}

print

(print "hello")

CYC(#): (print "hello")
"hello" [Time: 0.002 secs]
"hello"

(print stringp)

CYC(#): (print stringp)
Error: STRINGP is not bound.

(print #$Lenat)

CYC(#): (print #$Lenat)

#$Lenat [Time: 0.0 secs]
#$Lenat