Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
8ad709bc
Commit
8ad709bc
authored
Aug 06, 2001
by
Daniel Barlow
Browse files
(defmethod process-option ((c component) (option (eql :depends-on)) value)
for mk-compatibility
parent
d6d83262
Changes
1
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
8ad709bc
...
...
@@ -447,23 +447,6 @@ default constituent type.
(
create-instance-for-component
c
:file
i
nil
)))
value
)))
#|
(defun add-dependency (component our-op their-op them)
(let ((method
;; tacky, but if you dont have the MOP, what can you do?
(eval `(defmethod depends-on list ((operation ,our-op)
(component (eql ,component)))
(mapcar (lambda (X) (list (quote ,their-op) (
(cons (quote ,their-op) (quote ,them))))))
(pushnew method (slot-value component 'inline-methods))))
(defmethod process-option ((c component) (option (eql :in-order-to)) value)
(loop for rest on value by #'cddr
do (add-dependency c (first rest) (car (second rest))
(cdr (second rest)))))
|#
;;; optional extras
;;; run-shell-command functions for other lisp implementations will be
...
...
@@ -485,6 +468,5 @@ default constituent type.
(
defmethod
process-option
((
c
component
)
(
option
(
eql
:source-pathname
))
value
)
(
list
:pathname
value
))
;;; mk not-very-compatibility
(
defmethod
process-option
((
c
component
)
(
option
(
eql
:depends-on
))
value
)
nil
)
(
list
:in-order-to
`
((
compile-system
(
load-system
,@
value
))))
)
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