From: William H. N. <wn...@us...> - 2003-04-17 22:51:29
|
Update of /cvsroot/sbcl/sbcl/src/pcl In directory sc8-pr-cvs1:/tmp/cvs-serv2807 Modified Files: braid.lisp Log Message: 0.pre8.68: Compile (COERCE FOO 'SIMPLE-VECTOR) to reasonably efficient code (no full call to %TYPEP) even when safe. made DESCRIBE work on structures again bug report for ROOM Index: braid.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/pcl/braid.lisp,v retrieving revision 1.32 retrieving revision 1.33 diff -u -d -r1.32 -r1.33 --- braid.lisp 17 Apr 2003 15:04:26 -0000 1.32 +++ braid.lisp 17 Apr 2003 22:51:26 -0000 1.33 @@ -547,7 +547,7 @@ :defstruct-accessor-symbol ,accessor ,@(when (fboundp accessor) `(:internal-reader-function - (structure-slotd-reader-function slotd) + ,(structure-slotd-reader-function slotd) :internal-writer-function ,(structure-slotd-writer-function slotd))) :type ,(or (structure-slotd-type slotd) t) |