anchor.diff:    (incf bytes-seen)
     ;; 8
     (unless (eql bytes-seen bytes-needed)
  -    (%return '%continue))
  +    (%return-continue))
     ;; 9
     (let ((/code-point/ code-point))
       ;; 10
  
positive.code:   (let ((variables (mapcar #'car state))
          (handler-name (intern (format nil "~A-HANDLER" name) (symbol-package name))))
      `(progn
         ,(with-gensyms (status /code-point/ unread-byte)
            `(defun ,handler-name (%eofp %byte ,@variables &aux ,unread-byte)
               (flet ((%return (,status &optional (,/code-point/ 0))
                        (return-from ,handler-name (values ,/code-point/
                                                           ,status
                                                           ,unread-byte
                                                           ,@variables)))
                      (%unread-byte ()
                        (setf ,unread-byte %byte)))
                 ,@body)))
         ,(with-gensyms (bytes returned-code-point status unread-byte decode-1 eofp byte i)
            `(defun ,name (,bytes)
               (let ((,returned-code-point)
                     (,status)
                     (,unread-byte)
                     ,@state)
                 (flet ((,decode-1 (,eofp ,byte)
                          (multiple-value-setq
                              (,returned-code-point ,status ,unread-byte ,@variables)
                            (,handler-name ,eofp ,byte ,@variables)))
                        (,returned-code-point (,byte)
                          (case ,status
                            (%code-point ,returned-code-point)
                            (otherwise
                             (list ,byte ,status ,unread-byte
                                   (list ,@variables))))))
                   (loop :for ,byte :across ,bytes
                         :for ,i :downfrom (1- (length ,bytes))
  
negative.code:           lower-boundary  #x80
            upper-boundary  #xBF)
      (%unread-byte)
      (%return-error :invalid-second-byte))
    ;; 5
    (setf lower-boundary  #x80
          upper-boundary  #xBF)
  