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
16
Issues
16
List
Boards
Labels
Service Desk
Milestones
Merge Requests
8
Merge Requests
8
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
asdf
asdf
Commits
80a474b4
Commit
80a474b4
authored
Nov 12, 2013
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Respect 100-character width limit.
parent
8fd8939b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
4 deletions
+5
-4
uiop/lisp-build.lisp
uiop/lisp-build.lisp
+3
-3
uiop/utility.lisp
uiop/utility.lisp
+2
-1
No files found.
uiop/lisp-build.lisp
View file @
80a474b4
...
...
@@ -15,8 +15,8 @@
#:compile-condition
#:compile-file-error
#:compile-warned-error
#:compile-failed-error
#:compile-warned-warning
#:compile-failed-warning
#:check-lisp-compile-results
#:check-lisp-compile-warnings
#:*uninteresting-conditions*
#:*u
ninteresting-compiler-conditions*
#:*uninteresting-loader
-conditions*
#:*u
sual-uninteresting
-conditions*
#:*uninteresting-conditions*
#:*u
sual-uninteresting
-conditions*
#:*u
ninteresting-compiler-conditions*
#:*uninteresting-loader
-conditions*
;; Types
#+
sbcl
#:sb-grovel-unknown-constant-condition
;; Functions & Macros
...
...
@@ -502,7 +502,7 @@ If that given type is NIL, use the currently configured *WARNINGS-FILE-TYPE* ins
(
equal
(
pathname-type
file
)
type
)))
(
defun
check-deferred-warnings
(
files
&optional
context-format
context-arguments
)
"Given a list of FILES
in which deferred warnings were
saved by CALL-WITH-SAVED-DEFERRED-WARNINGS,
"Given a list of FILES
containing deferred warnings
saved by CALL-WITH-SAVED-DEFERRED-WARNINGS,
re-intern and raise any warnings that are still meaningful."
(
let
((
file-errors
nil
)
(
failure-p
nil
)
...
...
uiop/utility.lisp
View file @
80a474b4
...
...
@@ -241,7 +241,8 @@ Returns two values: \(A B C\) and \(1 2 3\)."
NIL is interpreted as an empty string. A character is interpreted as a string of length one."
(
when
(
or
start
end
)
(
setf
strings
(
subseq
strings
start
end
)))
(
when
key
(
setf
strings
(
mapcar
key
strings
)))
(
loop
:with
output
=
(
make-string
(
loop
:for
s
:in
strings
:sum
(
if
(
characterp
s
)
1
(
length
s
)))
(
loop
:with
output
=
(
make-string
(
loop
:for
s
:in
strings
:sum
(
if
(
characterp
s
)
1
(
length
s
)))
:element-type
(
strings-common-element-type
strings
))
:with
pos
=
0
:for
input
:in
strings
...
...
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