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
15
Issues
15
List
Boards
Labels
Service Desk
Milestones
Merge Requests
9
Merge Requests
9
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
73b746da
Commit
73b746da
authored
Jul 01, 2013
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
3.0.1.13: add herald item for ASDF on CMUCL (contributed by Raymond Toy). Whitespace changes.
parent
e32988a7
Changes
6
Show whitespace changes
Inline
Side-by-side
Showing
6 changed files
with
14 additions
and
9 deletions
+14
-9
asdf.asd
asdf.asd
+1
-1
footer.lisp
footer.lisp
+6
-0
header.lisp
header.lisp
+3
-3
lisp-action.lisp
lisp-action.lisp
+2
-3
upgrade.lisp
upgrade.lisp
+1
-1
version.lisp-expr
version.lisp-expr
+1
-1
No files found.
asdf.asd
View file @
73b746da
...
@@ -74,7 +74,7 @@
...
@@ -74,7 +74,7 @@
:licence
"MIT"
:licence
"MIT"
:description
"Another System Definition Facility"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"3.0.1.1
2
"
;; to be automatically updated by make bump-version
:version
"3.0.1.1
3
"
;; to be automatically updated by make bump-version
:depends-on
()
:depends-on
()
#+
asdf3
:encoding
#+
asdf3
:utf-8
#+
asdf3
:encoding
#+
asdf3
:utf-8
;; For most purposes, asdf itself specially counts as a builtin system.
;; For most purposes, asdf itself specially counts as a builtin system.
...
...
footer.lisp
View file @
73b746da
...
@@ -41,6 +41,12 @@
...
@@ -41,6 +41,12 @@
(
and
(
first
l
)
(
register-pre-built-system
(
coerce-name
name
)))
(
and
(
first
l
)
(
register-pre-built-system
(
coerce-name
name
)))
(
values-list
l
))))))))
(
values-list
l
))))))))
#+
cmu
(
with-upgradability
()
(
defun
herald-asdf
(
stream
)
(
format
stream
" ASDF ~A"
(
asdf-version
)))
(
setf
(
getf
ext:*herald-items*
:asdf
)
`
(
herald-asdf
)))
;;;; Done!
;;;; Done!
(
with-upgradability
()
(
with-upgradability
()
...
...
header.lisp
View file @
73b746da
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 3.0.1.1
2
: Another System Definition Facility.
;;; This is ASDF 3.0.1.1
3
: Another System Definition Facility.
;;;
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
;;; please mail to <asdf-devel@common-lisp.net>.
...
@@ -70,8 +70,8 @@
...
@@ -70,8 +70,8 @@
(
existing-major-minor
(
subseq
existing-version
0
second-dot
))
(
existing-major-minor
(
subseq
existing-version
0
second-dot
))
(
existing-version-number
(
and
existing-version
(
read-from-string
existing-major-minor
)))
(
existing-version-number
(
and
existing-version
(
read-from-string
existing-major-minor
)))
(
away
(
format
nil
"~A-~A"
:asdf
existing-version
)))
(
away
(
format
nil
"~A-~A"
:asdf
existing-version
)))
(
when
(
and
existing-version
(
<
existing-version-number
(
when
(
and
existing-version
(
or
#+
abcl
2.25
#+
cmu
2.018
#-
(
or
abcl
cmu
)
2.27
)
))
(
<
existing-version-number
#+
abcl
2.25
#+
cmu
2.018
#-
(
or
abcl
cmu
)
2.27
))
(
rename-package
:asdf
away
)
(
rename-package
:asdf
away
)
(
when
*load-verbose*
(
when
*load-verbose*
(
format
t
"~&; Renamed old ~A package away to ~A~%"
:asdf
away
))))))
(
format
t
"~&; Renamed old ~A package away to ~A~%"
:asdf
away
))))))
...
...
lisp-action.lisp
View file @
73b746da
...
@@ -33,15 +33,14 @@
...
@@ -33,15 +33,14 @@
(
defclass
basic-load-op
(
operation
)
())
(
defclass
basic-load-op
(
operation
)
())
(
defclass
basic-compile-op
(
operation
)
(
defclass
basic-compile-op
(
operation
)
((
proclamations
:initarg
:proclamations
:accessor
compile-op-proclamations
:initform
nil
)
((
proclamations
:initarg
:proclamations
:accessor
compile-op-proclamations
:initform
nil
)
(
flags
:initarg
:flags
:accessor
compile-op-flags
(
flags
:initarg
:flags
:accessor
compile-op-flags
:initform
nil
))))
:initform
nil
))))
;;; Our default operations: loading into the current lisp image
;;; Our default operations: loading into the current lisp image
(
with-upgradability
()
(
with-upgradability
()
(
defclass
prepare-op
(
upward-operation
sideway-operation
)
(
defclass
prepare-op
(
upward-operation
sideway-operation
)
((
sideway-operation
:initform
'load-op
)))
((
sideway-operation
:initform
'load-op
)))
(
defclass
load-op
(
basic-load-op
downward-operation
sideway-operation
selfward-operation
)
(
defclass
load-op
(
basic-load-op
downward-operation
sideway-operation
selfward-operation
)
;; NB: even though compile-op depends
-on
on prepare-op it is not needed-in-image-p,
;; NB: even though compile-op depends on prepare-op it is not needed-in-image-p,
;; so we need to directly depend on prepare-op for its side-effects in the current image.
;; so we need to directly depend on prepare-op for its side-effects in the current image.
((
selfward-operation
:initform
'
(
prepare-op
compile-op
))))
((
selfward-operation
:initform
'
(
prepare-op
compile-op
))))
(
defclass
compile-op
(
basic-compile-op
downward-operation
selfward-operation
)
(
defclass
compile-op
(
basic-compile-op
downward-operation
selfward-operation
)
...
...
upgrade.lisp
View file @
73b746da
...
@@ -52,7 +52,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO
...
@@ -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.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.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
;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67
(
asdf-version
"3.0.1.1
2
"
)
(
asdf-version
"3.0.1.1
3
"
)
(
existing-version
(
asdf-version
)))
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
73b746da
"3.0.1.1
2
"
"3.0.1.1
3
"
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