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
827ea844
Commit
827ea844
authored
Feb 24, 2013
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
2.30.8: this version has actually been built with new-style SBCL requires.
parent
76f2f42a
Changes
7
Hide whitespace changes
Inline
Side-by-side
Showing
7 changed files
with
21 additions
and
15 deletions
+21
-15
asdf.asd
asdf.asd
+1
-1
bundle.lisp
bundle.lisp
+10
-7
find-system.lisp
find-system.lisp
+6
-3
header.lisp
header.lisp
+1
-1
lisp-action.lisp
lisp-action.lisp
+1
-1
upgrade.lisp
upgrade.lisp
+1
-1
version.lisp-expr
version.lisp-expr
+1
-1
No files found.
asdf.asd
View file @
827ea844
...
...
@@ -74,7 +74,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"2.30.
7
"
;; to be automatically updated by make bump-version
:version
"2.30.
8
"
;; 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.
...
...
bundle.lisp
View file @
827ea844
...
...
@@ -9,7 +9,7 @@
(
:export
#:bundle-op
#:bundle-op-build-args
#:bundle-type
#:bundle-system
#:bundle-pathname-type
#:fasl-op
#:load-fasl-op
#:lib-op
#:dll-op
#:binary-op
#:monolithic-op
#:monolithic-bundle-op
#:direct-dependency-files
#:monolithic-op
#:monolithic-bundle-op
#:
bundlable-file-p
#:
direct-dependency-files
#:monolithic-binary-op
#:monolithic-fasl-op
#:monolithic-lib-op
#:monolithic-dll-op
#:program-op
#:compiled-file
#:precompiled-system
#:prebuilt-system
...
...
@@ -168,10 +168,10 @@
(
defun
bundlable-file-p
(
pathname
)
(
let
((
type
(
pathname-type
pathname
)))
(
declare
(
ignorable
type
))
(
or
#+
ecl
(
or
(
equal
type
(
compile-file-type
:type
:object
))
(
equal
type
(
compile-file-type
:type
:static-library
)))
#+
mkcl
(
equal
type
(
compile-file-type
:fasl-p
nil
))
#+
(
or
allegro
clisp
clozure
cmu
lispworks
sbcl
scl
xcl
)
(
equal
type
(
compile-file-type
)))))
(
or
#+
ecl
(
or
(
equal
p
type
(
compile-file-type
:type
:object
))
(
equal
p
type
(
compile-file-type
:type
:static-library
)))
#+
mkcl
(
equal
p
type
(
compile-file-type
:fasl-p
nil
))
#+
(
or
allegro
clisp
clozure
cmu
lispworks
sbcl
scl
xcl
)
(
equal
p
type
(
compile-file-type
)))))
(
defgeneric*
(
trivial-system-p
)
(
component
))
...
...
@@ -398,8 +398,8 @@
#-
(
or
ecl
mkcl
)
(
defmethod
perform
((
o
fasl-op
)
(
c
system
))
(
let*
((
input-files
(
input-files
o
c
))
(
fasl-files
(
remove
(
compile-file-type
)
input-files
:key
#'
pathname-type
:test-not
#'
string=
))
(
non-fasl-files
(
remove
(
compile-file-type
)
input-files
:key
#'
pathname-type
:test
#'
string=
))
(
fasl-files
(
remove
(
compile-file-type
)
input-files
:key
#'
pathname-type
:test-not
#'
equalp
))
(
non-fasl-files
(
remove
(
compile-file-type
)
input-files
:key
#'
pathname-type
:test
#'
equalp
))
(
output-files
(
output-files
o
c
))
(
output-file
(
first
output-files
)))
(
unless
input-files
(
format
t
"WTF no input-files for ~S on ~S !???"
o
c
))
...
...
@@ -419,6 +419,9 @@
(
declare
(
ignorable
o
))
(
bundle-output-files
(
find-operation
o
'fasl-op
)
s
))
(
defmethod
perform
((
o
load-op
)
(
s
precompiled-system
))
(
perform-lisp-load-fasl
o
s
))
(
defmethod
component-depends-on
((
o
load-fasl-op
)
(
s
precompiled-system
))
(
declare
(
ignorable
o
))
`
((
load-op
,
s
)
,@
(
call-next-method
))))
...
...
find-system.lisp
View file @
827ea844
...
...
@@ -234,13 +234,16 @@ Going forward, we recommend new users should be using the source-registry.
(
defvar
*preloaded-systems*
(
make-hash-table
:test
'equal
))
(
defun
make-preloaded-system
(
name
keys
)
(
apply
'make-instance
(
getf
keys
:class
'system
)
:name
name
:source-file
(
getf
keys
:source-file
)
(
remove-plist-keys
'
(
:class
:name
:source-file
)
keys
)))
(
defun
sysdef-preloaded-system-search
(
requested
)
(
let
((
name
(
coerce-name
requested
)))
(
multiple-value-bind
(
keys
foundp
)
(
gethash
name
*preloaded-systems*
)
(
when
foundp
(
apply
'make-instance
(
getf
keys
:class
'system
)
:name
name
:source-file
(
getf
keys
:source-file
)
(
remove-plist-keys
'
(
:class
:name
:source-file
)
keys
))))))
(
make-preloaded-system
name
keys
)))))
(
defun
register-preloaded-system
(
system-name
&rest
keys
)
(
setf
(
gethash
(
coerce-name
system-name
)
*preloaded-systems*
)
keys
))
...
...
header.lisp
View file @
827ea844
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.30.
7
: Another System Definition Facility.
;;; This is ASDF 2.30.
8
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
lisp-action.lisp
View file @
827ea844
...
...
@@ -106,7 +106,7 @@
"~/asdf-action::format-action/"
(
list
(
cons
o
c
))))))
(
defun
report-file-p
(
f
)
(
equal
(
pathname-type
f
)
"build-report"
))
(
equal
p
(
pathname-type
f
)
"build-report"
))
(
defun
perform-lisp-warnings-check
(
o
c
)
(
let*
((
expected-warnings-files
(
remove-if-not
#'
warnings-file-p
(
input-files
o
c
)))
(
actual-warnings-files
(
loop
:for
w
:in
expected-warnings-files
...
...
upgrade.lisp
View file @
827ea844
...
...
@@ -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
"2.30.
7
"
)
(
asdf-version
"2.30.
8
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
827ea844
"2.30.
7
"
"2.30.
8
"
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