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-dependency-grovel
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
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
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
xcvb
asdf-dependency-grovel
Commits
1f087347
Commit
1f087347
authored
Apr 15, 2010
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
ASDF-DEPENDENCY-GROVEL 1.100: Depend on ASDF 2. Give this version a number.
parent
bd5a2617
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
20 additions
and
16 deletions
+20
-16
grovel.lisp
grovel.lisp
+1
-13
package.lisp
package.lisp
+19
-3
No files found.
grovel.lisp
View file @
1f087347
...
...
@@ -497,9 +497,6 @@
;; Used by maybe-translated-component-name and output-component-file.
(
defvar
*asdf-has-sensible-component-names-p*
#+
asdf2
t
#-
asdf2
nil
)
(
defun
strip/
(
name
)
(
subseq
name
(
1+
(
or
(
position
#\/
name
:from-end
t
)
-1
))))
(
defun
strip-extension
(
name
extension
)
...
...
@@ -521,16 +518,7 @@
(
defun
enough-component-spec
(
c
&optional
pn-p
)
(
multiple-value-bind
(
name
pn
)
(
normalized-component-name
c
)
(
if
(
or
*asdf-has-sensible-component-names-p*
;; means ASDF 2.
(
equal
pn
(
ignore-errors
(
namestring
(
make-pathname
:name
(
strip/
name
)
:type
(
asdf:source-file-type
c
(
asdf:component-system
c
)))))))
(
write-to-string
name
)
;; XXX: make-pathname forms are more portable, but namestrings
;; are more readable. People should be using a recent ASDF, anyway.
(
format
nil
"~S~:[~; :pathname #p~S~]"
name
pn-p
pn
))))
(
write-to-string
name
)))
;; Used by additional-dependencies* and overridden-dependencies*.
(
defun
map-over-instrumented-component-and-parents
(
component
slot-name
)
...
...
package.lisp
View file @
1f087347
#+
xcvb
(
module
())
(
cl:defpackage
#:asdf-dependency-grovel
(
cl:in-package
:asdf
)
(
defpackage
#:asdf-dependency-grovel
(
:use
#:cl
)
(
:export
#:reload
#:component-file
...
...
@@ -21,8 +23,22 @@
#:fine-grain-instrumented-load
#:print-big-ol-dependency-report
))
(
cl:
defpackage
#:asdf-dependency-grovel.packages
(
defpackage
#:asdf-dependency-grovel.packages
(
:use
))
(
cl:
defpackage
#:asdf-dependency-grovel.lambdas
(
defpackage
#:asdf-dependency-grovel.lambdas
(
:use
))
(
in-package
#:asdf-dependency-grovel
)
(
defparameter
*asdf-dependency-grovel-version*
"1.100"
)
(
defparameter
*asdf-version-required-by-adg*
"1.702"
)
#-
asdf2
(
error
"ASDF-DEPENDENCY-GROVEL requires ASDF2."
)
#+
asdf2
(
unless
(
asdf:version-satisfies
(
asdf:asdf-version
)
*asdf-version-required-by-adg*
)
(
error
"POIU ~A requires ASDF ~A or later."
*asdf-dependency-grovel-version*
*asdf-version-required-by-adg*
))
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