X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/4b8e5c0347115ff30841f1d1e71afe59ecb6c82c..bb80145308ea388d7c6ed5336c061340e78f66e8:/src/codegen-proto.lisp?ds=sidebyside

diff --git a/src/codegen-proto.lisp b/src/codegen-proto.lisp
index 535839c..6b1f947 100644
--- a/src/codegen-proto.lisp
+++ b/src/codegen-proto.lisp
@@ -55,18 +55,6 @@
   (:documentation
    "Base class for temporary variable and argument names."))
 
-;; Important variables.
-
-(defparameter *temporary-index* 0
-  "Index for temporary name generation.
-
-   This is automatically reset to zero before the output functions are
-   invoked to write a file.  This way, we can ensure that the same output
-   file is always produced from the same input.")
-
-(define-clear-the-decks reset-codegen-index
-  (setf *temporary-index* 0))
-
 ;; Important temporary names.
 
 (export '(*sod-ap* *sod-master-ap*))