Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
3dbbb562
Commit
3dbbb562
authored
Mar 11, 2010
by
Francois-Rene Rideau
Browse files
Fix omission while renaming SPLIT to SPLIT-STRING.
parent
4ddaabe8
Changes
2
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
3dbbb562
...
...
@@ -531,18 +531,19 @@ return a list.
If MAX is specified, then no more than max(1,MAX) components will be returned,
starting the separation from the end, e.g. when called with arguments
\"a.b.c.d.e\" :max 3 :separator \".\" it will return (\"a.b.c\" \"d\" \"e\")."
(
let
((
list
nil
)
(
words
0
)
(
end
(
length
string
)))
(
flet
((
separatorp
(
char
)
(
find
char
separator
))
(
done
()
(
return-from
split
(
cons
(
subseq
string
0
end
)
list
))))
(
loop
:for
start
=
(
if
(
and
max
(
>=
words
(
1-
max
)))
(
done
)
(
position-if
#'
separatorp
string
:end
end
:from-end
t
))
:do
(
when
(
null
start
)
(
done
))
(
push
(
subseq
string
(
1+
start
)
end
)
list
)
(
incf
words
)
(
setf
end
start
)))))
(
block
nil
(
let
((
list
nil
)
(
words
0
)
(
end
(
length
string
)))
(
flet
((
separatorp
(
char
)
(
find
char
separator
))
(
done
()
(
return
(
cons
(
subseq
string
0
end
)
list
))))
(
loop
:for
start
=
(
if
(
and
max
(
>=
words
(
1-
max
)))
(
done
)
(
position-if
#'
separatorp
string
:end
end
:from-end
t
))
:do
(
when
(
null
start
)
(
done
))
(
push
(
subseq
string
(
1+
start
)
end
)
list
)
(
incf
words
)
(
setf
end
start
))))))
(
defun
split-name-type
(
filename
)
(
destructuring-bind
(
name
&optional
type
)
...
...
test/run-tests.sh
View file @
3dbbb562
...
...
@@ -55,8 +55,10 @@ do_tests() {
command
=
$1
eval
=
$2
fasl_ext
=
$3
rm
-f
*
.
$fasl_ext
~/.cache/common-lisp/
"
`
pwd
`
"
/
*
.
$fasl_ext
||
true
(
cd
..
&&
$command
$eval
'(load "test/compile-asdf.lisp")'
)
if
[
$?
-eq
0
]
;
then
echo
"Compiled OK"
if
[
$?
-ne
0
]
;
then
echo
"Compilation FAILED"
>
&2
else
echo
"Compiled OK"
>
&2
test_count
=
0
test_pass
=
0
test_fail
=
0
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment