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
468aa14f
Commit
468aa14f
authored
Nov 15, 2009
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Make things work better with clisp
parent
4a27b93a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
6 deletions
+10
-6
asdf-ops.lisp
asdf-ops.lisp
+6
-2
grovel.lisp
grovel.lisp
+4
-4
No files found.
asdf-ops.lisp
View file @
468aa14f
...
...
@@ -72,7 +72,8 @@ to the base of the system."
(
operating-on-asdf-component-constituent
(
comp
)
(
unless
(
asdf:component-property
comp
'last-loaded-as-source
)
(
setf
(
asdf:component-property
comp
'last-loaded-as-source
)
(
and
(
fine-grain-instrumented-load
;;load
(
and
(
#+
sbcl
fine-grain-instrumented-load
;;load
#-
sbcl
instrumented-load
source
)
(
get-universal-time
)))))))
...
...
@@ -227,7 +228,10 @@ to the base of the system."
;; :cull-redundant cull-redundant
;; :debug-object-types debug-object-types
:base-pathname
base-pathname
))))))
(
rename-file
tmp-file-name
(
first
(
asdf:output-files
op
c
)))))
(
let
((
destination-file
(
first
(
asdf:output-files
op
c
))))
#+
clisp
(
delete-file
destination-file
)
(
rename-file
tmp-file-name
destination-file
#+
clozure
:if-exists
#+
clozure
:rename-and-delete
))))
;;; Reading the component list back into asdf defsystems
...
...
grovel.lisp
View file @
468aa14f
...
...
@@ -635,10 +635,10 @@
(
output-systems-and-dependencies-p
t
))
(
let
((
*print-case*
:downcase
))
(
format
stream
";;; This file contains -*- lisp -*- expressions.~%"
)
(
format
stream
"
~@<;;; ~@;
AUTO-GENERATED file from system definition ~
of system ~A. Instead of directly editing this ~
file, please edit the system definition~P ~
and re-generate this file.~:@>
"
(
format
stream
"
;;;
AUTO-GENERATED file from system definition ~
of system ~A. Instead of directly editing this ~
file, please edit the system definition~P ~
and re-generate this file.
"
(
mapcar
#'
asdf:component-name
(
mapcar
#'
first
dependencies
))
(
length
dependencies
))
(
format
stream
"~&(~%"
)
...
...
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