[armedbear-devel] bogus (t ...) function call

[Cyrus Harmon]

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 at 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
> 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/armedbear-devel/attachments/20140223/5491226c/attachment.html>