Merge pull request #9 from rpgoldman/symbolics-genera

Rebased copy of original MR.
sharplispers · May 3, 2022 · 2ce9474 · 2ce9474
2 parents fbb1dd9 + 20bc1ec
commit 2ce9474
Show file tree

Hide file tree

Showing 15 changed files with 19 additions and 3 deletions.
diff --git a/cl-json.asd b/cl-json.asd
@@ -1,4 +1,4 @@
-;;; -*- lisp -*-
+;;; -*- Mode: LISP; Syntax: ANSI-COMMON-LISP; Base: 10 -*-
 ;;; Copyright (c) 2006-2012 Henrik Hjelte
 ;;; Copyright (c) 2008 Hans Hübner (code from the program YASON)
 ;;; All rights reserved.
@@ -15,7 +15,7 @@
 
 #-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)
+  #+(or mcl openmcl cmu sbcl clisp ecl scl lispworks allegro abcl genera)
   (pushnew :cl-json-clos *features*))
 
 (defsystem :cl-json

diff --git a/src/camel-case.lisp b/src/camel-case.lisp
@@ -1,3 +1,4 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-COMMON-LISP; Base: 10; Package: JSON -*-
 ;;;; Copyright (c) 2006-2008 Henrik Hjelte
 ;;;; All rights reserved.
 ;;;; See the file LICENSE for terms of use and distribution.

diff --git a/src/common.lisp b/src/common.lisp
@@ -1,3 +1,4 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-COMMON-LISP; Base: 10; Package: JSON -*-
 ;;;; Copyright (c) 2006-2008 Henrik Hjelte
 ;;;; All rights reserved.
 ;;;; See the file LICENSE for terms of use and distribution.

diff --git a/src/decoder-args.lisp b/src/decoder-args.lisp
@@ -1,3 +1,4 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-COMMON-LISP; Base: 10; Package: JSON -*-
 (in-package :json)
 
 ;;; Custom variables

diff --git a/src/decoder.lisp b/src/decoder.lisp
@@ -1,3 +1,4 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-COMMON-LISP; Base: 10; Package: JSON -*-
 ;;;; Copyright (c) 2006-2008 Henrik Hjelte
 ;;;; All rights reserved.
 ;;;; See the file LICENSE for terms of use and distribution.

diff --git a/src/encoder.lisp b/src/encoder.lisp
@@ -1,3 +1,4 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-COMMON-LISP; Base: 10; Package: JSON -*-
 ;;;; Copyright (c) 2006-2008 Henrik Hjelte
 ;;;; Copyright (c) 2008 Hans Hübner (marked parts)
 ;;;; All rights reserved.

diff --git a/src/json-rpc.lisp b/src/json-rpc.lisp
@@ -1,3 +1,4 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-COMMON-LISP; Base: 10 ; Package: JSON-RPC -*-
 ;;;; Copyright (c) 2006-2008 Henrik Hjelte
 ;;;; Modifications copyright (c) 2009 by Robert P. Goldman and SIFT, LLC.
 ;;;; All rights reserved.

diff --git a/src/objects.lisp b/src/objects.lisp
@@ -1,3 +1,4 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-COMMON-LISP; Base: 10; Package: JSON -*-
 ;;;; Copyright (c) 2006-2008 Henrik Hjelte
 ;;;; All rights reserved.
 ;;;; See the file LICENSE for terms of use and distribution.

diff --git a/src/package.lisp b/src/package.lisp
@@ -1,3 +1,4 @@
+;;;; -*- Mode: LISP; Base: 10; Syntax: ANSI-Common-lisp; Package: CL-USER -*-
 ;;;; Copyright (c) 2006-2008 Henrik Hjelte
 ;;;; All rights reserved.
 ;;;; See the file LICENSE for terms of use and distribution.
@@ -105,6 +106,7 @@
                 #+sbcl #:sb-mop
                 #+(or clisp ecl scl lispworks) #:clos
                 #+(or allegro abcl) #:mop
+		#+genera #:clos-internals
     #:class-slots
     #:class-direct-slots
     #:class-direct-superclasses
@@ -114,6 +116,7 @@
     #:validate-superclass
     #:class-precedence-list
     #:compute-class-precedence-list
+    #:ensure-class
     #:finalize-inheritance
     ))
 

diff --git a/src/utils.lisp b/src/utils.lisp
@@ -1,3 +1,4 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-COMMON-LISP; Base: 10; Package: JSON -*-
 ;;;; Copyright (c) 2006-2008 Henrik Hjelte
 ;;;; All rights reserved.
 ;;;; See the file LICENSE for terms of use and distribution.

diff --git a/t/package.lisp b/t/package.lisp
@@ -6,6 +6,7 @@
                 #+sbcl #:sb-mop
                 #+(or clisp ecl scl lispworks) #:clos
                 #+(or allegro abcl) #:mop
+		#+genera #:clos-internals
     #:finalize-inheritance))
 
 (in-package :json-test)

diff --git a/t/testdecoder.lisp b/t/testdecoder.lisp
@@ -1,3 +1,4 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-COMMON-LISP; Base:10; Package: JSON-TEST -*-
 (in-package :json-test)
 
 (in-suite json)

diff --git a/t/testencoder.lisp b/t/testencoder.lisp
@@ -1,3 +1,4 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-COMMON-LISP; Base:10; Package: JSON-TEST -*-
 (in-package :json-test)
 (in-suite json)
 

diff --git a/t/testjson.lisp b/t/testjson.lisp
@@ -1,2 +1,3 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-COMMON-LISP; Base:10; Package: JSON-TEST -*-
 (in-package :json-test)
-(run! 'json)
+(run! 'json)
diff --git a/t/testmisc.lisp b/t/testmisc.lisp
@@ -1,3 +1,4 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-COMMON-LISP; Base:10; Package: JSON-TEST -*-
 (in-package :json-test)
 (in-suite json)