kraison / cl-neo4j Goto Github PK

I found a problem with getting the property values ​​that contain non-Latin characters in utf-8. Workaround for sbcl:

(defun decode-neo4j-json-output (json)
  (decode-json-from-string
    (sb-ext:octets-to-string  json)))

If I call slime (using SBCL and Emacs) and a simple quicklisp`s load command reports an error:

M-x slime

(ql:quickload :cl-neo4j)

There is no class named CL-NEO4J::CYPHER-QUERY.
[Condition of type SIMPLE-ERROR]

Backtrace:
0: (SB-PCL::FIND-CLASS-FROM-CELL CL-NEO4J::CYPHER-QUERY #<SB-KERNEL::CLASSOID-CELL CL-NEO4J::CYPHER-QUERY> T)
1: ((SB-C::TOP-LEVEL-FORM (SB-PCL::LOAD-DEFMETHOD (QUOTE STANDARD-METHOD) (QUOTE CL-NEO4J::ENCODE-NEO4J-JSON-PAYLOAD) (QUOTE NIL) (LIST (FIND-CLASS (QUOTE CL-NEO4J::CYPHER-QUERY)) (SB-MOP:INTERN-EQL-SPEC..
2: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for "file /Users/dcguim/.cache/common-lisp/sbcl-1.2.11-macosx-x64/Users/dcguim/common-lisp/cl-neo4j/src/utilities..
3: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file /Users/dcguim/.cache/common-lisp/sbcl-1.2.11-macosx-x64/Users/dcguim/common-lisp/cl-neo4j/src/utilities.fasl" {1006950C93}> NIL NIL)
...

I believe this will be reproducible by just trying to load cl-neo4j with quicklisp

Hey @kraison do you still develop and use this driver? If so do you have a blog post / docs somewhere? Do you think it is fit to be included in http://neo4j.org/develop/drivers ?

Thanks

Please check the gist bellow which contain status information retrieved:
https://gist.github.com/dcguim/acd7f7946e488e1ddc9191f691eaf4c6

I have set the configuration under src/globals.lisp so I don`t think is an
authentication problem. I wonder if data type mapping should provided
before start creating simple nodes.

If I simply:

(create-node :properties '((:name . "Dan") (:email . "[email protected]")))
Unknown status 401 returned for node
   [Condition of type UNKNOWN-RETURN-TYPE-ERROR]

Backtrace:
  0: ((:METHOD HANDLE-REQUEST (BASIC-HANDLER T T)) #<BASIC-HANDLER {1008834613}> #S(NEO4J-REQUEST :METHOD :POST :URI "node" :PAYLOAD "{\"name\":\"Dan\",\"email\":\"[email protected]\"}")  
  ((201 #<FUNCTION (LAMBDA # :IN CREATE-NODE) {1002EA594B}>) (400 #<FUNCTION (LAMBDA # :IN CREATE-NODE) {1002EA589B}>))
  1: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CREATE-NODE :PROPERTIES (QUOTE (# #))) #<NULL-LEXENV>)
  2: (EVAL (CREATE-NODE :PROPERTIES (QUOTE (# #))))