anchor.diff:                   (compile-time-report-wrap-failures)
                    ,(when *foreign-record-list*
                       `(export '(,@(mapcar (lambda (x) (etypecase x (symbol x) (cons (caadr x))))
  -                                         *foreign-record-list*))))
  +                                  *foreign-record-list*))))
                    ,(when *foreign-function-list*
                       `(export ',(mapcar (lambda (x) (intern (symbol-name x) function-package))
                                          *foreign-function-list*)
  
positive.code:     (let ((sym (foreign-type-symbol name :cextern *package*)))
        (push sym *foreign-extern-list*)
        `(define-foreign-extern ',sym ,name ',@(parse-type type (aval :tag type))))))
  
   ;; Exported API
  
negative.code:                  #+sbcl
                   (progn
                     (setf *foreign-record-index* (make-hash-table))
                     ,@(loop for form in (read-json in-h)
                             unless (or (included-p (aval :name form) exclude-definitions)
                                        (and (included-p (aval :location form) exclude-sources)
                                             (not (included-p (aval :location form) include-sources))))
  