From: William Harold Newman <william.newman@airmail.net>
Date: Thu, 1 Nov 2001 00:11:47 +0000 (+0000)
Subject: 0.pre7.77:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9e46fdf3e23a48e1c88ee33d20ca977c45fa5b1a;p=sbcl.git

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
--- 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 @@
 
 ;;;; 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
--- 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"