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
Loading
Loading
Loading
Loading
+3 −5
Original line number Diff line number Diff line
@@ -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))
+1 −1
Original line number Diff line number Diff line
@@ -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
+1 −2
Original line number Diff line number Diff line
@@ -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)
+1 −2
Original line number Diff line number Diff line
@@ -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)
+1 −1

File changed.

Contains only whitespace changes.