SubL/examples.constantp

SubL/examples.1

constantp

CYC(56): (constantp)
Error: Cannot make an arity 0 function from #<Function CONSTANTP> {req=1 ...}
CYC(#): (constantp #$Lenat #$Lenat #$Lenat)
Error: Cannot make an arity 3 function from #<Function CONSTANTP> {req=1 opt=1 allowsrest=false}

constantp w/ 1 arg

(constantp "a")

CYC(54): (constantp "a")
[Time: 0.0 secs]
T

(constantp #$Lenat)

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

(constantp 'a)

CYC(#): (constantp 'a)
[Time: 0.0 secs]
NIL

constantp w/ 2 arg

(constantp #$Lenat "a")

CYC(#): (constantp #$Lenat "a")
[Time: 0.001 secs]
T