(emchat-v8-ctx-proc data) 'emchat-v8-proc-filter-accumulator)
(unwind-protect
- (progn
- (let ((bb (emchat-v8-fetch-byte data)))
- (unless (= bb #x2A)
- (error "Unexpected data while fetching FLAP")))
-
- (let* ((cin (emchat-v8-fetch-byte data))
- (seq (emchat-v8-fetch-word data))
- (flen (emchat-v8-fetch-word data))
- (fdata (emchat-v8-fetch-data data flen)))
- (list cin seq fdata)))
-
+ (let ((bb (emchat-v8-fetch-byte data)))
+ (if (not (= bb #x2A))
+ (emchat-v8-debug "Unexpected data while fetching FLAP: %S" bb)
+ (let* ((cin (emchat-v8-fetch-byte data))
+ (seq (emchat-v8-fetch-word data))
+ (flen (emchat-v8-fetch-word data))
+ (fdata (emchat-v8-fetch-data data flen)))
+ (list cin seq fdata))))
+ ;; unwind form
(set-process-filter
(emchat-v8-ctx-proc data) 'emchat-v8-proc-filter-proccessing)))