- (ei-magic nil :binary-type
- (define-binary-struct ei-magic ()
- (ei-mag0 0 :binary-type u8)
- (ei-mag1 #\null :binary-type char8)
- (ei-mag2 #\null :binary-type char8)
- (ei-mag3 #\null :binary-type char8)))
- (ei-class nil :binary-type
- (define-enum ei-class (u8)
- elf-class-none 0
- elf-class-32 1
- elf-class-64 2))
- (ei-data nil :binary-type
- (define-enum ei-data (u8)
- elf-data-none 0
- elf-data-2lsb 1
- elf-data-2msb 2))
- (ei-version 0 :binary-type u8)
- (padding nil :binary-type 1)
- (ei-name "" :binary-type
- (define-null-terminated-string ei-name 8))))
+ (ei-magic nil :binary-type
+ (define-binary-struct ei-magic ()
+ (ei-mag0 0 :binary-type u8)
+ (ei-mag1 #\null :binary-type char8)
+ (ei-mag2 #\null :binary-type char8)
+ (ei-mag3 #\null :binary-type char8)))
+ (ei-class nil :binary-type
+ (define-enum ei-class (u8)
+ elf-class-none 0
+ elf-class-32 1
+ elf-class-64 2))
+ (ei-data nil :binary-type
+ (define-enum ei-data (u8)
+ elf-data-none 0
+ elf-data-2lsb 1
+ elf-data-2msb 2))
+ (ei-version 0 :binary-type u8)
+ (padding nil :binary-type 1)
+ (ei-name "" :binary-type
+ (define-null-terminated-string ei-name 8))))