[Cl-neo4j-devel] cl-neo4j and asdf3

[Faré]

Dear Lisp hacker(s),

ASDF3 now checks deferred warnings by default.
On SBCL, this means that it will treat as an error
any undeclared free variable, including forward references to special variables
as well as any undefined function that isn't defined by the end of the system.

Using cl-test-grid to compile all the systems in quicklisp,
we found the following failure on a system we believe you maintain.
Can you please fix it?

—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org
Be careful what you set your heart on — for it will surely be yours.
        — James Baldwin, "Nobody Knows My Name"


http://cl-test-grid.appspot.com/blob?key=1m4w33y09n

; /home/testgrid/agent-workdir/test-runs/20130220230445-sbcl-1.1.1-linux-x86/fasl/ql/dists/quicklisp/software/cl-neo4j-release-b8ad637a-git/src/wrapper-ASDF-TMP.fasl
written
; compilation finished in 0:00:00.133

; file: /home/testgrid/quicklisp-patched2/dists/quicklisp/software/cl-neo4j-release-b8ad637a-git/src/utilities.lisp
; in:
;      DEFMETHOD CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD (T (EQL :RELATIONSHIP-URL))
;     (DEFMETHOD CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD
;                (CL-NEO4J::OBJECT (CL-NEO4J::ENCODE-TYPE (EQL
:RELATIONSHIP-URL))
;                 &KEY (CL-NEO4J::HOST CL-NEO4J:*NEO4J-HOST*)
;                 (CL-NEO4J::PORT CL-NEO4J:*NEO4J-PORT*))
;       (DECLARE (IGNORE CL-NEO4J::ENCODE-TYPE))
;       (CL-NEO4J::FORMAT-NEO4J-QUERY CL-NEO4J::HOST CL-NEO4J::PORT
;        (FORMAT NIL "relationship/~A" CL-NEO4J::OBJECT)))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD
; ==>
;   (IF #:N-SUPPLIED-111
;       #:HOST-DEFAULTING-TEMP
;       CL-NEO4J:*NEO4J-HOST*)
;
; caught WARNING:
;   undefined variable: CL-NEO4J:*NEO4J-HOST*

; in:
;      DEFMETHOD CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD (T (EQL :NODE-URL-SINGLE))
;     (DEFMETHOD CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD
;                (CL-NEO4J::OBJECT (CL-NEO4J::ENCODE-TYPE (EQL
:NODE-URL-SINGLE))
;                 &KEY (CL-NEO4J::HOST CL-NEO4J:*NEO4J-HOST*)
;                 (CL-NEO4J::PORT CL-NEO4J:*NEO4J-PORT*))
;       (DECLARE (IGNORE CL-NEO4J::ENCODE-TYPE))
;       (CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD
;        (CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD CL-NEO4J::OBJECT :NODE-URL :HOST
;         CL-NEO4J::HOST :PORT CL-NEO4J::PORT)
;        :STRING))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD
; ==>
;   (IF #:N-SUPPLIED-81
;       #:HOST-DEFAULTING-TEMP
;       CL-NEO4J:*NEO4J-HOST*)
;
; caught WARNING:
;   undefined variable: CL-NEO4J:*NEO4J-HOST*

; in: DEFMETHOD CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD (T (EQL :NODE-URL))
;     (DEFMETHOD CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD
;                (CL-NEO4J::OBJECT (CL-NEO4J::ENCODE-TYPE (EQL :NODE-URL))
;                 &KEY (CL-NEO4J::HOST CL-NEO4J:*NEO4J-HOST*)
;                 (CL-NEO4J::PORT CL-NEO4J:*NEO4J-PORT*))
;       (DECLARE (IGNORE CL-NEO4J::ENCODE-TYPE))
;       (CL-NEO4J::FORMAT-NEO4J-QUERY CL-NEO4J::HOST CL-NEO4J::PORT
;        (FORMAT NIL "node/~A" CL-NEO4J::OBJECT)))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD
; ==>
;   (IF #:N-SUPPLIED-51
;       #:HOST-DEFAULTING-TEMP
;       CL-NEO4J:*NEO4J-HOST*)
;
; caught WARNING:
;   undefined variable: CL-NEO4J:*NEO4J-HOST*

