Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
57 lines (46 sloc) 2.447 kb
;;; -*- lisp -*-
;;; Copyright (c) 2006-2012 Henrik Hjelte
;;; Copyright (c) 2008 Hans Hübner (code from the program YASON)
;;; All rights reserved.
;;; See the file LICENSE for terms of use and distribution.
(in-package #:cl-user)
(defpackage #:json-system
(:use #:cl #:asdf))
(in-package #:json-system)
(pushnew :cl-json *features*)
#-no-cl-json-clos ;; Does not work with SBCL 1.0.17, this is a way to turn it off
(progn
#+(or mcl openmcl cmu sbcl clisp ecl scl lispworks allegro abcl)
(pushnew :cl-json-clos *features*))
(defsystem :cl-json
:name "cl-json"
:description "JSON in Lisp. JSON (JavaScript Object Notation) is a lightweight data-interchange format."
:version "0.5.0"
:maintainer "Henrik Hjelte <henrik@henrikhjelte.com>"
:licence "MIT"
:in-order-to ((test-op (test-op "cl-json.test")))
:components ((:static-file "cl-json.asd")
(:module :src
:components ((:file "package")
(:file "common" :depends-on ("package"))
#+cl-json-clos
(:file "objects" :depends-on ("package"))
(:file "camel-case" :depends-on ("package"))
(:file "decoder" :depends-on ("common" #+cl-json-clos "objects" "camel-case"))
(:file "encoder" :depends-on ("common" #+cl-json-clos "objects" "camel-case"))
(:file "utils" :depends-on ("decoder" "encoder"))
(:file "json-rpc" :depends-on ("package" "common" "utils" "encoder" "decoder"))))))
(defsystem :cl-json.test
:depends-on (:cl-json :fiveam )
;; newer ASDF versions have this implicitly, but I know of no good way to detect this. [2010/01/02:rpg]
:in-order-to ((test-op (load-op "cl-json.test")))
:components ((:module :t
:components ((:file "package")
(:file "testmisc" :depends-on ("package" "testdecoder" "testencoder"))
(:file "testdecoder" :depends-on ("package"))
(:file "testencoder" :depends-on ("package"))))))
(defmethod perform ((op test-op) (c (eql (find-system :cl-json.test))))
(funcall (intern (symbol-name '#:run!) :it.bese.FiveAM)
(intern (symbol-name '#:json) :json-test)))
(defparameter *cl-json-directory*
(make-pathname :directory (pathname-directory *load-truename*)))
Jump to Line
Something went wrong with that request. Please try again.