Skip to content
Snippets Groups Projects
Commit 94e6fbb6 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Trivial non-functional cleanups

(improved comments, whitespace, remove doubly exported symbols).
parent 91215792
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
......@@ -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
......
......@@ -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)
......
......@@ -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)
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment