vaclavt/mlisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

nth function added to stdlib, doc updates

Browse Source
This commit is contained in:
VaclavT
2021-03-02 23:11:57 +01:00
parent 8586a66285
commit 3868a32168
4 changed files with 17 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
debug.lsp
View File

@@ -1,32 +1,5 @@
(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")