2 (in-package :m68k-assembler
)
5 (defvar *defining-macro-p
* nil
)
6 (defvar *defining-rept-p
* nil
)
7 (defvar *defining-conditional-compilation-p
* nil
)
8 (defvar *macro-buffer
*)
10 (defvar *source-position
*)
11 (defvar *last-label
* nil
"Last label seen by the assembler. This is
12 used for generating the prefix for local labels.")
13 (defvar *backpatch-list
* nil
)
15 (defvar *defining-relocations-p
* nil
)
17 (defvar *sections
* nil
)
18 (defvar *current-section
* nil
"Current section we're assembling in.")
19 ;; Things bound by new section.
20 (defvar *object-stream
* nil
"Stream to object data.")
21 (defvar *program-counter
* nil
"Program counter of current section.")
22 (defvar *relocation-table
* nil
"Relocations, indexed by PC.")