On a related note, I get the following error when compiling maven-embedder.lisp:
; Compiling jar:file:/Users/sly/src/abcl/dist/abcl-contrib.jar!/abcl-asdf/maven-embedder.lisp ... ; (COMMON-LISP:IN-PACKAGE :ABCL-ASDF) ; (DEFPARAMETER *MAVEN-VERBOSE* ...) ; (DEFPARAMETER *MAVENS* ...) ; (DEFUN FIND-MVN ...) ; (DEFUN FIND-MVN-LIBS ...) ; (DEFPARAMETER *MVN-LIBS-DIRECTORY* ...) ; (DEFUN MVN-VERSION ...) ; (DEFUN ENSURE-MVN-VERSION ...) ; (DEFPARAMETER *INIT* ...) ; (DEFUN INIT ...) ; (DEFUN FIND-HTTP-WAGON ...) ; (DEFUN MAKE-WAGON-PROVIDER ...) ; (DEFUN FIND-SERVICE-LOCATOR ...) ; (DEFUN MAKE-REPOSITORY-SYSTEM ...) ; (DEFUN MAKE-SESSION ...) ; (DEFPARAMETER *MAVEN-HTTP-PROXY* ...) ; (DEFUN MAKE-PROXY ...) ; (DEFPARAMETER *REPOSITORY-SYSTEM* ...) ; (DEFUN ENSURE-REPOSITORY-SYSTEM ...) ; (DEFPARAMETER *SESSION* ...) ; (DEFUN ENSURE-SESSION ...) ; (DEFUN MAKE-ARTIFACT ...) ; (DEFUN MAKE-ARTIFACT-REQUEST ...) ; (DEFUN RESOLVE-ARTIFACT ...) ; (DEFUN MAKE-REMOTE-REPOSITORY ...) ; (DEFPARAMETER *DEFAULT-REPOSITORY* ...) ; (DEFUN ADD-REPOSITORY ...) ; (DEFPARAMETER *MAVEN-REMOTE-REPOSITORY* ...) ; (DEFUN ENSURE-REMOTE-REPOSITORY ...) ; (DEFUN RESOLVE-DEPENDENCIES ...) ; (DEFUN MAKE-REPOSITORY-LISTENER ...) ; (DEFMETHOD RESOLVE ...) ; Wrote /Users/sly/.cache/common-lisp/abcl-1.3.0-dev-fasl42-macosx-x64/Users/sly/src/abcl/dist/abcl-contrib.jar/abcl-asdf/maven-embedder-TMP.abcl (0.481 seconds)
; Compilation unit finished ; The following functions were used but not defined: ; SYSTEM:PROCESS-OUTPUT
It seems to me that sys:process-output should be defined by then. Not sure what’s going on.
thanks,
Cyrus
On Feb 22, 2014, at 5:20 PM, Cyrus Harmon ch-lisp@bobobeach.com wrote:
I finally realized where the warning about calling the undefined function T was coming from:
diff --git a/contrib/abcl-asdf/abcl-asdf.lisp b/contrib/abcl-asdf/abcl-asdf.lisp index b96457e..2ded8b5 100644 --- a/contrib/abcl-asdf/abcl-asdf.lisp +++ b/contrib/abcl-asdf/abcl-asdf.lisp @@ -130,8 +130,7 @@ (defmethod resolve ((mvn-component asdf::mvn)) (resolve-dependencies group-id artifact-id version) (if alternate-uri (values (namestring alternate-uri) alternate-uri)
(t(error "Failed to resolve MVN component name ~A." name))))))
(error "Failed to resolve MVN component name ~A." name)))))(defmethod resolve ((uri pathname)) (warn "Unimplemented."))
Looks like this was copy/pasted from a cond form elsewhere.
Cyrus