8f3d5c26b5
This is a new package that allows you to READ symbols in undefined packages such that they will print as if there had not been an error.
18 lines
2.1 KiB
Plaintext
18 lines
2.1 KiB
Plaintext
BROKEN-ATOMS
|
||
|
||
Herb Jellinek
|
||
April 8, 2026
|
||
|
||
(WITHOUT-BROKEN-ATOMS forms) [Macro]
|
||
|
||
Evaluate forms, handle XCL:MISSING-PACKAGE and XCL:MISSING-EXTERNAL-SYMBOL conditions signaled by reading "broken" symbols during execution, and replace symbols it fails to read with instances of the BROKEN-ATOM datatype. Returns the value of the final form.
|
||
|
||
BROKEN-ATOM [Datatype]
|
||
|
||
An object that holds data describing a symbol encountered by READ that refers to an undefined package. Instances print as if they're legal symbols.
|
||
|
||
(SEQUENCE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE NIL) (0 0 612 792) ((TEXT NIL NIL (72 72 468 648) NIL))) (ALTERNATE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE NIL) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD LEFT) CHARLOOKS (FAMILY MODERN SIZE 10 WEIGHT MEDIUM SLOPE REGULAR EXPANSION REGULAR INVERTED OFF UNDERLINE OFF STRIKEOUT OFF OVERLINE OFF UNBREAKABLE OFF COLOR BLACK STYLE NIL INVISIBLE OFF PROTECTED OFF SELECTPOINT OFF USERINFO NIL) FORMATINFO NIL) (72 756 288 36) NIL) (TEXT NIL NIL (72 72 468 648) NIL))) (PAGE NIL (PAPERSIZE NIL) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (FAMILY MODERN SIZE 10 WEIGHT MEDIUM SLOPE REGULAR EXPANSION REGULAR INVERTED OFF UNDERLINE OFF STRIKEOUT OFF OVERLINE OFF UNBREAKABLE OFF COLOR BLACK STYLE NIL INVISIBLE OFF PROTECTED OFF SELECTPOINT OFF USERINFO NIL) FORMATINFO NIL) (252 756 288 36) NIL) (TEXT NIL NIL (72 72 468 648) NIL))))))) 1 $ 1 $ . GACHA
|
||
(CHARPROPS (COLOR . BLACK)) . GACHA
|
||
(CHARPROPS (COLOR . BLACK)) 2 HELVETICA
|
||
(CHARPROPS (COLOR . BLACK)) . GACHA
|
||
(CHARPROPS (COLOR . BLACK)) 2 HELVETICA (CHARPROPS (COLOR . BLACK))
|
||
|
||
~ 1 = S (((CLEARGET) (CHARENCODING . MCCS)))PROPS: .DATE:k¢ÉÕ (zº |