abcl-asdf: normalize whitespace.

parent 04ff7a88
......@@ -37,9 +37,9 @@
;;; FIXME
#+nil
(defmethod asdf:perform ((o asdf:test-op) (c (eql (asdf:find-system 'abcl-asdf))))
"Invoke tests with (asdf:test-system 'abcl-asdf)."
(asdf:load-system 'abcl)
(asdf:load-system 'abcl-test-lisp)
(asdf:load-system 'abcl-asdf-test)
(funcall (intern (symbol-name 'run) 'abcl-asdf-test)))
"Invoke tests with (asdf:test-system 'abcl-asdf)."
(asdf:load-system 'abcl)
(asdf:load-system 'abcl-test-lisp)
(asdf:load-system 'abcl-asdf-test)
(funcall (intern (symbol-name 'run) 'abcl-asdf-test)))
......@@ -138,7 +138,7 @@ single entry denoting a remote binary artifact."
:repository repository)
(if alternate-uri
(values (namestring alternate-uri) alternate-uri)
(error "Failed to resolve MVN component name ~A." name)))))
(error "Failed to resolve MVN component name ~A." name)))))
(defmethod resolve ((uri pathname))
(warn "Unimplemented."))
......
......@@ -14,9 +14,9 @@
(loop :with q = (system:list-directory directory)
:while q :for top = (pop q)
:if (null (pathname-name top))
:do (setq q (append q (all-jars-below top)))
:do (setq q (append q (all-jars-below top)))
:if (equal (pathname-type top) "jar")
:collect top))
:collect top))
(defun need-to-add-directory-jar? (directory recursive-p)
(loop :for jar :in (if recursive-p
......@@ -77,10 +77,10 @@
(make-pathname :defaults absolute-pathname :name new-name)))
(setf name new-name
absolute-pathname new-absolute-pathname)))))
(defmethod perform :before ((operation compile-op) (c jar-file))
(normalize-jar-name c))
(defmethod perform :before ((operation load-op) (c jar-file))
(normalize-jar-name c))
......
This diff is collapsed.
Markdown is supported
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