Browse code
bug: fix bin-parser
Showing 1 changed files
... | ... |
@@ -1,6 +1,7 @@ |
1 | 1 |
(uiop:define-package :fwoar.bin-parser |
2 | 2 |
(:use :cl) |
3 | 3 |
(:mix :fw.lu :alexandria :serapeum) |
4 |
+ (:import-from :serapeum :op) |
|
4 | 5 |
(:export :le->int :be->int |
5 | 6 |
:read-bytes :extract |
6 | 7 |
:extract-let :byte-array-to-hex-string |
... | ... |
@@ -76,7 +77,7 @@ the element-type of the returned string." |
76 | 77 |
(append (when (and size (symbolp size)) |
77 | 78 |
(unsplice |
78 | 79 |
(list* name size other))) |
79 |
- rest))))) |
|
80 |
+ rest))))) |
|
80 | 81 |
|
81 | 82 |
(defun resolve-sizes (desc extant-bindings) |
82 | 83 |
(declare (optimize (debug 3))) |