;
; caught WARNING:
;   1 more use of undefined variable CL-NEO4J:*NEO4J-HOST*


; file: /home/testgrid/quicklisp-patched2/dists/quicklisp/software/cl-neo4j-release-b8ad637a-git/src/utilities.lisp
; in:
;      DEFMETHOD CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD (T (EQL :RELATIONSHIP-URL))
;     (DEFMETHOD CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD
;                (CL-NEO4J::OBJECT (CL-NEO4J::ENCODE-TYPE (EQL
:RELATIONSHIP-URL))
;                 &KEY (CL-NEO4J::HOST CL-NEO4J:*NEO4J-HOST*)
;                 (CL-NEO4J::PORT CL-NEO4J:*NEO4J-PORT*))
;       (DECLARE (IGNORE CL-NEO4J::ENCODE-TYPE))
;       (CL-NEO4J::FORMAT-NEO4J-QUERY CL-NEO4J::HOST CL-NEO4J::PORT
;        (FORMAT NIL "relationship/~A" CL-NEO4J::OBJECT)))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD
; ==>
;   (IF #:N-SUPPLIED-112
;       #:PORT-DEFAULTING-TEMP
;       CL-NEO4J:*NEO4J-PORT*)
;
; caught WARNING:
;   undefined variable: CL-NEO4J:*NEO4J-PORT*

; in:
;      DEFMETHOD CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD (T (EQL :NODE-URL-SINGLE))
;     (DEFMETHOD CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD
;                (CL-NEO4J::OBJECT (CL-NEO4J::ENCODE-TYPE (EQL
:NODE-URL-SINGLE))
;                 &KEY (CL-NEO4J::HOST CL-NEO4J:*NEO4J-HOST*)
;                 (CL-NEO4J::PORT CL-NEO4J:*NEO4J-PORT*))
;       (DECLARE (IGNORE CL-NEO4J::ENCODE-TYPE))
;       (CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD
;        (CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD CL-NEO4J::OBJECT :NODE-URL :HOST
;         CL-NEO4J::HOST :PORT CL-NEO4J::PORT)
;        :STRING))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD
; ==>
;   (IF #:N-SUPPLIED-82
;       #:PORT-DEFAULTING-TEMP
;       CL-NEO4J:*NEO4J-PORT*)
;
; caught WARNING:
;   undefined variable: CL-NEO4J:*NEO4J-PORT*

; in: DEFMETHOD CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD (T (EQL :NODE-URL))
;     (DEFMETHOD CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD
;                (CL-NEO4J::OBJECT (CL-NEO4J::ENCODE-TYPE (EQL :NODE-URL))
;                 &KEY (CL-NEO4J::HOST CL-NEO4J:*NEO4J-HOST*)
;                 (CL-NEO4J::PORT CL-NEO4J:*NEO4J-PORT*))
;       (DECLARE (IGNORE CL-NEO4J::ENCODE-TYPE))
;       (CL-NEO4J::FORMAT-NEO4J-QUERY CL-NEO4J::HOST CL-NEO4J::PORT
;        (FORMAT NIL "node/~A" CL-NEO4J::OBJECT)))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD
; ==>
;   (IF #:N-SUPPLIED-52
;       #:PORT-DEFAULTING-TEMP
;       CL-NEO4J:*NEO4J-PORT*)
;
; caught WARNING:
;   undefined variable: CL-NEO4J:*NEO4J-PORT*

;
; caught WARNING:
;   1 more use of undefined variable CL-NEO4J:*NEO4J-PORT*
;
; compilation unit finished
;   Undefined variables:
;     CL-NEO4J:*NEO4J-HOST* CL-NEO4J:*NEO4J-PORT*
;   caught 8 WARNING conditions
;   caught 126 STYLE-WARNING conditions
Unhandled SERIOUS-CONDITION of type COMPILE-FAILED-ERROR is signaled:
Lisp compilation failed