0.pre7.77:

	removed slot accessor DEFUNs from macroexpansion of DEFSTRUCT
		(so that now %DEFSTRUCT-generated closures and
		%COMPILER-DEFSTRUCT-generated inline expanders
		do everything)

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 19ffc14..2b845ea 100644 (file)
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -489,7 +489,7 @@
                (%defstruct ',dd ',inherits)
                (/show0 "back from %DEFSTRUCT")
                ,@(unless expanding-into-code-for-xc-host-p
-                   (append (raw-accessor-definitions dd)
+                   (append #|(raw-accessor-definitions dd)|# ; REMOVEME
                            (predicate-definitions dd)
                            ;; FIXME: We've inherited from CMU CL nonparallel
                            ;; code for creating copiers for typed and untyped
@@ -550,6 +550,8 @@
 \f
 ;;;; functions to generate code for various parts of DEFSTRUCT definitions
 
+;;; REMOVEME: no longer used
+#|
 ;;; Return forms to define readers and writers for raw slots as inline
 ;;; functions.
 (defun raw-accessor-definitions (dd)
@@ -599,6 +601,7 @@
       `((/show0 "beginning RAW-ACCESSOR-DEFINITIONS forms")
        ,@(res)
        (/show0 "done with RAW-ACCESSOR-DEFINITIONS forms")))))
+|#
 
 ;;; Return a list of forms which create a predicate for an untyped DEFSTRUCT.
 (defun predicate-definitions (dd)

diff --git a/version.lisp-expr b/version.lisp-expr
index ca5e02d..686acf5 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; for internal versions, especially for internal versions off the
 ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.pre7.75"
+"0.pre7.77"