33 lines
849 B
Plaintext
33 lines
849 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 nil)
|
|
(print ())
|
|
|
|
(print (make-list 5))
|
|
|
|
(print "Debug ends")
|