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
2ae62b6d
Commit
2ae62b6d
authored
Jun 26, 2013
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
3.0.1.11: some whitespace & comment cleanups.
parent
0f99122d
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
11 additions
and
11 deletions
+11
-11
asdf.asd
asdf.asd
+1
-1
header.lisp
header.lisp
+1
-1
plan.lisp
plan.lisp
+7
-7
upgrade.lisp
upgrade.lisp
+1
-1
version.lisp-expr
version.lisp-expr
+1
-1
No files found.
asdf.asd
View file @
2ae62b6d
...
...
@@ -74,7 +74,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"3.0.1.1
0
"
;; to be automatically updated by make bump-version
:version
"3.0.1.1
1
"
;; to be automatically updated by make bump-version
:depends-on
()
#+
asdf3
:encoding
#+
asdf3
:utf-8
;; For most purposes, asdf itself specially counts as a builtin system.
...
...
header.lisp
View file @
2ae62b6d
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 3.0.1.1
0
: Another System Definition Facility.
;;; This is ASDF 3.0.1.1
1
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
plan.lisp
View file @
2ae62b6d
...
...
@@ -206,8 +206,8 @@ the action of OPERATION on COMPONENT in the PLAN"))
(
in-files
(
input-files
o
c
))
;; Three kinds of actions:
(
out-op
(
and
out-files
t
))
; those that create files on the filesystem
;(image-op (and in-files (null out-files))) ; those that load stuff into the image
;(null-op (and (null out-files) (null in-files))) ; dependency
placeholders that do nothing
;
;(image-op (and in-files (null out-files))) ; those that load stuff into the image
;;(null-op (and (null out-files) (null in-files))) ;
placeholders that do nothing
;; When was the thing last actually done? (Now, or ask.)
(
op-time
(
or
just-done
(
component-operation-time
o
c
)))
;; Accumulated timestamp from dependencies (or T if forced or out-of-date)
...
...
@@ -326,7 +326,9 @@ the action of OPERATION on COMPONENT in the PLAN"))
:stamp
stamp
:done-p
(
and
done-p
(
not
add-to-plan-p
))
:planned-p
add-to-plan-p
:index
(
if
status
(
action-index
status
)
(
incf
(
plan-total-action-count
plan
)))))
:index
(
if
status
(
action-index
status
)
(
incf
(
plan-total-action-count
plan
)))))
(
when
add-to-plan-p
(
incf
(
plan-planned-action-count
plan
))
(
unless
aniip
...
...
@@ -423,8 +425,7 @@ the action of OPERATION on COMPONENT in the PLAN"))
(
defmethod
traverse-actions
(
actions
&rest
keys
&key
plan-class
&allow-other-keys
)
(
let
((
plan
(
apply
'make-instance
(
or
plan-class
'filtered-sequential-plan
)
keys
)))
(
loop*
:for
(
o
.
c
)
:in
actions
:do
(
traverse-action
plan
o
c
t
))
(
loop*
:for
(
o
.
c
)
:in
actions
:do
(
traverse-action
plan
o
c
t
))
plan
))
(
define-convenience-action-methods
traverse-sub-actions
(
operation
component
&key
))
...
...
@@ -435,8 +436,7 @@ the action of OPERATION on COMPONENT in the PLAN"))
(
defmethod
plan-actions
((
plan
filtered-sequential-plan
))
(
with-slots
(
keep-operation
keep-component
)
plan
(
loop*
:for
(
o
.
c
)
:in
(
call-next-method
)
:when
(
and
(
typep
o
keep-operation
)
(
typep
c
keep-component
))
:when
(
and
(
typep
o
keep-operation
)
(
typep
c
keep-component
))
:collect
(
cons
o
c
))))
(
defmethod
required-components
(
system
&rest
keys
&key
(
goal-operation
'load-op
)
&allow-other-keys
)
...
...
upgrade.lisp
View file @
2ae62b6d
...
...
@@ -52,7 +52,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO
;; "3.4.5.67" would be a development version in the official upstream of 3.4.5.
;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5
;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67
(
asdf-version
"3.0.1.1
0
"
)
(
asdf-version
"3.0.1.1
1
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
2ae62b6d
"3.0.1.1
0
"
"3.0.1.1
1
"
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