Notes for debugging local-file-system: -dg # is a FILE NAME: "TMPFIL8455" LOCK: NIL MAP: # FILES: NIL TYPE: "TEXT" VERSION: 3 DEFAULT-BYTE-SIZE: 8 OVERWRITE-FILE: NIL AUTHOR-INTERNAL: "dg" CREATION-DATE-INTERNAL: 2719529893 DIRECTORY: # OPEN-COUNT: -1 ATTRIBUTES: 0 PLIST: NIL TMPFIL8455 TEXT dg ";% ;;; A directory is a list of directory entries that describe files. ;;; ;;; ;;; ;;; [VERSION][BYTESIZE(1 BYTE)] ;;; ;;; [CREATION-DATE(4 bytes)] ;;; {MAP} ;;; [ATTRIBUTES(2 BYTES)] ;;; {PROPERTY-LIST} ;;; A {MAP} is a description of what blocks make up a file. ;;; It is of the form [LENGTH(2 BYTES)][LOCATION0][SIZE0][LOCATION1][SIZE1] ... ;;; The LOCATION is in BLOCKS (1024 bytes) and the SIZE is in BITS. ;;; The {PROPERTY-LIST} is ;;; [NUMBER-OF-ENTRIES(1 BYTE)]{STRING}{ENTRY} .... ;;; A {STRING} is [LENGTH(1 BYTE)] ;;; An {ENTRY} is [OPCODE(1 BYTE)]{optional-opcode-dependant} ;;; Opcodes are: ;;; 0 = false, no optional ;;; 1 = true, no optional ;;; 2 {STRING} keyword symbol ;;; 3 {STRING}{STRING} symbol name and package ;;; 4 [INTEGER] 3 bytes of course. ;;; 5 {STRING} a string ;;; 6 {READ} Must use lisp READ. ;;; 7 {READ} Must use lisp READ.