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
1
Issues
1
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
Hugo Ishimaru
asdf
Commits
f2caf8a2
Commit
f2caf8a2
authored
Jul 10, 2014
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Replace a trivial if-let by or.
parent
c713e0a0
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
34 additions
and
35 deletions
+34
-35
find-system.lisp
find-system.lisp
+34
-35
No files found.
find-system.lisp
View file @
f2caf8a2
...
...
@@ -386,38 +386,37 @@ PREVIOUS-TIME when not null is the time at which the PREVIOUS system was loaded.
(
let
((
primary-name
(
primary-system-name
name
)))
(
unless
(
equal
name
primary-name
)
(
find-system
primary-name
nil
)))
(
if-let
(
x
(
and
*immutable-systems*
(
gethash
name
*immutable-systems*
)
(
cdr
(
system-registered-p
name
))))
x
(
multiple-value-bind
(
foundp
found-system
pathname
previous
previous-time
)
(
locate-system
name
)
(
assert
(
eq
foundp
(
and
(
or
found-system
pathname
previous
)
t
)))
(
let
((
previous-pathname
(
and
previous
(
system-source-file
previous
)))
(
system
(
or
previous
found-system
)))
(
when
(
and
found-system
(
not
previous
))
(
register-system
found-system
))
(
when
(
and
system
pathname
)
(
setf
(
system-source-file
system
)
pathname
))
(
when
(
and
pathname
(
let
((
stamp
(
get-file-stamp
pathname
)))
(
and
stamp
(
not
(
and
previous
(
or
(
pathname-equal
pathname
previous-pathname
)
(
and
pathname
previous-pathname
(
pathname-equal
(
physicalize-pathname
pathname
)
(
physicalize-pathname
previous-pathname
))))
(
stamp<=
stamp
previous-time
))))))
;; only load when it's a pathname that is different or has newer content, and not an old asdf
(
load-asd
pathname
:name
name
)))
(
let
((
in-memory
(
system-registered-p
name
)))
; try again after loading from disk if needed
(
cond
(
in-memory
(
when
pathname
(
setf
(
car
in-memory
)
(
get-file-stamp
pathname
)))
(
cdr
in-memory
))
(
error-p
(
error
'missing-component
:requires
name
))
(
t
;; not found: don't keep negative cache, see lp#1335323
(
unset-asdf-cache-entry
`
(
locate-system
,
name
))
(
return-from
find-system
nil
)))))))))
(
or
(
and
*immutable-systems*
(
gethash
name
*immutable-systems*
)
(
cdr
(
system-registered-p
name
)))
(
multiple-value-bind
(
foundp
found-system
pathname
previous
previous-time
)
(
locate-system
name
)
(
assert
(
eq
foundp
(
and
(
or
found-system
pathname
previous
)
t
)))
(
let
((
previous-pathname
(
and
previous
(
system-source-file
previous
)))
(
system
(
or
previous
found-system
)))
(
when
(
and
found-system
(
not
previous
))
(
register-system
found-system
))
(
when
(
and
system
pathname
)
(
setf
(
system-source-file
system
)
pathname
))
(
when
(
and
pathname
(
let
((
stamp
(
get-file-stamp
pathname
)))
(
and
stamp
(
not
(
and
previous
(
or
(
pathname-equal
pathname
previous-pathname
)
(
and
pathname
previous-pathname
(
pathname-equal
(
physicalize-pathname
pathname
)
(
physicalize-pathname
previous-pathname
))))
(
stamp<=
stamp
previous-time
))))))
;; only load when it's a pathname that is different or has newer content, and not an old asdf
(
load-asd
pathname
:name
name
)))
(
let
((
in-memory
(
system-registered-p
name
)))
; try again after loading from disk if needed
(
cond
(
in-memory
(
when
pathname
(
setf
(
car
in-memory
)
(
get-file-stamp
pathname
)))
(
cdr
in-memory
))
(
error-p
(
error
'missing-component
:requires
name
))
(
t
;; not found: don't keep negative cache, see lp#1335323
(
unset-asdf-cache-entry
`
(
locate-system
,
name
))
(
return-from
find-system
nil
)))))))))
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