Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
3507e355
Commit
3507e355
authored
Feb 20, 2014
by
Francois-Rene Rideau
Committed by
Robert P. Goldman
Feb 27, 2014
Browse files
Trivial non-functional cleanups
(improved comments, whitespace, remove doubly exported symbols).
parent
d19a6064
Changes
5
Hide whitespace changes
Inline
Side-by-side
component.lisp
View file @
3507e355
...
...
@@ -34,11 +34,9 @@
;; Internals we'd like to share with the ASDF package, especially for upgrade purposes
#:name
#:version
#:description
#:long-description
#:author
#:maintainer
#:licence
#:components-by-name
#:components
#:children
#:children-by-name
#:default-component-class
#:author
#:maintainer
#:licence
#:source-file
;; the following retained for backward compatibility.
#:defsystem-depends-on
#:components-by-name
#:components
#:children
#:children-by-name
#:default-component-class
#:source-file
#:defsystem-depends-on
; This symbol retained for backward compatibility.
#:sideway-dependencies
#:if-feature
#:in-order-to
#:inline-methods
#:relative-pathname
#:absolute-pathname
#:operation-times
#:around-compile
#:%encoding
#:properties
#:component-properties
#:parent
))
...
...
parse-defsystem.lisp
View file @
3507e355
...
...
@@ -170,8 +170,8 @@
(
apply
'reinitialize-instance
component
args
)
(
setf
component
(
apply
'make-instance
class
args
)))
(
component-pathname
component
)
; eagerly compute the absolute pathname
;; cache information for introspection
(
when
(
typep
component
'system
)
;; cache information for introspection
(
setf
(
slot-value
component
'depends-on
)
depends-on
(
slot-value
component
'weakly-depends-on
)
weakly-depends-on
))
(
let
((
sysfile
(
system-source-file
(
component-system
component
))))
;; requires the previous
...
...
system.lisp
View file @
3507e355
...
...
@@ -66,8 +66,7 @@
:initform
nil
)
;; these two are specially set in parse-component-form, so have no :INITARGs.
(
depends-on
:reader
system-depends-on
:initform
nil
)
(
weakly-depends-on
:reader
system-weakly-depends-on
:initform
nil
)
))
(
weakly-depends-on
:reader
system-weakly-depends-on
:initform
nil
)))
(
defun
reset-system
(
system
&rest
keys
&key
&allow-other-keys
)
(
change-class
(
change-class
system
'proto-system
)
'system
)
...
...
test/script-support.lisp
View file @
3507e355
...
...
@@ -345,8 +345,7 @@ is bound, write a message and exit on an error. If
(
funcall
thunk
))
#+
allegro
(
excl:without-redefinition-warnings
(
funcall
thunk
))
)
(
funcall
thunk
)))
(
defun
interactive-test
(
&optional
files
)
(
verbose
t
nil
)
...
...
test/test-utilities.script
View file @
3507e355
...
...
@@ -95,7 +95,7 @@
asdf/component:default-component-class
;; the following is here only for backward compatibility; should be in
;; asdf/system. [2014/02/20:rpg]
asdf/component:defsystem-depends-on
asdf/component:defsystem-depends-on
asdf/component:description
asdf/component:%encoding
asdf/component:if-feature
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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