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:                  #+sbcl
                   (progn
                     (setf *foreign-record-index* (make-hash-table))
                     ,@(loop for form in (json:decode-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))))
  
negative.code:                              collect (parse-form form (aval :tag form)))
                     (setf *foreign-record-index* nil))
                   ,@(when constant-accessor
                       `((setf ,constant-name-value-map (make-hash-table :test 'equal :size ,(length *foreign-constant-list*)))
                         (loop for (name . value) in ',*foreign-raw-constant-list*
                               do
                                  (setf (gethash name ,constant-name-value-map) value))))
                   ,@(loop for record in (reverse *foreign-record-list*)
                           collect `(define-wrapper ,record ,wrapper-package))
                   ,@(loop for alias in (reverse *foreign-alias-list*)
  