don't store class-key, store key

nixeagle · Jan 30, 2010 · e63c6cb · e63c6cb
1 parent 80e68d8
commit e63c6cb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/json.lisp b/json.lisp
@@ -47,7 +47,7 @@ ALIST. Hash table is initialized using the HASH-TABLE-INITARGS."
       (if (and (not *current-prototype*)
                class-key)
           (progn (setq json::*accumulator-last*
-                       (setf (cdr json::*accumulator-last*) (cons (cons class-key nil) nil)))
+                       (setf (cdr json::*accumulator-last*) (cons (cons key nil) nil)))
                  (setq *current-prototype* class-key)
                  #+ () (pushnew (cons "PROTOTYPE" key) (cddr json::*accumulator*))
                  (setq json::*prototype* class-key))