cl-json-devel

cl-json-devel@common-lisp.net

116 discussions

[cl-json-devel] How would you like unlimited hits to your website 15 minutes from now ?
by Hit-Booster＠common-lisp.net 25 Aug '07

25 Aug '07

New Break-through Automation Technology WILL Pull in hordes of Within 15 minutes you will have your own website traffic generator that will bring in an ever increasing amount of hits to your websites! Automatically This software is perfect for bringing real traffic to your site... even if... it's an affiliate link where you have no control over the website content! Using my automated program I have developed, just insert your url... ...choose a category... ...have HIT-BOOSTER send thousands of targeted visitors to your site. Let me tell you what Hit-Booster can do for you ...Hit-Booster will start sending hits to your website instantly at $0 cost to you! ...No matter what you are selling or offering - HIT BOOSTER will pull in hordes of potential customers to your website or affiliate website! ...sets this up completely for you on Auto-Pilot! ...Use it for all of your websites - there is no limit . ...Receive my personal support and email address with your purchase so I can help you to succeed! ...your web site will quickly achieve Ultra High Link Popularity on the Major Search Engines ...you'll get 1000's of Highly Targeted visitors to your web site or affiliate web site overnight ...many are getting more Customers and Sales than they can handle For Full Details please download the attached .html file Unsubscribe Please read the attached .txt file

1 0

[cl-json-devel] How would you like an extra $500 - $1000 a week with 15 minutes of your time ?
by Work＠common-lisp.net 23 Aug '07

23 Aug '07

1 0

[cl-json-devel] Can you afford to lose 300, 000 potential customers per year ?
by Instant＠common-lisp.net 22 Aug '07

22 Aug '07

1 0

[cl-json-devel] Feed Blaster puts your ad right to the screens of millions in 15 Minutes !
by Feed＠common-lisp.net 21 Aug '07

21 Aug '07

1 0

[cl-json-devel] "How would you like to have your ad on 2 Million Websites ?"
by BlogBlaster＠common-lisp.net 20 Aug '07

20 Aug '07

1 0

[cl-json-devel] No Matter what you are selling - Hit-Booster will send targeted visitors to your website!
by Hit-Booster＠common-lisp.net 19 Aug '07

19 Aug '07

1 0

[cl-json-devel] No Matter what you are selling - Hit-Booster will send targeted visitors to your website!
by Hit-Booster＠common-lisp.net 19 Aug '07

19 Aug '07

1 0

[cl-json-devel] How would you like an extra $500 - $1000 a week with 15 minutes of your time ?
by Work＠common-lisp.net 18 Aug '07

18 Aug '07

1 0

[cl-json-devel] Bug with alists
by Slava Akhmechet 30 May '07

30 May '07

I'm running cl-json 0.3.1 and I seem to encounter the following issue on OpenMCL: (encode-json-to-string '(("x" . "blah"))) => "[[\"x\",\"l\",\"a\",\"h\"]]" On SBCL this works as expected: (encode-json-to-string '(("x" . "blah"))) => "{\"x\":\"blah\"}" I could use 'encode-json-alist-to-string', but I'll run into the same problem with inner alist elements of the list (I have an alist of alists). -- Regards, Slava Akhmechet.

1 0

[cl-json-devel] patch to improve encode-json for lists
by Nathan Hawkins 25 Mar '07

25 Mar '07

This fairly simple patch seems to enable encode-json to handle alists. After applying: ;; handles alists (defvar *foo* '((a . 1) (b . 2) (c . 3))) (encode-json-to-string *foo*) --> "{\"a\":1,\"b\":2,\"c\":3}" ;; normal lists still work (defvar *bar* '(1 2 3 4 5)) (encode-json-to-string *bar*) --> "[1,2,3,4,5]" ;; messed up lists of alists which contain lists also works now (defvar *baz* '(((a . 1) (b .2) (c . 3) (d . (1 2 3 4 5))))) (encode-json-to-string *baz*) --> "[{\"a\":1,\"b\":[0.2],\"c\":3,\"d\":[1,2,3,4,5]}]" ;; even better, decode-json likes the output (decode-json-from-string "[{\"a\":1,\"b\":[0.2 ],\"c\":3,\"d\":[1,2,3,4,5]}]") --> (((:A . 1) (:B 0.2) (:C . 3) (:D 1 2 3 4 5))) One thing you can't do is encode a list appended to an alist. That won't work, and I don't know how you'd encode it in JSON anyway. Someone who's had way more sleep than I have lately should test this as well. But I can now both encode and decode lists of alists, which scratches my particular itch... Nathan diff -rN -u old-cl-json/src/encoder.lisp new-cl-json/src/encoder.lisp --- old-cl-json/src/encoder.lisp 2007-03-21 23:29:22.000000000 -0400 +++ new-cl-json/src/encoder.lisp 2007-03-21 23:29:22.000000000 -0400 @@ -25,6 +25,12 @@ (t (write-json-string (funcall *symbol-to-string-fn* s) stream)))) (defmethod encode-json((s sequence ) stream) + (if (and (consp (car s)) + (atom (cdar s))) + (encode-json-alist s stream) + (encode-json-list s stream))) + +(defun encode-json-list (s stream) (let ((first-element t)) (write-char #\[ stream) (map nil #'(lambda (element)

2 2

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

cl-json-devel