anchor.diff:            (content-json (if content
                               (encode-json-to-string content)
                               "{}")))
  -      (let ((sig (if key
  -                     (message-signing key (list header-json parent-header-json metadata-json content-json))
  -                     "")))
  +      (let ((sig (if key  (message-signing key 
  +        (list header-json parent-header-json metadata-json content-json)) "")))
           (append identities
                   (list +WIRE-IDS-MSG-DELIMITER+
                         sig
  
positive.code: 
  (in-package #:cl-jupyter)
  
  ;;;+NEW
  (defparameter ax-tokens
  '("AND" "Aleph" "An" "And" "B1solve"  "BY"  "BasicMethod"  "Beta"  "BumInSepFFE"
  "Chi" "Ci" "D" "Delta" "DiffAction" "DiffC" "EQ" "EXPRR2F"  "Ei"  "F"  "F2EXPRR"
  
negative.code: (defun parse-json-number-decimal-part (input)
    (concatenate 'string "." (parse-json-digits input)))
  
  
  (defun parse-json-number-exponent-part (exp input)
    (let ((exponent exp))
      (let ((char (peek-char nil input nil :eof)))
        (cond ((eql char #\+) (read-char input) 
           (setf exponent (concatenate 'string exponent "+")))
  	    ((eql char #\-) (read-char input) (setf exponent 
  	      (concatenate 'string exponent "-")))
  	    ((and (characterp char)
  		  (char>= char #\0) 
  		  (char<= char #\9)) (read-char input) 
  		  (setf exponent (concatenate 'string exponent (format nil "~A" char))))
  	    (t (error 'json-parse-error :message 
  	       (format nil "Missing exponent digit(s) or sign, found: ~A" char)))))
      (concatenate 'string exponent (parse-json-digits input))))
  
  
  