Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv28206/src/code
Modified Files:
defstruct.lisp
Log Message:
0.7.10.22:
Fix obscure DEFSTRUCT :CONC-NAME handling bug, revealed by Paul
Dietz' ansi-tests
... :CONC-NAME NIL means something different from :CONC-NAME ""
Also some belated tests for extra COERCE logic
Index: defstruct.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/defstruct.lisp,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -d -r1.51 -r1.52
--- defstruct.lisp 14 Dec 2002 22:10:07 -0000 1.51
+++ defstruct.lisp 18 Dec 2002 16:41:47 -0000 1.52
@@ -626,7 +626,9 @@
(setf (dsd-%name slot) (string name))
(setf (dd-slots defstruct) (nconc (dd-slots defstruct) (list slot)))
- (let ((accessor-name (symbolicate (or (dd-conc-name defstruct) "") name))
+ (let ((accessor-name (if (dd-conc-name defstruct)
+ (symbolicate (dd-conc-name defstruct) name)
+ name))
(predicate-name (dd-predicate-name defstruct)))
(setf (dsd-accessor-name slot) accessor-name)
(when (eql accessor-name predicate-name)
|