X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/3f4ac959a30787a952451c672e6e97d4469631a9..c2438e62e7c3cf1b7006522cef61e8c6f797600b:/src/codegen-proto.lisp?ds=inline

diff --git a/src/codegen-proto.lisp b/src/codegen-proto.lisp
index f6cd4bd..e947a72 100644
--- a/src/codegen-proto.lisp
+++ b/src/codegen-proto.lisp
@@ -74,6 +74,8 @@ (defparameter *sod-ap*
   (make-instance 'temporary-name :tag "sod__ap"))
 (defparameter *sod-master-ap*
   (make-instance 'temporary-name :tag "sod__master_ap"))
+(defparameter *sod-tmp-ap*
+  (make-instance 'temporary-name :tag "sod__tmp_ap"))
 
 ;;;--------------------------------------------------------------------------
 ;;; Instructions.