Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2657/src/pcl
Propagate type information for funcallable-standard-class
instances in instance-writer too.
... fixes the fail/sv/gf case (compiled slot-value inside
a generic function)
... probably doesn't fix subclasses with hairy intersection
... doesn't fix the compiled use of slot-value outside
methods, which uses the (SLOT-ACCESSOR :GLOBAL ...
WRITER) generic function.
RCS file: /cvsroot/sbcl/sbcl/src/pcl/vector.lisp,v
retrieving revision 22.214.171.124
retrieving revision 126.96.36.199
diff -u -d -r188.8.131.52 -r184.108.40.206
--- vector.lisp 24 Nov 2005 14:30:31 -0000 220.127.116.11
+++ vector.lisp 24 Nov 2005 17:09:40 -0000 18.104.22.168
@@ -741,7 +741,8 @@
,(if (and (eq *boot-state* 'complete)
- (standard-class-p (eval class))
+ (or (standard-class-p (eval class))
+ (funcallable-standard-class-p (eval class)))
(not (eq (eval class) *the-class-t*)))
(let ((slotd (find-slot-definition (eval class) (eval slot-name))))
(or (not slotd)
Sign up for the SourceForge newsletter: