anchor.diff:    ;; symbol macrolet form.
     (test symbol-macrolet-scope
       (finishes
  -      (eval
  +      (eval*
          '(let ((xy (cons 'x 'y)))
            (local
              (symbol-macrolet ((x (car xy)))
  
positive.code: (defun a-list-of (len fn)
    (lambda ()
      (map-into (make-list len) fn)))
  
  (def-suite serapeum)
  (in-suite serapeum)
  
negative.code:                  (m)))))
  
      (signals error
        (eval*
         '(let (x)
           (flet ((m () 1))
             (local
  