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 a4bcc6973d5f8690dff206a5e15654038d4b291a..4de08601f23e2da34a28983bd42a20a0957ac483 100644 (file)
--- 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 a74b30417a32601b520312659e6a9381e2c9f387..ccc66a10d2483b816a3a04dffc4c1bfbe858ce51 100644 (file)
--- 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.