projects
/
jscl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
00d4d47
)
join and join-trailing accept optional argument
author
David Vazquez
<davazp@gmail.com>
Wed, 26 Dec 2012 17:27:25 +0000
(17:27 +0000)
committer
David Vazquez
<davazp@gmail.com>
Wed, 26 Dec 2012 17:27:25 +0000
(17:27 +0000)
lispstrack.lisp
patch
|
blob
|
history
diff --git
a/lispstrack.lisp
b/lispstrack.lisp
index
12b3a69
..
79b9b6b
100644
(file)
--- a/
lispstrack.lisp
+++ b/
lispstrack.lisp
@@
-388,7
+388,7
@@
(!reduce #'concat-two strs ""))
;;; Concatenate a list of strings, with a separator
(!reduce #'concat-two strs ""))
;;; Concatenate a list of strings, with a separator
-(defun join (list separator)
+(defun join (list &optional (separator ""))
(cond
((null list)
"")
(cond
((null list)
"")
@@
-399,7
+399,7
@@
separator
(join (cdr list) separator)))))
separator
(join (cdr list) separator)))))
-(defun join-trailing (list separator)
+(defun join-trailing (list &optional (separator ""))
(if (null list)
""
(concat (car list) separator (join-trailing (cdr list) separator))))
(if (null list)
""
(concat (car list) separator (join-trailing (cdr list) separator))))
@@
-738,7
+738,7
@@
(integer-to-string (+ idx n-required-arguments)) ":" *newline*
(lookup-variable-translation (car arg) new-env)
"="
(integer-to-string (+ idx n-required-arguments)) ":" *newline*
(lookup-variable-translation (car arg) new-env)
"="
- (ls-compile (cdr arg) new-env fenv)
+ (ls-compile (cadr arg) new-env fenv)
";" *newline*)
cases)
(incf idx)))
";" *newline*)
cases)
(incf idx)))