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
173de3d5
Commit
173de3d5
authored
Jan 20, 2010
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
CLISP tweak. constituent-designator for NIL.
parent
e49c446c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
42 deletions
+8
-42
asdf-ops.lisp
asdf-ops.lisp
+2
-39
classes.lisp
classes.lisp
+6
-3
No files found.
asdf-ops.lisp
View file @
173de3d5
...
...
@@ -229,10 +229,8 @@ to the base of the system."
;; :cull-redundant cull-redundant
;; :debug-object-types debug-object-types
:base-pathname
base-pathname
))))))
#+
clisp
(
when
(
probe-file
destination-file
)
(
delete-file
destination-file
))
;; Workaround BUG in CLISP 2.48, lose atomicity
#+
clisp
(
posix:copy-file
tmp-file-name
destination-file
:method
:rename
:if-exists
:overwrite
)
#+
clisp
;; But for a bug in CLISP 2.48, we should use :if-exists :overwrite and be atomic
(
posix:copy-file
tmp-file-name
destination-file
:method
:rename
)
#-
clisp
(
rename-file
tmp-file-name
destination-file
#+
clozure
:if-exists
#+
clozure
:rename-and-delete
)))
...
...
@@ -271,41 +269,6 @@ to the base of the system."
(
when
system
(
push
(
first
system
)
component-names
))))))
#|
;; Old macro-ish version by antifuchs:
(macrolet
((define-comp-file-reader (fname (1-system-var return-var)
&body 1-system-body)
(let ((system-name (gensym))
(system-names (gensym))
(done-systems (gensym))
(systems (gensym)))
`(defun ,fname (pathname &rest ,system-names)
(with-open-file (f pathname :direction :input)
(let ((,systems (read f))
,done-systems
,return-var)
(labels ((do-1-system (,system-name)
(unless (position ,system-name ,done-systems
:test #'string-equal)
(let ((,1-system-var (assoc ,system-name ,systems
:test #'string-equal)))
(progn ,@1-system-body)
(push ,system-name ,done-systems)
(getf (cdr ,1-system-var) :depends-on)))))
(loop :while ,system-names :do
(let ((,system-name (pop ,system-names)))
(setf ,system-names (append ,system-names
(do-1-system ,system-name)))))
,return-var)))))))
(define-comp-file-reader read-component-file (system component-list)
(setf component-list
(append component-list (getf (cdr system) :components))))
(define-comp-file-reader systems-in-configuration (system component-names)
(when system
(push (first system) component-names))))
|#
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;; Unused.
...
...
classes.lisp
View file @
173de3d5
...
...
@@ -265,6 +265,12 @@
(
defgeneric
constituent-designator
(
con
)
(
:documentation
"Return the unique designator of the constituent."
))
(
defmethod
constituent-designator
((
con
null
))
nil
)
(
defmethod
constituent-designator
((
con
top-constituent
))
t
)
(
defmethod
constituent-designator
((
con
constituent
))
(
list*
(
class-of
con
)
(
constituent-index
con
)
(
constituent-designator
(
constituent-parent
con
))))
...
...
@@ -273,9 +279,6 @@
(
list*
:form
(
constituent-index
con
)
(
constituent-designator
(
constituent-parent
con
))))
(
defmethod
constituent-designator
((
con
top-constituent
))
nil
)
(
defmethod
constituent-designator
((
con
asdf-component-constituent
))
(
list*
:asdf
(
asdf:component-pathname
(
asdf-component-constituent-component
con
))
...
...
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