Commit ddcf33a5 authored by Nikodemus Siivola's avatar Nikodemus Siivola
Browse files

delete trailing whitespace

parent c457de74
...@@ -41,7 +41,7 @@ ...@@ -41,7 +41,7 @@
(:export #:defsystem #:oos #:operate #:find-system #:run-shell-command (:export #:defsystem #:oos #:operate #:find-system #:run-shell-command
#:system-definition-pathname #:find-component ; miscellaneous #:system-definition-pathname #:find-component ; miscellaneous
#:compile-op #:load-op #:load-source-op #:compile-op #:load-op #:load-source-op
#:test-op #:test-op
#:operation ; operations #:operation ; operations
#:feature ; sort-of operation #:feature ; sort-of operation
...@@ -745,7 +745,7 @@ the head of the tree")) ...@@ -745,7 +745,7 @@ the head of the tree"))
#| #|
(print (list :c1 c (typep c 'missing-dependency))) (print (list :c1 c (typep c 'missing-dependency)))
(when (typep c 'missing-dependency) (when (typep c 'missing-dependency)
(print (list :c2 (missing-requires c) required-c (print (list :c2 (missing-requires c) required-c
(equalp (missing-requires c) (equalp (missing-requires c)
required-c)))) required-c))))
|# |#
...@@ -764,7 +764,7 @@ the head of the tree")) ...@@ -764,7 +764,7 @@ the head of the tree"))
(cond ((string-equal (cond ((string-equal
(symbol-name (first d)) (symbol-name (first d))
"VERSION") "VERSION")
(appendf (appendf
forced forced
(do-one-dep op (second d) (third d)))) (do-one-dep op (second d) (third d))))
((and (string-equal ((and (string-equal
...@@ -772,7 +772,7 @@ the head of the tree")) ...@@ -772,7 +772,7 @@ the head of the tree"))
"FEATURE") "FEATURE")
(find (second d) *features* (find (second d) *features*
:test 'string-equal)) :test 'string-equal))
(appendf (appendf
forced forced
(do-one-dep op (second d) (third d)))) (do-one-dep op (second d) (third d))))
(t (t
...@@ -788,7 +788,7 @@ the head of the tree")) ...@@ -788,7 +788,7 @@ the head of the tree"))
(setf (visiting-component operation c) t) (setf (visiting-component operation c) t)
(unwind-protect (unwind-protect
(progn (progn
(loop for (required-op . deps) in (loop for (required-op . deps) in
(component-depends-on operation c) (component-depends-on operation c)
do (do-dep required-op deps)) do (do-dep required-op deps))
;; constituent bits ;; constituent bits
...@@ -801,7 +801,7 @@ the head of the tree")) ...@@ -801,7 +801,7 @@ the head of the tree"))
do (handler-case do (handler-case
(appendf forced (traverse operation kid )) (appendf forced (traverse operation kid ))
(missing-dependency (condition) (missing-dependency (condition)
(if (eq (module-if-component-dep-fails c) (if (eq (module-if-component-dep-fails c)
:fail) :fail)
(error condition)) (error condition))
(setf error condition)) (setf error condition))
...@@ -816,7 +816,7 @@ the head of the tree")) ...@@ -816,7 +816,7 @@ the head of the tree"))
;; now the thing itself ;; now the thing itself
(when (or forced module-ops (when (or forced module-ops
(not (operation-done-p operation c)) (not (operation-done-p operation c))
(let ((f (operation-forced (let ((f (operation-forced
(operation-ancestor operation)))) (operation-ancestor operation))))
(and f (or (not (consp f)) (and f (or (not (consp f))
(member (component-name (member (component-name
...@@ -924,7 +924,7 @@ the head of the tree")) ...@@ -924,7 +924,7 @@ the head of the tree"))
(setf state :recompiled) (setf state :recompiled)
(perform (make-instance 'asdf:compile-op) c)) (perform (make-instance 'asdf:compile-op) c))
(t (t
(with-simple-restart (with-simple-restart
(try-recompiling "Recompile ~a and try loading it again" (try-recompiling "Recompile ~a and try loading it again"
(component-name c)) (component-name c))
(setf state :failed-load) (setf state :failed-load)
...@@ -944,7 +944,7 @@ the head of the tree")) ...@@ -944,7 +944,7 @@ the head of the tree"))
(setf state :recompiled) (setf state :recompiled)
(perform (make-instance 'asdf:compile-op) c)) (perform (make-instance 'asdf:compile-op) c))
(t (t
(with-simple-restart (with-simple-restart
(try-recompiling "Try recompiling ~a" (try-recompiling "Try recompiling ~a"
(component-name c)) (component-name c))
(setf state :failed-compile) (setf state :failed-compile)
...@@ -1354,7 +1354,7 @@ output to *VERBOSE-OUT*. Returns the shell's exit code." ...@@ -1354,7 +1354,7 @@ output to *VERBOSE-OUT*. Returns the shell's exit code."
:defaults (asdf:component-relative-pathname system))))) :defaults (asdf:component-relative-pathname system)))))
(when pn (when pn
(probe-file pn)))) (probe-file pn))))
(defun system-source-directory (system-name) (defun system-source-directory (system-name)
(make-pathname :name nil (make-pathname :name nil
:type nil :type nil
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment