Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Pascal J. Bourguignon
asdf
Commits
3dbbb562
Commit
3dbbb562
authored
Mar 11, 2010
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix omission while renaming SPLIT to SPLIT-STRING.
parent
4ddaabe8
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
17 additions
and
14 deletions
+17
-14
asdf.lisp
asdf.lisp
+13
-12
test/run-tests.sh
test/run-tests.sh
+4
-2
No files found.
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
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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