- cl-json-devel - mailman3.common-lisp.net

What's the status of this library?
by Robert Goldman 04 Mar '20

04 Mar '20

Does it have a maintainer currently? There are issues and merge requests on GitHub (https://github.com/hankhero/cl-json) that are just stuck. Should some fork take over the mantle of being "official"? Is there anyone who is willing to take this over? I'm not, sorry -- I have too many projects to manage already. If there *is* someone to take this over, maybe they could contact the folks at common-lisp.net to transfer ownership of the project page there, and add a pointer to the new GitHub repo.

1 0

Specifiy top-level json class in lisp
by Ernesto Alfonso 13 Oct '18

13 Oct '18

Hi, I find the concept of allowing the remote party to specify the lisp class/package into which a JSON object should be decoded interesting. I think it allows for objects at any nesting level to be decoded to the correct lisp class and can be powerful. In my opinion this also introduces some coupling of the internal service implementation, like class and package names, with the remote client. But it also requires control over the remote JSON object structure, which may work for a JS script that is owned by the same service, but doesn't seem to work for a third-party service API. In my case I'm trying to use cl-json to decode several types of third-party service API's objects, e.g. an oauth server's response, a geocoding response, etc, and I'd like for cl-json to decode the class for me, instead of either - doing a manual transformation for each object, - adding a json-to-class utility outside of cl-json, - pre-processing the JSON object to add the expected "prototype" fields before cl-json:decode, which seems like a hack Basically, I'd like to know if I can do something like: (cl-json:decode-json-from-source *stream* my-class) Is this possible in CL-JSON? I am also aware of JSON-MOP, but it currently doesn't support inherited class slots and I'd like to avoid introducing another dependency just to decode to my intended lisp object. Thanks, Ernesto

1 0

[cl-json-devel] Slot name with digits raise condition UNBOUND-SLOT
by Олег 23 Jan '13

23 Jan '13

Thanks, Boris. Олег.

1 0

[cl-json-devel] Slot name with digits raise condition UNBOUND-SLOT
by Олег 22 Jan '13

22 Jan '13

(json:with-decoder-simple-clos-semantics (let ((json:*json-symbols-package* nil)) (let ((x (json:decode-json-from-string "{\"foo1\": [1, 2, 3], \"bar1\": true, \"baz1\": \"!\"}"))) (with-slots (foo1 bar1 baz1) x (values x foo1 bar1 baz1))))) The slot FOO1 is unbound in the object #<#<JSON:FLUID-CLASS NIL {1004085F33}> {1003CAFB43}>. [Condition of type UNBOUND-SLOT] Олег.

2 1

[cl-json-devel] Achieving round-tripping for symbols with cl-json
by Dave Cooper 13 Jan '13

13 Jan '13

Hi All, Sorry if this has been covered, I am a bit late to the party on the mailing list here... anyway: is there a conventional way to achieve round-tripping of e.g. plists with cl-json? For example: CL-USER> (setq obj (list :|iid| NIL :|bashee| (list :|%rp%| NIL))) (:|iid| NIL :|bashee| (:|%rp%| NIL)) CL-USER> (json:encode-json-to-string obj) "[\"iid\",null,\"bashee\",[\"%rp%\",null]]" CL-USER> (json:decode-json-from-string (json:encode-json-to-string obj)) ("iid" NIL "bashee" ("%rp%" NIL)) At the end here, what I really want is the identical plist back: (:|iid| NIL :|bashee| (:|%rp%| NIL)) The CL-JSON documentation is clear that symbols in Lisp go to strings in JSON, which come back as strings in Lisp --- but is there any general, conventional technique people are using on top of this to preserve printable Lisp objects (mainly I'm talking about symbols here) through round-trips Lisp->JSON->Lisp? Up until now we have been using base64 encoding for this kind of thing: (base64-encode (format nil "~s" obj)) to get the Lisp stuff into a format for the web page which can be passed through e.g. as the parameter for an Ajax call, then (read-from-string (base64-decode ...)) back in Lisp to get it back and usable in Lisp. Putting everything into a base64 encoded string avoids problems with having to escape characters or other weirdness caused by strange characters which can confuse JavaScript. But this gets to be kind of cryptic (it makes the web page source code pretty much unreadable for humans), and I am learning that it starts failing for UTF-8 characters, etc, unless we are very careful about our base64 encoding. So I am hoping to standardize on JSON for this kind of thing, if there is a generally accepted way to do round-tripping. Plus I want to use json for scraping specific form-control values from a web page through Ajax (right now we have god-awful Javascript with all kinds of crazy character-escaping workarounds to do this). But I think that is another topic... Anyway am I barking up the wrong tree here trying to get round-tripping with cl-json? Regards, Dave -- My Best, Dave Cooper, Genworks Support david.cooper(a)genworks.com, dave.genworks.com(skype) USA: 248-327-3253(o), 1-248-330-2979(mobile) UK: 0191 645 1699

2 1

[cl-json-devel] cl-json depends on lisp reader?
by Sven Emtell 27 Nov '12

27 Nov '12

Hi everyone! I use cl-json with LispWorks 6.1. When delivering an app, I am trying to minimize the size of it by setting delivery level 5. The cl-json function "decode-json-from-string" does not seem to like this without explicitly keeping the Lisp Reader using the delivery keyword (:keep-lisp-reader). Since the Lisp Reader is unnecessary for the rest of the app, I would like to leave it out when delivering. Any thoughts on this? PS. I will also send a similar message to the LispWorks list, if that is more appropriate. Thanks! Sven Emtell

3 5

[cl-json-devel] Any objection to bumping the ASDF :version
by Robert Goldman 18 Nov '12

18 Nov '12

The new version of CL-JSON offers a READ-free version of the library. Since there was interest in this for shipping compiler-free executables, maybe we should make it detectable in ASDF dependencies. I'd propose either bumping to 0.4.3 (patchlevel) or, since this feature is persistent, we might want to bump to 0.5.0 The latter would permit people who want the READ-free version of the library to require (:version cl-json 0.5) in their dependencies. Also, how about we add tags to the repo for releases? Cheers, r

2 1

[cl-json-devel] Any interest in moving from darcs to git?
by Robert Goldman 13 Nov '12

13 Nov '12

I have had some unpleasant issues with darcs working on cl-json, and I find that working with it is very badly hampered by its lack of mindshare compared with other DVCSes. In particular: 1. The darcs maintainers are unable to supply binaries for Mac OSX. 2. No one has stepped up to the plate to provide a graphical UI for working with darcs. Not only are these a nuisance in and of themselves (the former especially, since darcs does not build on an out-of-the-box install of the Haskell Platform), they are the signs of a tool that does not have an adequately robust support community. Combine this with the oddity of the usage model, compared with other DCVSes,[1] and you have real problems. I am not volunteering to maintain CL-JSON, so it is ultimately not up to me. But I have submitted a number of patches, so I feel that I have standing at least to offer the suggestion. Note that I don't think that darcs, in and of itself, is a bad system. But there are more than enough DCVSes out there, and we can use one less of them. Best regards, Robert [1] See, for example: http://darcs.net/FAQ#how-do-i-go-back-to-an-older-version-of-my-repository

3 5

[cl-json-devel] darcs patch: fix-fiveam-test-comparisons (and 1 more)
by rpgoldman＠sift.info 05 Nov '12

05 Nov '12

2 patches for repository http://common-lisp.net/project/cl-json/darcs/cl-json: Sun Nov 4 15:49:32 CST 2012 rpgoldman(a)sift.info * fix-fiveam-test-comparisons FiveAM would like the expected value to be before the computed value, for best printing when tests fail. I reversed the arguments to the JSON-NUMBER test to agree with this convention. Sun Nov 4 15:52:54 CST 2012 rpgoldman(a)sift.info * remove-read-from-string-from-parse-number PARSE-NUMBER used to use READ-FROM-STRING. This was causing problems with some application-building systems. We replace use of the reader (through read-from-string) by PARSE-NUMBER.

3 3

[cl-json-devel] darcs patch: fix-fiveam-test-comparisons (and 1 more)
by rpgoldman＠sift.info 05 Nov '12

05 Nov '12

2 patches for repository http://common-lisp.net/project/cl-json/darcs/cl-json: Sun Nov 4 15:49:32 CST 2012 rpgoldman(a)sift.info * fix-fiveam-test-comparisons FiveAM would like the expected value to be before the computed value, for best printing when tests fail. I reversed the arguments to the JSON-NUMBER test to agree with this convention. Sun Nov 4 15:52:54 CST 2012 rpgoldman(a)sift.info * remove-read-from-string-from-parse-number PARSE-NUMBER used to use READ-FROM-STRING. This was causing problems with some application-building systems. We replace use of the reader (through read-from-string) by PARSE-NUMBER.

1 0

Re: [cl-json-devel] Problem with cl-json tests
by Robert Goldman 15 Oct '12

15 Oct '12

On 10/14/12 Oct 14 -5:25 AM, Juan Jose Garcia-Ripoll wrote: > They seem to be executed as soon as one loads them. However, the fact > that a variable is only set _after_ the test suite is loaded, with > > (defmethod perform :after ((op load-op) (comp (eql (find-system > :cl-json.test)))) > (eval `(setf ,(intern (symbol-name '#:*json-test-files-path*) :json-test) > (merge-pathnames "t/" *cl-json-directory*)))) > > means that a whole bunch of tests fail because late ASDF seems to only > perform load-op on the system _after_ it has loaded all its components. > A better, more robust way of doing this, which does not depend on ASDF's > loading rules is adding this > > (eval `(setf ,(intern (symbol-name '#:*json-test-files-path*) > (or (find-package "JSON-TEST") > (make-package "JSON-TEST"))) > (merge-pathnames "t/" *cl-json-directory*))) > > or, even better, split cl-json.asd into cl-json.asd and cl-json-test.asd > to avoid that this side-effect happens for every user that loads cl-json. > > Juanjo > > -- > Instituto de Física Fundamental, CSIC > c/ Serrano, 113b, Madrid 28006 (Spain) > http://juanjose.garciaripoll.googlepages.com Attached is a darcs patch file that provides a fix for this. Instead of doing this in the ASDF system definition file, I moved this into the defvar (now DEFPARAMETER) for *JSON-TEST-FILES-PATH*. Bumped the patch number of the system. I don't have permissions to apply this patch, though. BTW, I find that two of the JSON-NUMBER tests fail on my copy of ECL (on Mac OS X). Do you by any chance have a suggested fix? Cheers, r

2 1

[cl-json-devel] How to learn cl-json internals?
by Ravi Desai 20 Jul '12

20 Jul '12

Hello everyone, I'm trying to learn the cl-json system and am going through the source code. Is there a suggested way of going through the code to learn it? Right now I'm going through it in the order that the files are loaded. Thanks, Ravi

2 1

[cl-json-devel] test failure: JSON-BIND-IN-BIND-BUG
by Anton Vodonosov 29 Nov '11

29 Nov '11

Hello. After running the tests I have one failure. Is it a known issure? ............. Did 170 checks. Pass: 169 (99%) Skip: 0 ( 0%) Fail: 1 ( 0%) Failure Details: -------------------------------- JSON-BIND-IN-BIND-BUG []: RESULT2 evaluated to "(0 ((ID . pingId) (NAME . ping)) NIL (((NAME . tableTennisGroupName) (ID . tableTennisGroupId))))", which is not STRING= to "(0 NIL NIL (NIL))".. --------------------------------

2 1

[cl-json-devel] asdf:load-op for tests (cl-json.test) not only loads test code, but tries to run it (with errors)
by Anton Vodonosov 28 Nov '11

28 Nov '11

Hello. I want to integrate cl-json tests into a bigger test suite. There is a small problem in cl-json.test system definition. I expect that I load the tests code by (asdf:operate 'asdf:load-op :cl-json.test) And the call FiveAM test runner (I can not just use asdf:test-op because it doesn't return any test status). But (asdf:operate 'asdf:load-op :cl-json.test) tries to not only load, but also to to execute the tests code, because file testjson.lisp is included into the cl-json.test system. The file contains just (in-package :json-test) (run! 'json) It is obviously a mistake, moreover running the tests require *json-test-files-path* to be initialized, but this happens only in the :after method of load-op. Best regards, - Anton

2 1

[cl-json-devel] Untrusted source
by Hraban Luyat 05 Oct '11

05 Oct '11

Hi, What is the recommended procedure to sanitize data from an untrusted source when parsing with cl-json? What is a sane definition of "safe" in this context, to begin with? I currently deem the following to be appropriate: for all variables bound to any string, running without any side effects, OR running out of memory, but nothing else. For example, is the following function safe? (defun foo (stream) (json:with-decoder-simple-list-semantics (json:decode-json stream))) Greetings, Hraban Luyat

1 0

[cl-json-devel] Package nickname cl-json
by Hraban Luyat 30 Sep '11

30 Sep '11

Hello, Would it be reasonable to request the package nickname cl-json to be added to the json package? I personally more or less assume packages to be accessible by their (Quicklisp)name in some macros I use, and json is, so far, the only exception. Then again, if it is an odd thing to do, never mind it too much. Greetings, Hraban Luyat

1 0

[cl-json-devel] Guidance requested: how to dispatch members to external decoders?
by Hraban Luyat 15 Aug '11

15 Aug '11

Hello, As far as I understand the decoder API it is mostly geared towards defining the decoder for an entire snippet in one place. I would like to know what the recommended way is to separate the definition of the decoder over separate modules. The semantics of my incoming messages are thus: object: - "type": string denoting the type - "payload": type-specific payload I want to create a decoder that only extracts the type and uses that to determine which decoder to send the payload to. Then it continues with whatever lisp object the decoder returned. What I thought would be appropriate is to create a generic function; (defgeneric json->data (type payload)) and then simply register decoders as follows: (defmethod json->data ((type (eq :foo)) payload) "Decode message of type foo." ...) (defmethod json->data ((type (eq :bar)) payload) "Decode message of type bar." ...) But now I am not really sure how to glue this together. What would you recommend? Is this the right frame of mind at all or should I take a totally different approach? Thanks! Hraban

3 4

[cl-json-devel] Encoding DOUBLE-FLOAT
by Daniel Brunner 27 Jun '11

27 Jun '11

Hi everybody, I flipped through the archives but did not find that question: I get some numbers (DOUBLE-FLOAT) from CLSQL, e.g. 0.0570714084012434D0 If I encode this to JSON I get a "0.0570714084012434D0" but it seems that the notation with "D" is not valid JSON because when I try to decode this string say from R with rjson I get an error. Any help or suggestions? Kind regards, Daniel.

3 17

[cl-json-devel] download URL 403
by Carlos Konstanski 27 Jun '11

27 Jun '11

I cannot download cl-json because the URL is giving me a 403. Please help, I am desperate! Email me a tarball if it can't be fixed soon. Thanks, Carlos Konstanski

4 11

[cl-json-devel] Who owns CL-JSON now?
by Robert Goldman 25 Jun '11

25 Jun '11

Does anyone on the list know who has commit rights on this project? thx, r

3 3

[cl-json-devel] bug report
by Nicolas Martyanoff 05 Jun '11

05 Jun '11

Hi, The following form breaks when evaluated: (json:encode-json-to-string '((:a . ((:b . ((:c . 42))))))) Help! 11 nested errors. SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded. 0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA (SB-DEBUG::FRAME)) {10032BDAF9}> :START 0 :COUNT 1152921504606846975) 1: (BACKTRACE 1152921504606846975 #<SYNONYM-STREAM :SYMBOL SB-SYS:*TTY* {100021E341}>) 2: ((LAMBDA NIL)) 3: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL) {10032BDAB9}>) 4: (SB-IMPL::ERROR-ERROR "Help! " 11 " nested errors. " "SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.") 5: (SB-IMPL::INFINITE-ERROR-PROTECTOR) 6: (ERROR JSON:UNENCODABLE-VALUE-ERROR :DATUM (:C . 42) :CONTEXT JSON:ENCODE-JSON) 7: (JSON:UNENCODABLE-VALUE-ERROR (:C . 42) JSON:ENCODE-JSON) 8: (SIGNAL #<TYPE-ERROR expected-type: LIST datum: 42>) 9: (ERROR TYPE-ERROR :DATUM 42 :EXPECTED-TYPE LIST) 10: (SB-KERNEL::OBJECT-NOT-LIST-ERROR-HANDLER #<unavailable argument> #.(SB-SYS:INT-SAP #X7FFFF6D8CC20) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X7FFFF6D8C600 :TYPE (* (STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (405)) 11: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #X7FFFF6D8C600) #<unavailable argument>) 12: ("foreign function: #x417860") debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial thread" RUNNING {1002990EE1}>: Maximum error nesting depth exceeded Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level. Regards, -- Nicolas Martyanoff http://codemore.org khaelin(a)gmail.com

3 2

[cl-json-devel] jsonp
by Haris 13 Apr '11

13 Apr '11

Hi. Can someone give me an example of using jsonp ? For example, I have a lisp function: (defun add (x y) (+ x y)) and I want to call it from javascript: add (2, 2); How do I do that ? Thanks

2 1

Re: [cl-json-devel] Newbie to Lisp question, trying to create JSON
by Henrik Hjelte 12 Apr '11

12 Apr '11

>> On Thu, Apr 7, 2011 at 4:07 PM, Jim Barrows <jim.barrows(a)gmail.com> wrote: >>> >>> I'm trying to encode a list of plists, and encode-json-plist-to-string >>> doesn't appear to do it. >> >> Yes, because the first list is a list and not a plist. > > > Am I incorrect in thinking this is a list of plists? I'm still in shock > over the difference in terminology between Java and Lisp... And I am often shocked when I need to do various things in the Java world, so I understand your reaction. No your right, it is a list of p-lists. But the encode-json-plist function is for p-lists, not necessarily lists of p-lists. It is an easy way to render a simple key-value object. Probably not the best choice if you want to have control over details, then I suggest the explicit encoder. The problem is for the encoder to guess what you intend to have as output. A p-list looks just like a list, so what do you want as output, an object or a list? How should a nested list (one of the values in the key-value pair) that looks like a p-list be converted, to a json-list or a json-object? It is slightly easier with a-lists, I think you will get a list of objects if you have a list of a-lists and encode-json-alist. Or if you don't like the unpredictable ways of some code trying to guess what you want, just use the explicit encoder or the streaming encoder, then you have full control. Look at the testcases for lots of examples. /Henrik

2 1

[cl-json-devel] ajax
by Haris 08 Apr '11

08 Apr '11

Hi. How to do ajax with cl-json on Hunchentoot ? Can you give me a simple example, calling a lisp function from javascript ? Thanks

2 1

[cl-json-devel] installation
by Haris 08 Apr '11

08 Apr '11

Hi. I did (asdf:oos 'asdf:load-op 'cl-json) but I get: Package not found error in Lispworks (when I write cl-json: and hit tab in repl) ? What do I write in command line (Windows) to get the Darcs version ? Thanks

2 1

[cl-json-devel] Newbie to Lisp question, trying to create JSON
by Jim Barrows 07 Apr '11

07 Apr '11

I'm trying to encode a list of plists, and encode-json-plist-to-string doesn't appear to do it. My newbiness is not seeing a better answer then to loop through the list, and encode each plist separately, concatentate the strings together to form the array. That doesn't seem too lispy to me. Is there a better way? -- James A Barrows

4 3

[cl-json-devel] Is cl-json thread-safe?
by Jianshi Huang 15 Nov '10

15 Nov '10

Hi, I'd like to ask if using `with-local-class-registry' will make the decoder thread-safe, is that correct (and tested)? Cheers, Jianshi

2 1

[cl-json-devel] issue with encode-json-from-string when it comes to null
by Henrik Hjelte 19 Aug '10

19 Aug '10

Got a message from a non-member that was stuck in mailman, and I don't know how to retrieve my lost list administrator password. So I just yank it below: Hey Everyone, I have noticed a bit of weird behavior from the json package and was wondering if someone can help me by pointing out what is going on and more importantly why this behavior. - In the below you can see that decode the json string and encoding it results in the output equal to the input as is expected: CL-USER> (json:ENCODE-JSON-TO-STRING (json:decode-json-from-string "{\"available\":true}")) "{\"available\":true}" -Now the issue appears when one attempts to encode the false value as can be seen from the below. As you can see the problem from the second line the real issue is in the encoding of the nil value. CL-USER> (json:ENCODE-JSON-TO-STRING (json:decode-json-from-string "{\"available\":false}")) "[[\"available\"]]" CL-USER> (json:ENCODE-JSON-TO-STRING `((:available . nil))) "[[\"available\"]]" Can anyone point out how to fix this especially that the docs point out that nil will be transformed to null. Thanks to any help you can provide. Regards, Mackram Raydan And my answer is: cl-json has three encoders, for historical reasons the default is the guessing encoder. It has difficulties correctly guessing if nil is false or an empty list. If you want more control I suggest using the explicit encoder. Here are some samples, there are more examples in testencoder.lisp, in particular check the explicit-encoder-complex-objects test. This is in the darcs version, which is the latest version. Hope this helps, Henrik JSON> (json:decode-json-from-string "{\"available\":true}") ((:AVAILABLE . T)) JSON> (json:encode-json-to-string '((:AVAILABLE . T))) "{\"available\":true}" JSON> (json:encode-json-to-string '((:AVAILABLE . nil))) "[[\"available\"]]" JSON> (with-guessing-encoder (json:encode-json-to-string '((:AVAILABLE . nil)))) "[[\"available\"]]" (you see guessing encode is default) JSON> (with-explicit-encoder (json:encode-json-to-string '(:object (:avaliable . nil)))) "{\"avaliable\":null}" JSON> (with-explicit-encoder (json:encode-json-to-string '(:object (:avaliable . :false)))) "{\"avaliable\":\"false\"}" JSON> (with-explicit-encoder (json:encode-json-to-string '(:object (:avaliable . :true)))) "{\"avaliable\":\"true\"}" JSON> (with-explicit-encoder (encode-json-to-string `(:object :available ,(json-bool (if t t nil))))) "{\"available\":true}" JSON> (with-explicit-encoder (encode-json-to-string `(:object :available ,(json-bool (if nil t nil))))) "{\"available\":false}"

1 0

[cl-json-devel] How to get a JS false from cl-json?
by Henrik Hjelte 20 May '10

20 May '10

This question got stuck in mailman, From: Kenneth Tilton <ktilton(a)franz.com> To: cl-json-devel(a)common-lisp.net Date: Wed, 19 May 2010 16:14:31 -0400 Subject: How to get a JS false from cl-json? t changes to unquoted true nicely, how about something that becomes false? I see there is a choice between null and false so we cannot just do false all the time. nice lib, btw. kt And the answer is: There are 3 different encoders. With the "streaming" encoder you have full control of the output. The guessing encoder (default) tries to make a decent json representation of a s-expression, it does not discriminate between null and false. The pretty new explicit encoder gives more control over the json representation, using a keyword in the first position of a list: (test explicit-encoder (is (string= "true" (with-explicit-encoder (encode-json-to-string '(:true)))) "True") (is (string= "false" (with-explicit-encoder (encode-json-to-string '(:false)))) "False") (is (string= "null" (with-explicit-encoder (encode-json-to-string '(:null)))) "False") There is a convenience function json-bool to make the keyword represenation: (test json-bool (is (equal (json-bool t) '(:true))) (is (equal (json-bool 1) '(:true))) (is (equal (json-bool nil) '(:false)))) Also a related question is how to encode an empty list. As an empty json object {}, empty json-list [] or as json-null? That can also be handled with the explicit encoder. Here is a sample how a complex json structure can be built (from testencoder.lisp) (sample-2-plists `(:object :method some-function :id 1 :params (:list (:json "{\"id\":\"barId\",\"name\":\"bar\"}") (:true) (:list (:object "name" a :id b)) (:list (:object :name foo :id foo-id)) ))) (correct-json " {\"method\":\"someFunction\", \"id\":1,\"params\": [{\"id\":\"barId\",\"name\":\"bar\"}, true, [{\"name\":\"a\",\"id\":\"b\"}], [{\"name\":\"foo\",\"id\":\"fooId\"}]]}") /Henrik Hjelte

1 0

[cl-json-devel] Problem encoding PLists on Clozure Common Lisp
by Ron Garret 26 Mar '10

26 Mar '10

Using cl-json-0.4.0 on the latest CCL trunk, encoding PLists results in a hard error: (encode-json-to-string '((x . 123))) > Error: Fault during read of memory address #x3DD

1 1

Re: [cl-json-devel] Omnibus patch
by Henrik Hjelte 17 Jan '10

17 Jan '10

On Thu, Jan 14, 2010 at 5:47 PM, Robert Goldman <rpgoldman(a)sift.info> wrote: > OK, here's a file with all of my patches. I have applied the patches, it looks really good. Thanks a lot, Henrik

1 0

[cl-json-devel] not a darcs expert...
by Robert Goldman 14 Jan '10

14 Jan '10

I have a patch that adds json-rpc-2.0 support. I am trying to get darcs to give it to me to send. But darcs won't let me. I'm not sure if it's because of the name I gave the patch, "add-json-rpc-2.0-support", or whether it's because darcs has some theory about patch dependencies that I don't understand. I ask it to send this patch, and it asks me about other patches that I don't want to send, and then it says "You don't want to send any patches, and that's fine with me!" to which my reply is "No, YOU don't want to send any patches, Mr. Darcs program, and that's not fine with me." Sorry, but this VCS was not my choice, and I don't have time to both wrestle darcs into submission AND add json-rpc 2.0 support... I'm hoping that the community will be OK with my choosing to do the latter. Any help would be much appreciated, R

2 1

[cl-json-devel] Suggestion for JSON-RPC function table
by Robert Goldman 14 Jan '10

14 Jan '10

In the current version of CL-JSON, defining a json-rpc-function puts the /function/ in a hash-table. I have been wrestling with testing my json-rpc-2.0 code and find that this structure makes my code hard to debug. In particular, I can't effectively TRACE a function that's exported from cl-json. How would you feel about putting the symbol that /names/ the function into the hash-table, instead of the function itself? At the expense of another hash-table lookup, we get the ability to trace our exported functions.... No code change to speak of, since the call to apply will work on the function name as well as the function object. Best, r

2 3

[cl-json-devel] cl-json json-rpc SMD
by Henrik Hjelte 07 Jan '10

07 Jan '10

Since there is some activity with json-rpc I have added some code we use for generating SMD-descriptions to json-rpc.lisp, in case it is useful. It is commented out since it is was only used inhouse and we never got around to add it properly to cl-json. /Henrik

2 2

[cl-json-devel] Question about NIL translation
by Robert Goldman 06 Jan '10

06 Jan '10

Continuing to work on my CL-JSON based JSON-RPC server, I am concerned about the fact that we translate NIL -> null. If a CL function returns NIL, and the return value is simply encoded into the JSON return package, then we get a message that /should/ indicate an error, according to the JSON-RPC server. In fact, if our CL function is invoked by JSON-RPC, then we really should have NIL either encoded as [] or as false, but /never/ as null. Any ideas about how we should modify invoke-rpc-parsed to fix this? What is the right way to tell CL-JSON to encode a false? Thanks, R

3 5

[cl-json-devel] Failures in json tests
by Robert Goldman 06 Jan '10

06 Jan '10

Just ran the cl-json test suite (patch to cl-json.asd that makes this easier will follow) and got seven failures: Failure Details: -------------------------------- DECODER-PERFORMANCE-WITH-SIMPLIFIED-CAMEL-CASE []: Unexpected Error: #<FILE-ERROR @ #x1001aa33c2> File #P"/Users/rpg/lisp/cl-json/t/allegro-8.1a-64bit-macosx-x86-64/pass1.json" does not exist... -------------------------------- -------------------------------- PASS-3 []: Unexpected Error: #<FILE-ERROR @ #x10013e37f2> File #P"/Users/rpg/lisp/cl-json/t/allegro-8.1a-64bit-macosx-x86-64/pass3.json" does not exist... -------------------------------- -------------------------------- PASS-1 []: Unexpected Error: #<FILE-ERROR @ #x10013dd8d2> File #P"/Users/rpg/lisp/cl-json/t/allegro-8.1a-64bit-macosx-x86-64/pass1.json" does not exist... -------------------------------- -------------------------------- DECODER-PERFORMANCE []: Unexpected Error: #<FILE-ERROR @ #x1001ad4162> File #P"/Users/rpg/lisp/cl-json/t/allegro-8.1a-64bit-macosx-x86-64/pass1.json" does not exist... -------------------------------- -------------------------------- PASS-2 []: Unexpected Error: #<FILE-ERROR @ #x100144c6f2> File #P"/Users/rpg/lisp/cl-json/t/allegro-8.1a-64bit-macosx-x86-64/pass2.json" does not exist... -------------------------------- -------------------------------- TEST*JSON-SYMBOLS-PACKAGE* []: Unexpected Error: #<SIMPLE-ERROR @ #x10014c2342> slot-definition did not receive a valid :name initarg.. -------------------------------- -------------------------------- JSON-BIND-IN-BIND-BUG []: RESULT2 evaluated to "(0 ((ID . pingId) (NAME . ping)) NIL (((NAME . tableTennisGroupName) (ID . tableTennisGroupId))))", which is not STRING= to "(0 NIL NIL (NIL))".. -------------------------------- Running on ACL 8.1, MacOSX. Best, R

2 3

[cl-json-devel] Patch for parse-number on allegro
by Robert Goldman 05 Jan '10

05 Jan '10

Allegro CL raises different errors on numeric overflow when reading from string than do other lisps. This patch looks for those errors. Thanks to the folks @ Franz for helping me figure out how to detect the right errors.

1 0

[cl-json-devel] Patch to catch simple-errors in parse-number on allegro
by Robert Goldman 02 Jan '10

02 Jan '10

This makes parse-number a /little/ better at overflow catching on allegro. Still not great.

1 0

[cl-json-devel] One more test patch
by Robert Goldman 02 Jan '10

02 Jan '10

I have found that there are some problems with allegro like CMU's limitation on not having keywords naming slots, and on MacOSX (even 64-bit) some problems with very large numbers. Patch attached adds some feature-checking to disable these tests for Allegro. I still have some remaining test failures: Failure Details: -------------------------------- DECODER-PERFORMANCE-WITH-SIMPLIFIED-CAMEL-CASE []: Unexpected Error: #<SIMPLE-ERROR @ #x10011cc4d2> This integer is too large to be converted to single float: 9576382008924608925438958107673314324491693655815563891153405565665341876800352852394225538552941729291820613661575166989445039381263497156161143929125722546256573774437329061133895730629115316789606625346210648020024430405704583267406160006712284392153191377850076868489733840083893490872873866024814260649647904262828015650262789364087017465337661244504443087023011145384661734876080789710396809324669592973038430564702258761529776211196551827242728904820978641510009765625.. -------------------------------- -------------------------------- PASS-1 []: Unexpected Error: #<SIMPLE-ERROR @ #x10012ccaa2> This integer is too large to be converted to single float: 9576382008924608925438958107673314324491693655815563891153405565665341876800352852394225538552941729291820613661575166989445039381263497156161143929125722546256573774437329061133895730629115316789606625346210648020024430405704583267406160006712284392153191377850076868489733840083893490872873866024814260649647904262828015650262789364087017465337661244504443087023011145384661734876080789710396809324669592973038430564702258761529776211196551827242728904820978641510009765625.. -------------------------------- -------------------------------- DECODER-PERFORMANCE []: Unexpected Error: #<SIMPLE-ERROR @ #x10011e8962> This integer is too large to be converted to single float: 9576382008924608925438958107673314324491693655815563891153405565665341876800352852394225538552941729291820613661575166989445039381263497156161143929125722546256573774437329061133895730629115316789606625346210648020024430405704583267406160006712284392153191377850076868489733840083893490872873866024814260649647904262828015650262789364087017465337661244504443087023011145384661734876080789710396809324669592973038430564702258761529776211196551827242728904820978641510009765625.. -------------------------------- -------------------------------- JSON-BIND-IN-BIND-BUG []: RESULT2 evaluated to "(0 ((ID . pingId) (NAME . ping)) NIL (((NAME . tableTennisGroupName) (ID . tableTennisGroupId))))", which is not STRING= to "(0 NIL NIL (NIL))".. -------------------------------- The last one seems to reflect a lingering bug in CL-JSON, and is not related to Allegro. The other three all seem to have to do with numeric overflows like the ones I commented out in the attached patch. Since these are baked into the files, I wasn't sure how to fix this. The problem seems to be that Allegro blows up with numeric overflows in the read-from-string call in parse-number and, unfortunately, the error isn't one of the two that cl-json tests for: (or reader-error #+ecl arithmetic-error). Yet more unfortunately, there is no nice error class here hoisted by ACL for CL-JSON to detect; ACL just raises a simple-error..... I have a kludgy patch for this, but I can't say I'm really happy with it. Also, the code in the tests seems to assume that there will be an error of condition class floating-point-overflow raised, but alas, that isn't what's raised here. Best, r

1 1

[cl-json-devel] Patch for cl-json.asd
by Robert Goldman 02 Jan '10

02 Jan '10

This patch makes it easier to test CL-JSON by adding a test-op to the system definition. You can now just eval (asdf:oos 'asdf:test-op :cl-json)

1 0

[cl-json-devel] Another json-rpc question
by Robert Goldman 01 Jan '10

01 Jan '10

I was testing my error handling code and had some trouble with the restarts in invoke-rpc. A number of these restarts seem to take an error-object as an argument. But when I tested my own CL-JSON methods I couldn't figure out how to get these error-objects into the restart. How is that to be done? thanks, r

2 1

[cl-json-devel] Question about JSON-RPC
by Robert Goldman 30 Dec '09

30 Dec '09

I am setting up a JSON-RPC server over sockets, rather than HTTP, and have a couple of questions about json-rpc.lisp: 1. Am I correct in thinking that INVOKE-JSON does not handle notifications? It looks like it will always try to return a result. Question: would it be reasonable to modify INVOKE-JSON to handle notifications by just executing the function and /not/ returning a result? 2. My socket server must parse JSON messages and decide what type they are before it can call invoke-json. This suggests refactoring invoke-json into two stages: a. the part that calls the decoder and pulls out the three slots b. an inside function that accepts method, params, id, and does the actual invoking. I was thinking of submitting a patch along those lines. Please let me know if that seems wrong. thanks, r

2 3

[cl-json-devel] New encoder
by Henrik Hjelte 03 Dec '09

03 Dec '09

I have added a new alternative encoder to the cl-json darcs repo. I call it the "explicit" (sexp) encoder and now call the old/other (sexp) decoder the "guessing" encoder. The old "guessing" encoder is still the default, so this should not break any code. Also there is a third "streaming" encoder. In other words, flexibility. The "streaming" encoder is a way to format json to a stream. This gives you detailed control, but some of us prefer an intermediate s-exp format. The old "guessing" encoder tries to make a reasonable json representation of a lisp s-expression. For example a list becomes a json array. An a-list becomes a json object. An empty list becomes an empty json array. But some might want it to be json null. Or json false. Or an empty json literal object. With the "explicit" encoder, you give directives in the s-expression explaining exactly what json you want. This might give you more control. Also new is that you can use p-lists to output objects. Also, you can include a pre-formated json string if you wish. I have not updated the documentation, because it was autogenerated by Boris Smilga, and I don't know how to do it. Boris, can you help with this or the code to your doc-maker? There are some testcases and doc-strings explaining the use in the code, I selected one of each and put below in the mail. Also, I have found a bug with json-bind (not fixed, but I have added a testcase for it in case someone want to give it a try). Note that there is no corresponding decoder yet, simply because I have not had any egoistic reasons to add it. But it should be easy if someone want an exercise. Hope someone has a use for this, Henrik "Write the JSON representation of the list S to STREAM (or to *JSON-OUTPUT*), using one of the two rules specified by first calling USE-GUESSING-ENCODER or USE-EXPLICIT-ENCODER. The guessing encoder: If S is a list encode S as a JSON Array, if S is a dotted list encode it as an Object (per ENCODE-JSON-ALIST). The explicit decoder: If S is a list, the first symbol defines the encoding: If (car S) is 'TRUE return a JSON true value. If (car S) is 'FALSE return a JSON false value. If (car S) is 'NULL return a JSON null value. If (car S) is 'JSON princ the strings in (cdr s) to stream If (car S) is 'LIST or 'ARRAY encode (cdr S) as a a JSON Array. If (car S) is 'OBJECT encode (cdr S) as A JSON Object, interpreting (cdr S) either as an A-LIST or a P-LIST." (test explicit-encoder-complex-objects (let ((sample-1-alists `(:object (:method . some-function) (:id . 1) (:params . (:list (:object (:id . bar-id) (:name . bar)) (:true) (:list (:object (:name . a) (:id . b))) (:list (:object (:name . foo) (:id . foo-id))) )))) (sample-2-plists `(:object :method some-function :id 1 :params (:list (:json "{\"id\":\"barId\",\"name\":\"bar\"}") (:true) (:list (:object "name" a :id b)) (:list (:object :name foo :id foo-id)) ))) (correct-json " {\"method\":\"someFunction\", \"id\":1,\"params\": [{\"id\":\"barId\",\"name\":\"bar\"}, true, [{\"name\":\"a\",\"id\":\"b\"}], [{\"name\":\"foo\",\"id\":\"fooId\"}]]}") exact-json sample-1-json sample-2-json) (setf sample-1-json (with-explicit-encoder (encode-json-to-string sample-1-alists))) (setf sample-2-json (with-explicit-encoder (encode-json-to-string sample-2-plists))) (is (string= sample-1-json sample-2-json)) (setf exact-json (remove #\Newline (remove #\Space correct-json :test #'char=) :test #'char=)) (is (string= sample-1-json exact-json))))

1 0

[cl-json-devel] Contrib: simplified camel case
by Leslie P. Polzer 10 Aug '09

10 Aug '09

You might want to include this in camel-case.lisp or contrib. It's barely tested so far though. (defun simplified-camel-case-to-lisp (camel-string) "We don't want + and * all over the place." (declare (string camel-string)) (let ((*print-pretty* nil)) (with-output-to-string (result) (loop for c across camel-string with last-was-lowercase when (and last-was-lowercase (upper-case-p c)) do (princ "-" result) if (lower-case-p c) do (setf last-was-lowercase t) else do (setf last-was-lowercase nil) do (princ (char-upcase c) result))))) Leslie -- http://www.linkedin.com/in/polzer

2 1

[cl-json-devel] Not interning object keys
by Red Daly 10 Aug '09

10 Aug '09

Hello all, CL-JSON does not allow the user to customize the means used to decode the keys for object literals. It may be important to avoid interning in a web setting, for example, since interns of many unique symbols could potentially use a lot of memory. An attack could exploit this by submitting something that is passed through cl-json that has many very large, unique symbols. There used to be a way to get around this with the factory method customization, but the current library does not include a means of changing the decoding behavior for a key to avoid interning it. Unless I am missing something, could this functionality be added? Red

3 6

[cl-json-devel] Javascript parser for Common Lisp
by Red Daly 01 Jul '09

01 Jul '09

Dear CL-JSON and Parenscript developers, I have cloned a functional Javascript parser (from JWACS) and turned it into its own project, which is fully functional but comes with a few annoyances. However, I would appreciate some help coding to make js-parser into a clean package. There are two main issues that need addressing: 1. There are a bunch of warnings about reduce/reduce conflicts in the parser. I couldn't immediately get them out, but I'm sure somebody with more parsing experience should be able to fix the grammar. 2. The project does not use the official, supported version of cl-yacc available here http://www.pps.jussieu.fr/~jch/software/cl-yacc/ Instead it packages its own version, which causes problems if you need the official version of cl-yacc (e.g. closure xml). Theoretically this is a simple change but I don't know for sure. Hopefully this project catches your fancy. I have found a need for a JavaScript parser a bunch of times, from a javascript-to-parenscript converter to screen scraping. Let me know if you would like to contribute. The code is available here: http://github.com/gonzojive/js-parser/tree/master git clone git://github.com/gonzojive/js-parser.git Very truly yours, Red Daly

1 0

[cl-json-devel] (encode-json-to-string "</div>") => "\"<\\/div>\"" ?
by Leslie P. Polzer 17 Jun '09

17 Jun '09

Where do those two extra backslashes in front of the slash come from? Is this intended? Thanks, Leslie -- http://www.linkedin.com/in/polzer

3 3

[cl-json-devel] cl-json 0.4.0
by Henrik Hjelte 25 May '09

25 May '09

A new release of CL-JSON packed with new features is now available, thanks to Boris Smilga and Hans Hübner. * Flexible CLOS decoder * Greatly improved flexibility in customizing both the decoder and encoder. * Various other improvements * Backwards compatible * Good supply of testcases * Precise documentation (online) http://common-lisp.net/project/cl-json Big thanks to Boris! Enjoy, Henrik Hjelte

1 0

[cl-json-devel] cl-json 0.4
by Boris Smilga 03 May '09

03 May '09

Good day to everyone. The bundle attached herewith contains patches to upgrade CL-JSON to the new version 0.4.0 which incorporates changes we have been discussing of late. The changes are rather wide-scale (the sheer size of the patches is 415k), almost every aspect of the implementation differs from what we had in version 0.3.1 and earlier. The most important points are: 1. The decoder now has the customization mechanism from decoder- vars.lisp, with imperative handlers and aggregate-scope variables. 2. The encoder provides a streaming API (borrowed from YASON). The standard encode methods are re-implemented using that API. 3. The CLOS decoder has undergone serious modifications to address the issue of degrading performance in some Lisp implementations. It shall be possible to use anonymous “fluid” objects created by the decoder in a way which makes for a “poor man's JavaScript”. The CLOS encoder does not emit prototype metadata anymore (unless specifically requested). 4. I have written a new pair of matching functions to convert between camel case and Lisp names. 5. There is an improved exception signalling mechanism. Some things which previously were handled by callbacks now use conditions / restarts. 6. JSON-BIND now uses the event-based decoder API with dynamic customization. This has the advantage that the user may choose the semantics with which to decode interior values. However, I had to forego the support for Lisp trees as arguments to JSON-BIND. 7. Some exported names were changed: Condition JSON-PARSE-ERROR → JSON-SYNTAX-ERROR Macro WITH-LIST-DECODER-SEMANTICS → WITH-DECODER-SIMPLE- LIST-SEMANTICS Macro WITH-CLOS-DECODER-SEMANTICS → WITH-DECODER-SIMPLE- CLOS-SEMANTICS I have made sure the tests pass in Clozure CL, SBCL, CMUCL, CLisp, and ECL. There is a new User's Manual in doc/cl-json.html (I have also uploaded a copy to http://dpworks.net/smilga/cl-json.html). And here I would like to humbly ask someone on this mailing list who is a native speaker of English to proof-read it. Russian, my natural idiom, is quite unlike English in grammar, conventional style, and punctuation. Though I am more or less fluent in the latter, I never fully trust myself, especially with the choice of articles, “which” / “that”, and modal and causative constructions. Also, if you think some passages confused or inarticulate, by all means do not hesitate to point me to them. Thank you in advance. Sincerely, - B. Smilga.

2 8

[cl-json-devel] Problem with latest sbcl
by Henrik Hjelte 16 Apr '09

16 Apr '09

Trying the latest patches on todays cvs version of sbcl, 1.0.27.9, totally breaks the testcases. Whereas the old version works. So be a bit careful to use the darcs version for a while in a stable environment. Otherwise, It seems there are lots of cool new features, and the documentation is great. I've put it online here: http://common-lisp.net/project/cl-json/cl-json.html Boris, one thing I am not sure about, the security implications of the clos decoder. How do you make sure that an evil user doesn't create a lispClass ticking-bomb in the lispPackage not-so-secret? Or do I read the docs to bad? Regards, Henrik

2 2

[cl-json-devel] cl-json 0.4, the patches
by Boris Smilga 13 Apr '09

13 Apr '09

Trying to send the patch bundle again. Please check the attachment. - B. Sm.

1 0

Re: [cl-json-devel] cl-json patch
by Henrik Hjelte 26 Feb '09

26 Feb '09

On Wed, Feb 25, 2009 at 2:58 PM, Ian Eslick wrote: > Hi Henrik, > > Would you mind putting this into the cl-json repository? It works around a > problem in ANSI interpretation that crops up in OpenMCL/ClozureCL but not in > the other lisps. > Sure, I have applied it now. /Henrik > diff -rN old-cl-json/src/encoder.lisp new-cl-json/src/encoder.lisp > 33c33 > < (type-error (e) > --- >> ((or type-error #+ccl simple-error) (e) > 38a39 >> (length s) ;; ISE: trips error in ccl which will fail silently above > > > >

2 1

[cl-json-devel] Is Israel a Democracy? -- The problem with intellectually insecure whites -- Should Christians Support Israeli Terrorism in Gaza?
by Lawrence Auster 23 Jan '09

23 Jan '09

The Jewish State of Israel has no constitution, nor does it name its borders. Israel's hidden constitution is Judaism. Israel's undeclared borders range from the Nile to the Euphrates rivers. Israel's desired jurisdiction extends over the entire Earth. It could not be more clear that the Jewish State follows a foreign policy which obeys Jewish Law as iterated in the Hebrew Bible, the Talmud, Maimonedes, the Cabalah, and the many commentaries and refinements of same. The Jews are genociding the native inhabitants of Palestine, just as their religion advises, and because their religion teaches them to do so. They treat non-Jews as if non-humans, just as their religion requires them to do. They make perpetual war on every nation on Earth, just as their genocidal Jewish God has instructed. The Jews of Israel are simply being Jews. Jews are an existential threat to the human race. Israel contains one third of the Jews of the World. It is not some aberration of the Jewish spirit, but the condensation and concentration of the perverse Jewish mentality, which malady also pervades the remaining two thirds of Jewry, who almost unanimously support the Jewish State, and who certainly do unanimously support the Jewish People and its consistent and constant crimes against the human race. Israel is Jewry and the danger of Israel is the danger of the Jewish People to all others, as the Jews have demonstrated each and every day of their existence. The Jews, the entire Jewish People of 15 million, will not relent until they have wiped out all non-Jews in "Greater Israel". They will not stop destroying all other cultures, nations, religions, ethnicities, races, competition, etc. until they are either stopped, or succeed in their ancient quest to destroy the human race. What Israel is doing is not some reaction to outside forces, nor was the formation of Israel a response to the Holocaust. Israel is simply following the plan laid out in the Jews' religious texts. The Jews have openly planned to take Palestine and genocide the native population of Palestine for some 2,500 years before the Holocaust. The Jews have openly complained that "anti-Semitism" is a threat that gives them the right to genocide the Palestinians, not merely since the advent of Nazism, but for some 2,500 years. The Jewish religion is the Constitution of the Jewish State of Israel, and, to a greater or lesser extent, the constitution of the nature of every Jew alive. The borders of Israel are the range the Jew roams over the entire World. The perverse Jewish mentality is inbred by a Jew's exposure to his parents and to his community. Judaism passes in the spit and slobber of Jewish mother telling her Jewish child that he is a "Jew", as much as Judaism passes in the poison and pain of a Talmudic tractate. The secular Jews did not suddenly come to life after the Enlightenment and the Jewish Reformation a body of vampires that appeared ex nihilo, in vacuo, mostly atheistical and undetached from formally practiced Judaism. Judaism is the Jew. It is a mindset that transcends and supercedes religion. It is a belief set, a way of life, a perception of one's self and one's relation to the World that makes a Jew, a Jew, and a danger to all of humanity. In fact, the religious shell of Judaism is like the stretched and infected skin of a lycanthropic pustule. When you lance it to cure the infection, the virus only becomes more contagious and spills directly on the non-Jew. The secular Jew is a deliberate product of the hyper-religious Jew, a monster created out of the hewed corpses of the fanatically religious Jew, a Golem which is conjured up to enter the World of the non-Jew and poison its blood, and boil its brain with a rabid lunacy that bites and spreads, until the infected community feeds on itself and fills the fields with rotting bloating bodies, where once human beings tilled the soil and tended to their families. The religious Jew created the secular Jew as an army of Esthers who seduce with open thighs, broad smiles, and a Siren call that lures in the non-Jew to cast his skull upon the jagged rocks and color the seas with his blood, sickened and blinded by the venereal disease of Judaism in secular form. Israel is not a secular democracy. It is a religious mockery. It is a rabid bat flying to the ends of the Earth, to end the Earth. No one will be free nor safe until the disease is quarantined and dies out. Source: http://www.ziopedia.org/articles/israel/how_can_israel_claim_to_be_a_%27dem… -------------------- The problem with intellectually insecure whites By Kevin MacDonald January 19, 2009 America will soon have a white minority. This is a much desired state of affairs for the hostile elites who hold political power and shape public opinion. But it certainly creates some management issues � at least in the long run. After all, it�s difficult to come up with an historical example of a nation with a solid ethnic majority (90% white in 1950) that has voluntarily decided to cede political and cultural power. Such transformations are typically accomplished by military invasions, great battles, and untold suffering. And it�s not as if everyone is doing it. Only Western nations view their own demographic and cultural eclipse as a moral imperative. Indeed, as I have noted previously, it is striking that racial nationalism has triumphed in Israel at the same time that the Jewish intellectual and political movements and the organized Jewish community have been the most active and effective force for a non-white America. Indeed, a poll in 2008 found that Avigdor Lieberman was the second most popular politician in Israel. Lieberman has advocated expulsion of Arabs from Israel and has declared himself a follower of Vladimir Jabotinsky, the leading pioneer of racial Zionism. The most popular politician in the poll was Benjamin Netanyahu � another admirer of Jabotinsky. Prime Minister Ehud Olmert and Foreign Minister Tzipi Livni are also Jabotinskyists. The racial Zionists are now carrying out yet another orgy of mass murder after a starvation-inducing blockade and the usual triggering assault designed to provoke Palestinian retaliation � which then becomes the cover for claims that Israel is merely defending itself against terrorism. This monstrosity was approved by overwhelming majorities of both Houses of Congress. The craven Bush administration did its part by abstaining from a UN resolution designed by the US Secretary of State as a result of a personal appeal by the Israeli Prime Minister. This is yet another accomplishment of the Israel Lobby, but one they would rather not have discussed in public. People might get the impression that the Lobby really does dictate US foreign policy in the Mideast. Obviously, such thoughts are only entertained by anti-Semites. But I digress. In managing the eclipse of white America, one strategy of the mainstream media is to simply ignore the issue. Christopher Donovan (�For the media, the less whites think about their coming minority status, the better�) has noted that the media, and in particular, the New York Times, are quite uninterested in doing stories that discuss what white people think about this state of affairs. It�s not surprising that the New York Times � the Jewish-owned flagship of anti-white, pro-multicultural media � ignores the issue. The issue is also missing from so-called conservative media even though one would think that conservatives would find the eclipse of white America to be an important issue. Certainly, their audiences would find it interesting. Now we have an article �The End of White America� written by Hua Hsu, an Assistant Professor of English at Vassar College. The article is a rather depressing display of what passes for intellectual discourse on the most important question confronting white people in America. Hsu begins by quoting a passage in F. Scott Fitzgerald�s The Great Gatsby in which a character, Tom Buchanan, states: �Have you read The Rise of the Colored Empires by this man Goddard?� � Well, it�s a fine book, and everybody ought to read it. The idea is if we don�t look out the white race will be�will be utterly submerged. It�s all scientific stuff; it�s been proved.� Buchanan�s comment is a thinly veiled reference to Lothrop Stoddard�s The Rising Tide of Color which Hsu describes as �rationalized hatred� presented in a scholarly, gentlemanly, and scientific tone. (This wording that will certainly help him when he comes up for tenure.) As Hsu notes, Stoddard had a doctorate from Harvard and was a member of many academic associations. His book was published by a major publisher. It was therefore �precisely the kind of book that a 1920s man of Buchanan�s profile � wealthy, Ivy League�educated, at once pretentious and intellectually insecure � might have been expected to bring up in casual conversation.� Let�s ponder that a bit. The simple reality is that in the year 2009 an Ivy League-educated person, "at once pretentious and intellectually insecure," would just as glibly assert the same sort of nonsense as Hsu. To wit: The coming white minority does not mean that the racial hierarchy of American culture will suddenly become inverted, as in 1995�s White Man�s Burden, an awful thought experiment of a film, starring John Travolta, that envisions an upside-down world in which whites are subjugated to their high-class black oppressors. There will be dislocations and resentments along the way, but the demographic shifts of the next 40 years are likely to reduce the power of racial hierarchies over everyone�s lives, producing a culture that�s more likely than any before to treat its inhabitants as individuals, rather than members of a caste or identity group. The fact is that no one can say for certain what multicultural America without a white majority will be like. There is no scientific or historical basis for claims like �the demographic shifts of the next 40 years are likely to reduce the power of racial hierarchies over everyone�s lives, producing a culture that�s more likely than any before to treat its inhabitants as individuals, rather than members of a caste or identity group.� Indeed, there is no evidence at all that we are proceeding to a color blind future. The election results continue to show that white people are coalescing in the Republican Party, while the Democrats are increasingly the party of a non-white soon-to-be majority. Is it so hard to believe that when this coalition achieves a majority that it will further compromise the interests of whites far beyond contemporary concerns such as immigration policy and affirmative action? Hsu anticipates a colorblind world, but affirmative action means that blacks and other minorities are certainly not treated as individuals. And it means that whites � especially white males � are losing out on opportunities they would have had without these policies and without the massive non-white immigration of the last few decades. Given the intractability of changing intelligence and other traits required for success in the contemporary economy, it is unlikely that 40 more years of affirmative action will attain the outcomes desired by the minority lobbies. Indeed, in Obama's America, blacks are rioting in Oakland over perceived racial injustices, and from 2002 �2007, black juvenile homicide victims increased 31%, while black juvenile homicide perpetrators increased 43%. Hence, the reasonable outlook is for a continuing need for affirmative action and for racial activism in these groups, even after whites become a minority. Whites will also lose out because of large-scale importation of relatively talented immigrants from East Asia. Indeed, as I noted over a decade ago, "The United States is well on the road to being dominated by an Asian technocratic elite and a Jewish business, professional, and media elite." Hsu shows that there already is considerable anxiety among whites about the future. An advertizing executive says, �I think white people feel like they�re under siege right now � like it�s not okay to be white right now, especially if you�re a white male. ... People are stressed out about it. �We used to be in control! We�re losing control�� Another says, "There�s a lot of fear and a lot of resentment." It's hard to see why these feelings won't increase in the future. A huge problem for white people is lack of intellectual and cultural confidence. Hsu quotes Christian (Stuff White People Like) Lander saying, "I get it: as a straight white male, I�m the worst thing on Earth." A professor comments that for his students "to be white is to be culturally broke. The classic thing white students say when you ask them to talk about who they are is, �I don�t have a culture.� They might be privileged, they might be loaded socioeconomically, but they feel bankrupt when it comes to culture � They feel disadvantaged, and they feel marginalized." This lack of cultural confidence is no accident. For nearly 100 years whites have been subjected to a culture of critique emanating from the most prestigious academic and media institutions. And, as Hsu points out, the most vibrant and influential aspect of American popular culture is hip-hop�a product of the African American urban culture. The only significant group of white people with any cultural confidence centers itself around country music, NASCAR, and the small town values of traditional white America. For this group of whites � and only this group � there is "a racial pride that dares not speak its name, and that defines itself through cultural cues instead�a suspicion of intellectual elites and city dwellers, a preference for folksiness and plainness of speech (whether real or feigned), and the association of a working-class white minority with 'the real America.'� This is what I term implicit whiteness � implicit because explicit assertions of white identity have been banned by the anti-white elites that dominate our politics and culture. It is a culture that, as Hsu notes, "cannot speak its name." But that implies that the submerged white identity of the white working class and the lack of cultural confidence exhibited by the rest of white America are imposed from outside. Although there may well be characteristics of whites that facilitate this process, this suppression of white identity and interests is certainly not the natural outcome of modernization or any other force internal to whites as a people. In my opinion, it is the result of the successful erection of a culture of critique in the West dominated by Jewish intellectual and political movements. The result is that educated, intellectually insecure white people these days are far more likely to believe in the utopian future described by Hsu than in hard and cautious thinking about what the future might have in store for them. It's worth dwelling a bit on the intellectual insecurity of the whites who mindlessly utter the mantras of multiculturalism that they have soaked up from the school system and from the media. Most people do not have much confidence in their intellectual ability and look to elite opinion to shape their beliefs. As I noted elsewhere, A critical component of the success of the culture of critique is that it achieved control of the most prestigious and influential institutions of the West, and it became a consensus among the elites, Jewish and non-Jewish alike. Once this happened, it is not surprising that this culture became widely accepted among people of very different levels of education and among people of different social classes. Most people are quite insecure about their intellectual ability. But they know that the professors at Harvard, and the editorial page of the New York Times and the Washington Post, and even conservative commentators like Rush Limbaugh and Sean Hannity are all on page when it comes to racial and ethnic issues. This is a formidable array, to the point that you almost have to be a crank to dissent from this consensus. I think one of the greatest triumphs of the left has been to get people to believe that people who assert white identity and interests or who make unflattering portrayals of organized Jewish movements are morally degenerate, stupid, and perhaps psychiatrically disturbed. Obviously, all of these adjectives designate low status. The reality is that the multicultural emperor has no clothes and, because of its support for racial Zionism and the racialism of ethnic minorities in America, it is massively hypocritical to boot. The New York Times, the academic left, and the faux conservatives that dominate elite discourse on race and ethnicity are intellectually bankrupt and can only remain in power by ruthlessly suppressing or ignoring the scientific findings. This is particularly a problem for college-educated whites. Like Fitzgerald's Tom Buchanan, such people have a strong need to feel that their ideas are respectable and part of the mainstream. But the respectable mainstream gives them absolutely nothing with which to validate themselves except perhaps the idea that the world will be a better place when people like them no longer have power. Hsu quotes the pathetic Christian Lander: "�Like, I�m aware of all the horrible crimes that my demographic has done in the world. ... And there�s a bunch of white people who are desperate � desperate � to say, �You know what? My skin�s white, but I�m not one of the white people who�s destroying the world.�� As a zombie leftist during the 1960s and 1970s, I know what that feeling of desperation is like � what it's like to be a self-hating white. We must get to the point where college-educated whites proudly and confidently say they are white and that they do not want to become a minority in America. This reminds me of the recent docudrama Milk, which depicts the life of gay activist Harvey Milk. Milk is sure be nominated for an Oscar as Best Picture because it lovingly illustrates a triumph of the cultural left. But is has an important message that should resonate with the millions of whites who have been deprived of their confidence and their culture: Be explicit. Just as Harvey Milk advocated being openly gay even in the face of dire consequences, whites need to tell their family and their friends that they have an identity as a white person and believe that whites have legitimate interests as white people. They must accept the consequences when they are harassed, fired from their jobs, or put in prison for such beliefs. They must run for political office as openly pro-white. Milk shows that homosexuals were fired from their jobs and arrested for congregating in public. Now it's the Southern Poverty Law Center and the rest of the leftist intellectual and political establishment that harasses and attempts to get people fired. But it's the same situation with the roles reversed. No revolution was ever accomplished without some martyrs. The revolution that restores the legitimacy of white identity and the legitimacy of white interests will be no exception. But it is a revolution that is absolutely necessary. The white majority is foolish indeed to entrust its future to a utopian hope that racial and ethnic identifications will disappear and that they won�t continue to influence public policy in ways that compromise the interests of whites. It does not take an overactive imagination to see that coalitions of minority groups could compromise the interests of formerly dominant whites. We already see numerous examples in which coalitions of minority groups attempt to influence public policy, including immigration policy, against the interests of the whites. Placing ourselves in a position of vulnerability would be extremely risky, given the deep sense of historical grievance fostered by many ethnic activists and organized ethnic lobbies. This is especially the case with Jews. Jewish organisations have been unanimous in condemning Western societies, Western traditions, and Christianity, for past crimes against Jews. Similar sentiments are typical of a great many African Americans and Latinos, and especially among the ethnic activists from these groups. The �God damn America� sermon by President Obama's pastor comes to mind as a recent notorious example. The precedent of the early decades of the Soviet Union should give pause to anyone who believes that surrendering ethnic hegemony does not carry risks. The Bolshevik revolution had a pronounced ethnic angle: To a very great extent, Jews and other non-Russians ruled over the Russian people, with disastrous consequences for the Russians and other ethnic groups that were not able to become part of the power structure. Jews formed a hostile elite within this power structure � as they will in the future white-minority America; Jews were �Stalin�s willing executioners.� Two passages from my review of Yuri Slezkine's The Jewish Century seem particularly appropriate here. The first passage reminds me of the many American Jews who adopt a veneer of support for leftist versions of social justice and racial tolerance while nevertheless managing to support racial Zionism and the mass murder, torture, and incarceration of the Palestinian people in one of the largest prison systems the world has ever seen. Such people may be very different when they become a hostile elite in a white-minority America. Many of the commentators on Jewish Bolsheviks noted the �transformation� of Jews [after the Bolshevik Revolution]. In the words of [a] Jewish commentator, G. A. Landau, �cruelty, sadism, and violence had seemed alien to a nation so far removed from physical activity.� And another Jewish commentator, Ia. A. Bromberg, noted that: the formerly oppressed lover of liberty had turned into a tyrant of �unheard-of-despotic arbitrariness��. The convinced and unconditional opponent of the death penalty not just for political crimes but for the most heinous offenses, who could not, as it were, watch a chicken being killed, has been transformed outwardly into a leather-clad person with a revolver and, in fact, lost all human likeness. ... After the Revolution, ... there was active suppression of any remnants of the older order and their descendants. ... The mass murder of peasants and nationalists was combined with the systematic exclusion of the previously existing non-Jewish middle class. The wife of a Leningrad University professor noted, �in all the institutions, only workers and Israelites are admitted; the life of the intelligentsia is very hard� (p. 243). Even at the end of the 1930s, prior to the Russification that accompanied World War II, �the Russian Federation�was still doing penance for its imperial past while also serving as an example of an ethnicity-free society� (p. 276). While all other nationalities, including Jews, were allowed and encouraged to keep their ethnic identities, the revolution remained an anti-majoritarian movement. The difference from the Soviet Union may well be that in white-minority America it will not be workers and Israelites who are favored, but non-whites and Israelites. Whites may dream that they are entering the post-racial utopia imagined by their erstwhile intellectual superiors. But it is quite possible that they are entering into a racial dystopia of unimaginable cruelty in which whites will be systematically excluded in favor of the new elites recruited from the soon-to-be majority. It's happened before. Kevin MacDonald is a professor of psychology at California State University�Long Beach. Permanent URL with hyperlinks: http://www.theoccidentalobserver.net/articles/MacDonald-Hsu.html ----------- Should Christians Support Israeli Terrorism in Gaza? A timely discussion between Rev. Ted Pike and Dr. David Duke, one especially important for the Christians in our audience http://www.davidduke.com/mp3/dukeradio090122DukeandPikeonGaza.mp3 In this vital discussion, Rev. Pike and Dr. Duke explore the Pro-Israel attitude of some Christian evangelical organizations, and why their position not only goes directly against Christian morality and decency, but actually is directly opposite of that expressed by Christian Scriptures. Today, Many Christians are instructed that Jews and today�s Israel has a special covenant� with God. In fact, the New Testament in the clearest of language states that the Jews �continued not in my covenant, and I considered them not, saith the Lord.� Here�s the quote that Christians aren�t supposed to notice.: 8:10 Not according to the covenant that I made with their fathers, in the day when I took them by the hand out of the land of Egypt; because they continued not in my covenant, and I regarded them not, saith the Lord. (Hebrews 8:10) They also don�t seem to notice that a 2000 year old Judaic war against Christianity that has been waged since time of Jesus Christ and still goes on today with the most powerful Jewish organizations attempting to destroy European and American traditions, that has even become a war on our Christmas traditions. Dr. Duke and Ted Pike also speak about how over a hundred thousand Christian Palestinians have suffered with their families from anti-Christian Israel! Christian support of Israel has resulted in the very birthplace of Jesus Christ, go from 90 percent Palestinian Christians to 35 percent today because of Israeli terror and occupation. They ask, �How could any Christian in good conscience support the anti-Christian state of Israel, bombing the homes, killing and maiming, torturing and oppressing fellow Christian men, women and children?� This is a vital show for every Christian reader and listener of DavidDuke.com. Next time, you hear someone say, �God tells us that we must support Israel� you will have the clear Christian answer that just the opposite is true! For documentation on this be sure to read some of the well-footnoted, sample chapters of Jewish Supremacism and My Awakening. Source : http://www.davidduke.com/general/should-christians-support-israeli-terroris… ------------------------------------- You or someone using your email adress is currently subscribed to the Lawrence Auster Newletter. If you wish to unsubscribe from our mailing list, please let us know by calling to 1 212 865 1284 Thanks, Lawrence Auster, 238 W 101 St Apt. 3B New York, NY 10025 Contact: lawrence.auster(a)att.net -------------------------------------

1 0

[cl-json-devel] Latest Parenscript breaks cl-json
by Leslie P. Polzer 08 Dec '08

08 Dec '08

SYMBOL-TO-JS has been renamed to SYMBOL-TO-JS-STRING (patch attached). Also, the current cl-json web page leads users to the obsolete darcs repo of Parenscript. Guys have switched to git. Thanks, Leslie -- LinkedIn Profile: http://www.linkedin.com/in/polzer Xing Profile: https://www.xing.com/profile/LeslieP_Polzer Blog: http://blog.viridian-project.de/

3 5

[cl-json-devel] deployment of customized decoder and streaming encoder
by Boris Smilga 23 Nov '08

23 Nov '08

Hello Henrik and everyone. I have got a message from a user recently who expressed his interest in CL-JSON, so I felt obliged to somewhat press the issue of shipping out a new version which would integrate the customizable decoder and a streaming encoder. Now I see that decoder-args.lisp and decoder- vars.lisp have been commited to the central repository, but the question which one to choose and whether any further enhancements are necessary stays open. Well, I can only repeat that my own prefence is for decoder-vars.lisp, and, if no-one would like to further discuss this issue, I'll allow myself to start bringing the code from that file over into decoder.lisp. Patches to be posted to this list as usual. Sincerely, - B. Smilga.

2 1

[cl-json-devel] [PATCH] Explicitly test for alist instead of type error
by Stephen Compall 29 Aug '08

29 Aug '08

Clozure CL (current SVN, maybe release I dunno) does this: (map 'list #'identity '(x . "abc")) => (x #\b #\c) Which breaks the alist case in encoder.lisp. So, pending a fix for Clozure, I made a workaround that tests explicitly for a proper alist instead. Attached is the Darcs patch: -- I write stuff at http://failex.blogspot.com/ now. But the post formatter and themes are terrible for sharing code, the primary content, so it might go away sooner or later.

1 1

[cl-json-devel] usage of cl-json
by srinivasa reddy kadem 26 Aug '08

26 Aug '08

Already we are using cl-json in our product development, I'm not sure which version we are using now. But it is belongs to old source code(I think it is downloaded very long back). Our team did some customization in the source code which meet our requirements. I want to update this into newer versions. Please let me know how to use it and where I can download latest version of cl-json.In what way it should be embedded it into our application. Let me know you need any further clarification. Anybody please help me or give suggestions. -- Thanks, Reddy

2 2

[cl-json-devel] proposed: improvements to decoder customization
by Boris Smilga 24 Aug '08

24 Aug '08

[This memo started as a follow-up to the e-mail exchange between Henrik and your humble author (now recorded in the TODO file), but, on reviewing it, I thought that it would perhaps be of some interest to the broader readership of cl-json-devel. This is to explain the rather personal style of discourse, and make apologies to a reader who might —but who need not!— feel excluded.] §1. The design of the improved decoder interface laid out below came to be as I was considering an application of CL-JSON that would involve local structured storage of transmitted data in a Berkeley DB. In such a setting one would like to bypass creating Lisp data structures from JSON input, instead packing it directly to FFI C data to be processed by libdb. The question that I asked myself was how to (re)design the decoder so that this task could be dealt with gracefully. I have also checked the scheme against the several probable sets of requirements you had described in your e-mail: > Configurable: I really would want to have it optional exactly how > to decode and encode objects. You are probably right in that your > solution is a good default behaviour, but it will not be perfect in > every situation for every user. So if possible, I would like to > have the decoding and encoding configurable. So backwards > compatibility does not really mean backwards, it means > compatibility between different setups. For example, when doing > testcases or a simple json-bind the old alist setup is good, for a > more advanced setup your code is great. For a secure setup you will > probably want to have access control to what objects you are > allowed to create and so on. One solution will never be sufficient > for everyone. §2. Hence, the general principles which should be obeyed by the implementation, are: A. Separation of concerns. The implementation should comprise a fixed basic level to handle the parsing, JSON well-formedness, and flow control; and a customizable level to produce Lisp data (or perform some other JSON-driven task, as it might please the user to enjoin). You were very rightfully incensed against my intermingling parsing with looking for prototype in READ-JSON-OBJECT. It will become clear below how this can be done away with. B. Fine grain. Not only the handling of objects, but also that of other JSON types should be customizable. In particular, the handling of arrays and strings should be customizable on elemental level, i.e. the user should have a way to determine how the decoder handles elements of arrays and strings. In handling objects, customization should be available for keys as well as for key-value pairs. §3. This suggests a design similar in spirit to SAX, with a set of handlers triggered by “events”. The current implementation partly follows this scheme by providing the *JSON-OBJECT-FACTORY... callbacks, but there are more kinds of events than can be handled by those three; here's a tentatively exhaustive list: 1. An atomic constant (integer, real, or boolean). 2a. Beginning of string. 2e. A string character or escape sequence. 2z. End of string. 3a. Beginning of array. 3e. An array element. 3z. End of array. 4a. Beginning of object. 4k. An object property key. 4v. An object property value. 4z. End of object. Accordingly, we need at least as many handlers. The handlers for (1), (2e), (3e), (4k/v) shall be passed the token that triggered the event; (2a), (3a), and (4a) shall produce some fresh “accumulator” value that is then piped through successive calls to (2e), (3e), and (4k/v), respectively. E.g., reading the JSON {"f\u0151o": [1, true]} could result in the following flow of calls to handlers (I use mnemonic names of function-valued handler variables, which are certainly not definitive): READ-JSON-OBJECT 4a: *BEGINNING-OF-OBJECT-HANDLER* () produces some value (⇒) O READ-JSON-STRING 2a: *BEGINNING-OF-STRING-HANDLER* () ⇒ S 2e: *STRING-CHAR-HANDLER* (#x66, S) ⇒ S′ 2e: *STRING-CHAR-HANDLER* (#x151, S′) ⇒ S″ 2e: *STRING-CHAR-HANDLER* (#x6f, S″) ⇒ S‴ 2z: *END-OF-STRING-HANDLER* (S‴) ⇒ T 4k: *OBJECT-KEY-HANDLER* (T) ⇒ K READ-JSON-ARRAY 3a: *BEGINNING-OF-ARRAY-HANDLER* () ⇒ A 1: *INTEGER-HANDLER* ("1") ⇒ I 3e: *ARRAY-ELEMENT-HANDLER* (I, A) ⇒ A′ 1: *BOOLEAN-HANDLER* ("true") ⇒ B 3e: *ARRAY-ELEMENT-HANDLER* (B, A′) ⇒ A″ 3z: *END-OF-ARRAY-HANDLER* (A″) ⇒ V 4v: *OBJECT-VALUE-HANDLER* (K, V, O) ⇒ O′ 4z: *END-OF-OBJECT-HANDLER* (O′) ⇒ P, which is also the return value of READ-JSON-OBJECT. The nature of the values O, S, S′, S″, S‴, T, etc. is of absolutely no concern to the base level of the decoder whose only duty is to faithfully pass them around. For one, a dumb JSON syntax checker can have all handlers set to (CONSTANTLY T). §4. Now the current list semantics can be expressed straightforwardly in terms of these handlers: *BEGINNING-OF-ARRAY-HANDLER* ⇒ (lambda () (let ((list (cons nil nil))) ; First element is never used (cons list list))) ; First and last pair of the list *ARRAY-ELEMENT-HANDLER* ⇒ (lambda (elt accumulator) (destructuring-bind (head . last) accumulator (cons head (setf (cdr last) (cons elt nil))))) *END-OF-ARRAY-HANDLER* ⇒ (lambda (accumulator) (coerce (cdar accumulator) *json-array-type*)) *BEGINNING-OF-OBJECT-HANDLER* ⇒ same as *BEGINNING-OF-ARRAY-HANDLER* *OBJECT-KEY-HANDLER* ⇒ #'json-intern *OBJECT-VALUE-HANDLER* ⇒ (lambda (key value accumulator) (destructuring-bind (head . last) accumulator (cons head (setf (cdr last) (cons (cons key value) nil))))) *END-OF-OBJECT-HANDLER* ⇒ #'cdar *INTEGER-HANDLER* ⇒ #'parse-integer You can easily reconstruct the rest. §5. Our CLOS semantics is a more tricky affair. If I may allow myself to reiterate what I previously said about the handling of prototype fields: > READ-JSON-OBJECT works by reading in the key string and the colon > separator, and then recursively calling READ-JSON to consume > characters from the input and construct the object which would be > the corresponding value. With my modifications, when the key > "prototype" (or whatever the name shoud be) is encountered on the > input, the decoder is told that the value we are going to construct > shall be the prototype object. If we were not able to communicate > this beforehand, we'd have to do much post-processing of the > factory object: look up the prototype (note that, at this point, we > would not know the package and could not yet intern the keys, so > that the matching would be done on strings, degrading the > performance), convert it to some internal format (note that we > would not be able to predict accurately enough what it would have > been decoded to, as that may be influenced by user-side > configuration), remove the prototype and key from the factory, and > only then could we create the object. Put rather abstractly, to overcome this difficulty we need a means to pass certain information from outer to inner recursive calls of READ-JSON-OBJECT, and between handlers invoked on the same level. I currently see two options of implementing this: A. “Accumulator” return values of (3a/e) and (4a/k/v) handlers (what is signified by A, A′, ..., and O, O′ in the above example) are passed down as additional arguments to the recursive calls to READ-JSON-OBJECT and READ-JSON-ARRAY, and are then also passed to (3a) and (4a) handlers in these inner functions (and perhaps also to (1) and (2a)). The (4k) handler, like (4v), receives and produces an “accumulator” value rather than a representation of the key. Thus, the flow in the above example becomes: ... 4k: *OBJECT-KEY-HANDLER* (T, O) ⇒ O′ READ-JSON-ARRAY (..., O′) 3a: *BEGINNING-OF-ARRAY-HANDLER* (O′) ⇒ A ... 3z: *END-OF-ARRAY-HANDLER* (A″) ⇒ V 4v: *OBJECT-VALUE-HANDLER* (V, O′) ⇒ O″ ... This would allow for an implementation of the CLOS semantics along the following lines: *BEGINNING-OF-OBJECT-HANDLER* ⇒ (lambda (&optional (above-accumulator nil not-toplevel)) (let* ((prototype (if not-toplevel (caar above-accumulator))) (list (cons prototype nil))) (cons list list))) *OBJECT-KEY-HANDLER* ⇒ (lambda (key accumulator) (destructuring-bind (head . last) accumulator (let ((prototype (car head))) (if (and (not prototype) (string= key (symbol-name *prototype-name*))) (cons (cons t (cdr head)) last) (cons head (setf (cdr last) (cons (cons key nil) nil))))))) *OBJECT-VALUE-HANDLER* ⇒ (lambda (value accumulator) (destructuring-bind (head . last) accumulator (if (typep value 'prototype) (cons (cons value (cdr head)) last) (progn (setf (cdar last) value) accumulator)))) *END-OF-OBJECT-HANDLER* ⇒ (lambda (accumulator) (destructuring-bind ((prototype . fields) . last) accumulator (let ((*json-object-prototype* prototype)) (json-factory-make-object fields)))) B. In addition to custom handlers, the user is given the possibility to provide a list of dynamic variables which he wishes to have “JSON-structure scope”. That is, the bodies of READ-JSON-OBJECT and READ-JSON-ARRAY are wrapped in PROGVs which establish new dynamic bindings for these variables (using their outer-level bindings for respective initial values). If a handler sets a structure-scope variable, the new value is then visible to all subsequent handlers until the current READ-JSON-OBJECT or READ-JSON-ARRAY loop exits. By constrast, the handlers on the outer levels never see the value change. The flow in the example is unaltered, and the CLOS semantics is implemented thus: *JSON-STRUCTURE-SCOPE-VARIABLES* ⇒ '(*json-object-prototype*) *BEGINNING-OF-OBJECT-HANDLER* ⇒ (lambda () (let ((list (cons nil nil))) (cons list list))) *OBJECT-KEY-HANDLER* ⇒ (lambda (key) (if (and (not *json-object-prototype*) (string= key (symbol-name *prototype-name*))) (setq *json-object-prototype* t)) key) *OBJECT-VALUE-HANDLER* ⇒ (lambda (key value accumulator) (destructuring-bind (head . last) accumulator (if (typep value 'prototype) (progn (setq *json-object-prototype* value) accumulator) (cons head (setf (cdr last) (cons (cons key value) nil)))))) *END-OF-OBJECT-HANDLER* ⇒ (lambda (accumulator) (json-factory-make-object (cdar accumulator))) The choice between the options A and B seems to be one between simplicity of interface and efficiency: a lot of nested PROGVs are likely to incur some cost overhead (I do not feel myself qualified enough to predict exactly how much). On the other hand, handlers are rather more readable, as you can see in the above comparison, and the interface also stays more intuitive that way. §6. Returning to my BDB + CL-JSON application: the (2a), (3a), (4a) handlers coud be customized to call data constructor / initializer functions over the FFI, and (2z), (3z), (4z) to call the DB put method. The uppermost call to READ-JSON would be wrapped up as a transaction. That would be it. Sincerely, - B. Smilga.

3 7

[cl-json-devel] proposed: improvements to decoder customization
by Boris Smilga 24 Aug '08

24 Aug '08

On 7 Aug 2008, at 03:51, Boris Smilga wrote: > On 4 Aug 2008, at 00:14, Henrik Hjelte wrote: >> 2. I think the A (Accumulator) version seems to be good, and If it >> has >> other advantages as you write, I think we should go for it. > > Actually, I rather prefer B, which is cleaner, though, probably, worse > performing. I think I'm going to implement both and run some heavy > workload tests to see how bad the regression could be, and then we'll > decide. Please find attached a patch bundle with the implementation of the decoder in two flavours: with extra arguments and with dynamic json-structure-scope variables. They are in two separate files, with much code overlap between the two. So let us choose which one we eventually want. The workload tests were done as follows. First, I generated a random huge json file (see the code in the attached file random-json.lisp; the output was generated by running (with-open-file (s #p"test.in" :direction :output) (generate-random-json s 120)) which yielded some 214 KB of json data, with maximum depth of nesting 21). The contents of the file was then fed to DECODE-JSON under different setups, by running (with-open-file (s #p"test.in") (time (decode-json s))) NB: To get comparable results for CLOS semantics, I had to reboot Lisp between tests. This is because implementations usually employ optimizations geared toward stable CLOS-style classes. With the kind of transient classes that we create from prototypeless JSON objects the optimizations actually can cause performance to degrade, sometimes severely. See my exchange with Gary Byers from Clozure on the openmcl-devel mailing list: http://clozure.com/pipermail/openmcl-devel/2008-August/008458.html, http://clozure.com/pipermail/openmcl-devel/2008-August/008463.html. Hence, now that we have a customizable decoder, I would either scrape transient classes altogether, substituting some default prototype (e.g. {"lispClass":"cons"}, or some wrapper around alists, as in st-json), or else post big notices in red letters: “Thou Shalt Not Omit Prototypes” all over the place. The test results are thus: Clozure CL v. 1.2 RC1 (DarwinPPC32) on 1.5 GHz PowerBook G4 with 1.25 GB RAM. List semantics: With the extra-args approach: 1.442 sec. run time, 10,209,120 bytes allocated. With the dynamic-vars approach: 1.571 sec. run time, 12,317,928 bytes allocated. CLOS semantics: Extra-args: 10.870 sec. run time, 34,559,256 bytes allocated. Dynamic-vars: 10.961 sec. run time, 34,972,216 bytes allocated. ************ SBCL 1.0.18 on the same. List semantics: Extra-args: 1.163 sec. run time, 18,111,072 bytes allocated. Dynamic-vars: 1.218 sec. run time, 18,407,344 bytes allocated. CLOS semantics: Extra-args: 7.193 sec. run time, 96,173,152 bytes allocated. Dynamic-vars: 7.451 sec. run time, 96,767,968 bytes allocated. ************ CLisp 2.40 on the same: List semantics: Extra-args: 1.351 sec. run time, 8,328,464 bytes allocated. Dynamic-vars: 1.406 sec. run time, 8,447,900 bytes allocated. CLOS semantics: Extra-args: 9.057 sec. run time, 28,362,544 bytes allocated. Dynamic-vars: 9.112 sec. run time, 28,775,504 bytes allocated. ************ SBCL 1.0.17 on 2 GHz AMD 64 3000+ with 512 MB RAM. List semantics: Extra-args: 0.472 sec. run time, 19,891,336 bytes allocated. Dynamic-vars: 0.471 sec. run time, 20,187,112 bytes allocated. CLOS semantics: Extra-args: 2.171 sec. run time, 80,166,760 bytes allocated. Dynamic-vars: 2.180 sec. run time, 80,724,960 bytes allocated. I would say that the regression is fairly benign, never more than 9% run time and 20% memory, on average 2% run time and 4% memory. I allow myself once again to state my preference for the dynamic-vars approach, which has a much cleaner interface. Cleaner—especially so as the elaborate passing-around of handler states could be done away with altogether and replaced by handler-side changing of the state of dynamic variables. The implementation of the two simple semantics in decoder-vars.lisp illustrates this point: a beginning-of-structure handler initializes the variables *ACCUMULATOR* and *ACCUMULATOR-LAST*, and structure-element handlers imperatively modify their state. As the variables have json-structure scope, sub-structures cannot clobber their parent structures' accumulators. There were two more important sets of changes. Firstly, the basic json reader was redesigned to work in terms of tokens. A token is either a number literal, a symbol, or a punctuation mark (string characters and escape sequences can be seen as tokens as well). This modularizes the design into a lower-level tokenizer part and a higher-level decoder part. Secondly, I have substituted my own version of CAMEL-CASE-TO-LISP to handle conventions like "JSONAllCapitals" (⇒ "+JSON+-ALL-CAPITALS"), "TWO_WORDS" (⇒ "+TWO-WORDS+"), and "camelCase_mixed_4_PARTS" (⇒ "CAMEL-CASE--MIXED--+4-PARTS+"). Sincerely, - B. Smilga.

2 1

[cl-json-devel] proposed patch: encoding and unencoding CLOS objects
by boris.smilga＠gmail.com 23 Jul '08

23 Jul '08

*** Rationale *** §1. A significant problem I perceive with CL-JSON in its present state is that the operations ENCODE-JSON and DECODE-JSON are not reasonably inverse. E.g.: (ENCODE-JSON-TO-STRING (DECODE-JSON-FROM-STRING "{\"foo\":null,\"bar \":null}")) => "[[\"foo\"],[\"bar\"]]" and (ENCODE-JSON-TO-STRING (DECODE-JSON-FROM-STRING "{}")) => "null" §2. This is the most painful kind of example, because the JSON object having even a single non-null field results in a proper value. Thus, the type of a JSON object emitted by an application that uses ENCODE-JSON can depend not only on the type of the source Lisp object but on its internal structure as well. This is not to say that ENCODE-JSON fusing Lisp vectors with lists and symbols and characters with strings, or DECODE-JSON fusing false with null are particularly pleasant; still, in theses cases we are able to predict typing across JSON interface. Note, however, that (ENCODE-JSON-TO-STRING (DECODE-JSON-FROM-STRING "[]")) would also yield "null". This has to be dealt with as well. §3. The root of the problem is the design decision of representing JSON objects as Lisp alists, and the solution I propose is to revert that decision and represent JSON objects as CLOS objects. This is quite feasible if we make use of meta-object protocol capabilities implemented in a more or less standardized way across most contemporary Common Lisps. In the simple form, decoding a well-formed JSON object should result in the creation of an anonymous class (i.e. an instance of STANDARD-CLASS) with such slots as found in the JSON object. Next, we create an instance of the anonymous class and populate its slots. Conversely, encoding a CLOS object Z should be done by iterating over the value of (CLASS-SLOTS (CLASS-OF Z)) and emitting a name:value pair for each slot bound in Z. §4. Attached herewith is a series of patches implementing the idea. However, I have ventured a step further by allowing JSON objects to include metadata which specify that CLOS objects are to belong (or else inherit) to non-anonymous CLOS classes. The metadata are passed as the field of the object whose name is ``prototype''. (More accurately, the name is determined by the symbol which is the value of the special variable *PROTOTYPE-NAME*: the value (FUNCALL *SYMBOL-TO-STRING-FN* *PROTOTYPE-NAME*) must be STRING= to the name of the field. I have judged the default value 'PROTOTYPE more or less developer-friendly, as the field ``prototype'' in JavaScript objects is already reserved for special purposes and so is unlikely to conflict with anyone's user-level naming schemes. Below, I invariably call this field the prototype field.) The value of the prototype field should be an object, called the prototype, in which the following fields are meaningful: "lispClass":C, "lispSuperclasses":[C1,...,Cn] and "lispPackage":P (all other fields are ignored). The following rules are employed when decoding a JSON object X to a CLOS object Z: (D1) If the prototype of X has a "lispClass":C field, Z shall be an instance of the class identified by the name C, and all fields of X which have no correspondence among the slots of the class C are discarded. (D2) If the prototype of X has a "lispSuperclasses":[C1,...,Cn] field, Z shall be an instance of an anonymous class C whose superclasses are identified by the names C1,...,Cn. The fields of X which have no correspondence among any of the slots of the classes C1,...,Cn are defined in C as direct slots. As a special case, if n=1 and all of X's fields (omitting the prototype) are defined as slots in C1 then Z shall be an instance of C1. (D3) If the prototype has both a "lispClass":C and a "lispSuperclasses":[C1,...,Cn] fields then the rule D1 applies and the latter field is ignored. (D4) If the prototype has a "lispPackage":P field, then the names of the classes in both other fields and the names of the fields in X are interned in the package specified by P instead of the default package KEYWORD. Of course, all names (including P itself) are converted from camel case before using them in Lisp. (D5) If the class of the resulting object Z provides for a slot whose name is the value of the special variable *PROTOTYPE-NAME* (JSON::PROTOTYPE by default) then that slot shall be bound to the object which internally represents the prototype of X (an instance of the class JSON::PROTOTYPE, qv. the code). NB: this slot is never created by the decoder on its own authority but always inherited from the class or superclasses specified. (D6) If the prototype has a "lispClass":"cons" field and such "lispPackage":P field that the interned class name is COMMON-LISP:CONS, the rule D1 does not apply. Instead, Z shall be an alist whose conses' cars are the names and whose conses' cdrs are the respective values of the fields in X. The field names are interned in P, and the prototype field itself is omitted. (D7) If the prototype has a "lispClass":"hashTable" field and such "lispPackage":P field that the interned class name is COMMON-LISP:HASH-TABLE, the rule D1 does not apply. Instead, Z shall be a hash table whose keys are the names and whose values are the respective values of the fields in X. The field names are interned in P, and the prototype field itself is omitted. (D8) The value of null for any of the three fields of a prototype is equivalent to the field being absent. X lacking or having a null prototype is equivalent to the prototype having all null fields. §5. Conversely, when a CLOS object Z is encoded, the encoded JSON object X shall include a prototype reconstructed from Z per following rules: (E1) If the class of Z has a name, the prototype shall have a "lispClass":C field, where C is that name (it is assumed here and below that all names are converted to camel case). (E2) If the class of Z does not have a name, the prototype shall have a "lispSuperclasses":[C1,...,Cn] field, where C1,...,Cn are the names of that class's superclasses. (E3) If Z is an alist, the prototype shall have a "lispClass":"cons" field. (E4) If Z is a hash table, the prototype shall have a "lispClass":"hashTable" field. (E5) The prototype shall have a "lispPackage":P field, where P is the name of a package such that any one of the names C or C1,...,Cn, and any one of the names of the slots bound in Z, is a symbol (either direct or inherited) in the package. (Mutatis mutandis if Z is an alist or a hash table.) If there is no such package, P shall be an unspecific package name, and the program shall signal a warning condition. §6. Below are some examples of the modified decoder / encoder. I have marked the printout with double bars, and the result with =>. This is from an SBCL session; I have also tested the examples in OpenMCL. (IN-PACKAGE JSON) => #<PACKAGE "JSON"> (DECODE-JSON-FROM-STRING "{\"foo\":null,\"bar\":null}") => #<#<STANDARD-CLASS NIL {1268AC79}> {1268D979}> (DESCRIBE *) || #<#<STANDARD-CLASS NIL {1268AC79}> {1268D979}> || is an instance of class #<STANDARD-CLASS NIL {1268AC79}>. || The following slots have :INSTANCE allocation: || BAR NIL || FOO NIL (DESCRIBE (CLASS-OF **)) || #<STANDARD-CLASS NIL {1268AC79}> is a class. It is an instance of || STANDARD-CLASS. || It has no name (the name is NIL). || The direct superclasses are: (STANDARD-OBJECT), and the direct subclasses || are: (). || The class is finalized; its class precedence list is: || (#<STANDARD-CLASS NIL {1268AC79}> STANDARD-OBJECT SB-PCL::SLOT- OBJECT T). || There are 0 methods specialized for this class. (ENCODE-JSON-TO-STRING ***) => "{\"bar\":null,\"foo\":null,\"prototype\":{\"lispClass\":null, \"lispSuperclasses\":[\"standardObject\"],\"lispPackage\":\"json\"}}" (DESCRIBE (DECODE-JSON-FROM-STRING "{}")) || #<STANDARD-OBJECT {11D01F71}> || is an instance of class #<STANDARD-CLASS STANDARD-OBJECT>. (DEFSTRUCT FOO BAR BAZ) => FOO (ENCODE-JSON-TO-STRING (MAKE-FOO :BAR 10 :BAZ 20)) => "{\"bar\":10,\"baz\":20,\"prototype\":{\"lispClass\":\"foo\", \"lispSuperclasses\":null,\"lispPackage\":\"json\"}}" (DECODE-JSON-FROM-STRING *) => #S(FOO :BAR 10 :BAZ 20) (DECODE-JSON-FROM-STRING "{\"bar\":10,\"baz\":20,\"quux\":50,\"prototype\":{\"lispClass\": \"foo\",\"lispPackage\":\"json\"}}") => #S(FOO :BAR 10 :BAZ 20) (DECODE-JSON-FROM-STRING "{\"bar\":10,\"baz\":20,\"quux\":50,\"prototype\":{\"lispClass\": \"cons\",\"lispPackage\":\"json\"}}") => ((BAR . 10) (BAZ . 20) (QUUX . 50)) (MAPHASH (LAMBDA (K V) (PRINT K) (PRINT V)) (DECODE-JSON-FROM-STRING "{\"bar\":10,\"baz\":20,\"quux\":50,\"prototype\":{\"lispClass\": \"hashTable\",\"lispPackage\":\"json\"}}")) || || BAR || 10 || BAZ || 20 || QUUX || 50 => NIL §7. The following additional names are exported from the package JSON: *PROTOTYPE-NAME* special variable (default: JSON::PROTOTYPE) A symbol which determines the name of the prototype field in a JSON object and the name of a slot in a CLOS object which may hold prototype information. As a special case, if *PROTOTYPE-NAME* is NIL the encoder does not add a prototype field when encoding an object that misses a prototype slot or key, and the decoder does not search for or treat in a special manner a prototype field in the input. The latter behaviour results in the ``simple semantics'' of §3: (LET ((*PROTOTYPE-NAME* NIL)) (DECODE-JSON-FROM-STRING "{\"bar\":10,\"baz\":20,\"prototype\":{\"lispClass\":\"foo\", \"lispPackage\":\"json\"}}")) => #<#<STANDARD-CLASS NIL {12524FA1}> {125290A9}> (DESCRIBE *) || #<#<STANDARD-CLASS NIL {12524FA1}> {125290A9}> || is an instance of class #<STANDARD-CLASS NIL {12524FA1}>. || The following slots have :INSTANCE allocation: || BAR 10 || BAZ 20 || PROTOTYPE #<#<STANDARD-CLASS NIL {12521579}> {12524219}> (DESCRIBE (SLOT-VALUE ** 'PROTOTYPE)) || #<#<STANDARD-CLASS NIL {12521579}> {12524219}> || is an instance of class #<STANDARD-CLASS NIL {12521579}>. || The following slots have :INSTANCE allocation: || LISP-CLASS "foo" || LISP-PACKAGE "json" *JSON-ARRAY-TYPE* special variable (default: VECTOR) A type specifier which determines what type to coerce JSON arrays to. The default value has been chosen to cope with the kind of problem mentioned in §2. Thus, unless *JSON-ARRAY-TYPE* is set to LIST the value of (DECODE-JSON-FROM-STRING "[]") shall be #(), yielding "[]" when re-encoded. WITH-OLD-DECODER-SEMANTICS macro Ensures backward compatibility with the old CL-JSON decoder. It can be called as (WITH-OLD-DECODER-SEMANTICS FORM*) where FORMs are an implicit PROGN. FORMs are executed in an environment where JSON objects are invariably decoded to alists, JSON arrays to lists, array keys interned in the package KEYWORD, and array fields called ``prototype'' (or whatever is specified by *PROTOTYPE-NAME*) receive no special treatment. E.g.: (WITH-OLD-DECODER-SEMANTICS (DECODE-JSON-FROM-STRING "{\"bar\":10,\"baz\":20,\"prototype\":{\"lispSuperclasses\": [\"foo\",\"bar\"],\"lispPackage\":\"json\"}}")) => ((:BAR . 10) (:BAZ . 20) (:PROTOTYPE (:LISP-SUPERCLASSES "foo" "bar") (:LISP-PACKAGE . "json"))) *** Summary of patches *** Sun Dec 23 18:10:00 MSK 2007 boris.smilga(a)gmail.com * Added CLOS / MOP infrastructure. Sun Dec 23 18:13:34 MSK 2007 boris.smilga(a)gmail.com * Added decoding of objects to CLOS objects, hash tables or alists. Sun Dec 23 18:16:10 MSK 2007 boris.smilga(a)gmail.com * Added decoding of arrays to vectors or lists. Sun Dec 23 18:17:05 MSK 2007 boris.smilga(a)gmail.com * Added WITH-OLD-DECODER-SEMANTICS. Sun Dec 23 18:17:44 MSK 2007 boris.smilga(a)gmail.com * Added encoding of CLOS objects, and prototypes for alists and hash tables.

3 3

[cl-json-devel] Parsing JavaScript data
by Andrei Stebakov 10 Jun '08

10 Jun '08

I have a web page which has a JavaScript defining some data in a form: var Categories = [ {name:"Cat1 ", caption:escape("Category 1")}, {name:"Cat2 ", caption:escape("Category 2")} ]; var DB = new Object(); DB[Categories[0].name] = [ {name:escape("Item1"), item-num:8} ]; etc... When I try to parse it with cl-json (using decode-json-from-string), I got errors because it can't accept things like variable definitions. Can I use cl-json to create a CL data from the JS data I mentioned or I should use some other tool? Thank you, Andrew

2 4

[cl-json-devel] patch to support encoding plists
by Hans Hübner 19 Mar '08

19 Mar '08

Hi, I added plist encoding support to cl-json. Please consider my patch: http://bknr.net/trac/changeset/2749?format=diff&new=2749 Thanks, Hans

2 1

[cl-json-devel] Keyword arguments in json-rpc
by Sasha Kovar 21 Feb '08

21 Feb '08

Hi. Here is a patch to add support for calling json-rpc methods with keyword arguments in addition to the array style. One test is included. Hopefully you'll find it useful enough to add to the repo. The changes are pretty minimal, but if I've misunderstood something or you'd like it changed in some way, please let me know and I'll correct it. Thanks Henrik and everyone else for this work! Sasha

1 1

[cl-json-devel] Blast your ad to millions of blogs
by BlogBlaster＠common-lisp.net 05 Dec '07

05 Dec '07

1 0

[cl-json-devel] How would You like to divert 1000s of fresh new visitors daily.
by Instant＠common-lisp.net 04 Nov '07

04 Nov '07

Can you afford to lose 300,000 potential customers per year ? How would You like to divert 1000s of fresh, new visitors daily to Your web site or affiliate web site from Google, Yahoo, MSN and others At $0 cost to you...? ...iNSTANT BOOSTER diverts 1000s of fresh, new visitors daily to Your web site or affiliate web site from Google, Yahoo, MSN and others at $0 cost to you! ...No matter what you are selling or offering - INTSANT BOOSTER will pull in hordes of potential customers to your website - instantly! http://www.promote-busines.com/instantbooster/ http://www.promote-busines.com/remove/

1 0

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

02 Nov '07

Feed Blaster puts your ad right to the screens of millions in 15 Minutes ! More and more people are subscribing to feeds every day and there are millions who are already subscribed. Thus, your ad will reach a very broad range of potential customers with each use of Feed Blaster! Feed Blaster is the first & only submitter that can submit your ads to thousands of feeds within a few minutes! Post your ads where people read them! - What if you could place your ad into all these feeds ? Right, that would mean you would have millions of sites linking to your ad - and millions of users reading your message within minutes - and my idea actually works. http://www.promote-bz.net/feedblaster/ Unsubscribe http://www.promote-bz.net/remove/

1 0

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

28 Oct '07

1 0

[cl-json-devel] Bug in encode.lisp
by Chris Laux 24 Oct '07

24 Oct '07

Hi, I've only just started using cl-json, but kanji don't seem to be encoded properly, using the darcs version. The problem can be resolved by changing the following conditional (see diff below), so I'm guessing that's a bug? Thanks for making cl-json available btw. Cheers, Chris Laux 105c105 < ((> code #x1f) --- > ((<= code #x1f)

2 3

[cl-json-devel] How to get free quality visitors to your website?
by Hit-Booster＠common-lisp.net 24 Oct '07

24 Oct '07

1 0

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

20 Oct '07

1 0

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

17 Oct '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 14 Oct '07

14 Oct '07

1 0

[cl-json-devel] How to get free quality visitors to your website?
by Hit-Booster＠common-lisp.net 04 Oct '07

04 Oct '07

No Matter what you are selling - Hit-Booster will send targeted visitors to your website! 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 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 http://www.promote-biz.net/mg/ Unsubscribe webmaster(a)promote-biz.net

1 0

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

01 Oct '07

1 0

[cl-json-devel] How would You like to divert 1000s of fresh new visitors daily.
by Instant＠common-lisp.net 25 Sep '07

25 Sep '07

1 0

[cl-json-devel] Automatically create thousands of links to your website
by BlogBlaster＠common-lisp.net 24 Sep '07

24 Sep '07

1 0

[cl-json-devel] Hit-Booster will start sending hits to your website instantly at $0 cost to you!
by Hit-Booster＠common-lisp.net 22 Sep '07

22 Sep '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 Google＠common-lisp.net 21 Sep '07

21 Sep '07

1 0

[cl-json-devel] How would You like to divert 1000s of fresh new visitors daily.
by Instant＠common-lisp.net 19 Sep '07

19 Sep '07

1 0

[cl-json-devel] Automatically create thousands of links to your website
by BlogBlaster＠common-lisp.net 17 Sep '07

17 Sep '07

1 0

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

16 Sep '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 Google＠common-lisp.net 15 Sep '07

15 Sep '07

1 0

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

14 Sep '07

1 0

[cl-json-devel] Receive hundreds of targeted hits to your website every day from the links in the feeds!
by Feed＠common-lisp.net 13 Sep '07

13 Sep '07

1 0

[cl-json-devel] Automatically create thousands of links to your website
by BlogBlaster＠common-lisp.net 12 Sep '07

12 Sep '07

1 0

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

10 Sep '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 Google＠common-lisp.net 09 Sep '07

09 Sep '07

1 0

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

08 Sep '07

1 0

[cl-json-devel] Receive hundreds of targeted hits to your website every day from the links in the feeds!
by Feed＠common-lisp.net 07 Sep '07

07 Sep '07

1 0

[cl-json-devel] Automatically create thousands of links to your website
by BlogBlaster＠common-lisp.net 05 Sep '07

05 Sep '07

1 0

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

04 Sep '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 Google＠common-lisp.net 03 Sep '07

03 Sep '07

1 0

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

02 Sep '07

1 0

[cl-json-devel] Receive hundreds of targeted hits to your website every day from the links in the feeds!
by Feed＠common-lisp.net 01 Sep '07

01 Sep '07

1 0

[cl-json-devel] Automatically create thousands of links to your website
by BlogBlaster＠common-lisp.net 31 Aug '07

31 Aug '07

1 0

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

30 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 29 Aug '07

29 Aug '07

1 0

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

28 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 27 Aug '07

27 Aug '07

1 0

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

26 Aug '07

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

cl-json-devel