From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 7 Aug 2019 16:22:16 +0000 (+0100)
Subject: src/codegen-impl.lisp: Remove the `setf' writer for `codegen-functions'.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/c28b5656666659991b683a77ff9da62c2836d418

src/codegen-impl.lisp: Remove the `setf' writer for `codegen-functions'.

It's not used for anything, and I don't think I want to export it.
---

diff --git a/doc/SYMBOLS b/doc/SYMBOLS
index a4bcc69..4de0860 100644
--- a/doc/SYMBOLS
+++ b/doc/SYMBOLS
@@ -396,7 +396,7 @@ codegen-proto.lisp
   call-inst                                     class
   codegen-add-function                          generic
   codegen-build-function                        function
-  codegen-functions                             generic setf-generic
+  codegen-functions                             generic
   codegen-pop                                   generic
   codegen-pop-block                             generic
   codegen-pop-function                          generic
@@ -884,8 +884,6 @@ codegen-class
   method-codegen
 codegen-functions
   codegen
-(setf codegen-functions)
-  t codegen
 codegen-message
   method-codegen
 codegen-method
diff --git a/src/codegen-impl.lisp b/src/codegen-impl.lisp
index a74b304..ccc66a1 100644
--- a/src/codegen-impl.lisp
+++ b/src/codegen-impl.lisp
@@ -117,7 +117,7 @@ (defmethod ensure-var ((codegen basic-codegen) name type &optional init)
 
 (export 'codegen)
 (defclass codegen (basic-codegen)
-  ((functions :initform nil :type list :accessor codegen-functions)
+  ((functions :initform nil :type list :reader codegen-functions)
    (stack :initform nil :type list :accessor codegen-stack))
   (:documentation
    "A full-fat code generator which can generate and track functions.