28 lines
802 B
Plaintext
28 lines
802 B
Plaintext
(print "Debug starts")
|
|
|
|
; add support for ()
|
|
|
|
(print "(member '(1 2 3) 1:" (member '(1 2 3) 1))
|
|
(print "(member '(1 2 3) 3:" (member '(1 2 3) 3))
|
|
(print "(member '(1 2 3) 30:" (member '(1 2 3) 30))
|
|
|
|
|
|
(print "result of (and (> 2 1) (> 2 1)): " (and (> 2 1) (> 2 1)))
|
|
(print "result of (or (> 2 1) (> 2 1)): " (or (> 2 1) (> 2 1)))
|
|
(print "result of (and (> 2 1) (> 1 2)): " (and (> 2 1) (> 1 2)))
|
|
(print "result of (or (> 2 1) (> 1 2)): " (or (> 2 1) (> 1 2)))
|
|
(print "result of (and (> 1 1) (> 1 2)): " (and (> 1 1) (> 1 2)))
|
|
(print "result of (or (> 1 1) (> 2 1)): " (or (> 1 1) (> 1 2)))
|
|
|
|
;; (print (member '(1 2 3) 1))
|
|
;; (print (member '(1 2 3) 10))
|
|
|
|
|
|
|
|
(print (string-rpad "rpad0123456789" 10 "x"))
|
|
(print (string-rpad "rpad " 10 "x"))
|
|
|
|
(print (string-lpad "lpad" 10 "x"))
|
|
|
|
(print "Debug ends")
|