anchor.diff:  
   ;; Keyword arguments
   
  -(assert-eqll (funcall (lambda (&key k) k) k: 1) 1)
  -(assert-eql (funcall (lambda (&key k) k)) null)
  +(assert-eql (funcall (lambda (&key k) k) k: 1) 1)
  +(assert-eq (funcall (lambda (&key k) k)) null)
   (assert-eql (funcall (lambda (a &key k) k) 10 k: 1) 1)
  -(assert-eql (funcall (lambda (a &key k) k) 10) null)
  +(assert-eq (funcall (lambda (a &key k) k) 10) null)
   (assert-eql (funcall (lambda (a &key k) a) 10 k: 1) 10)
   (assert-eql (funcall (lambda (a &key k) a) 10) 10)
   
   (assert-eql (funcall (lambda (&key k j) k) k: 1) 1)
  -(assert-eql (funcall (lambda (&key k j) j) k: 1) null)
  -(assert-eql (funcall (lambda (&key k j) k)) null)
  -(assert-eql (funcall (lambda (&key k j) j)) null)
  -(assert-eql (funcall (lambda (a &key k j) j) 10 k: 1) null)
  +(assert-eq (funcall (lambda (&key k j) j) k: 1) null)
  +(assert-eq (funcall (lambda (&key k j) k)) null)
  +(assert-eq (funcall (lambda (&key k j) j)) null)
  +(assert-eq (funcall (lambda (a &key k j) j) 10 k: 1) null)
   (assert-eql (funcall (lambda (a &key k j) j) 10 j: 1) 1)
  -(assert-eql (funcall (lambda (a &key k j) j) 10) null)
  +(assert-eq (funcall (lambda (a &key k j) j) 10) null)
   (assert-eql (funcall (lambda (a &key k j) a) 10 k: 1) 10)
   (assert-eql (funcall (lambda (a &key k j) a) 10 j: 1) 10)
   (assert-eql (funcall (lambda (a &key k j) a) 10) 10)
  
positive.code: (defvar lisp-x 2)
  (assert-eql 12 {% ~lisp-x + 10 %})
  (assert-eql 6 {% ~(+ lisp-x {% 2 * ~lisp-x %}) %})
  (assert-eql "%" {% "%" %})
  
  ;; map
  
  
negative.code: 
  (defclass <foo>)
  (defvar foo (<foo>))
  (assert-eq (slot foo "slot1") null)
  (assert-eq (slot foo "slot2") null)
  (set-slot foo "slot1" 1)
  (assert-eql (slot foo "slot1") 1)
  (assert-eq (slot foo "slot2") null)
  (set-slot foo "slot1" null)
  (assert-eq (slot foo "slot1") null)
  (assert-eq (slot foo "slot2") null)
  
  (assert (has-slot foo "slot1"))
  (assert (not (has-slot foo "slot2")))
  
  (defclass <z> (a b c))
  (defvar z (<z>))
  (assert-eq (.a z) null)
  (assert-eq (.b z) null)
  (assert-eq (.c z) null)
  (set (.a z) 1)
  (set (.b z) 2)
  (set (.c z) 3)
  