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

delete trailing whitespace

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