Update of /cvsroot/sbcl/sbcl/src/compiler/x86
In directory sc8-pr-cvs1:/tmp/cvs-serv18532/src/compiler/x86
Modified Files:
cell.lisp
Log Message:
0.8alpha.0.21:
The "uh, I thought we had users beta-testing for us" release:
Make SETQ on globals return a value (and IN-PACKAGE, and ...)
... the SET VOP and the %SET-SYMBOL-VALUE IR2 thingy are
different, so one shouldn't translate the other;
... instead, create an IR2 translator for %SET-SYMBOL-VALUE by
hand, mimicking the effect of :SET-TRANS in
DEFINE-PRIMITIVE-OBJECT;
... this removes the need for late-symbol.lisp, so delete it.
While we're in a deleting mood...
... delete src/pcl/fast-init.lisp, which hasn't been part of the
build for the last 5 months or so.
Index: cell.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/cell.lisp,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- cell.lisp 22 Apr 2003 14:58:33 -0000 1.13
+++ cell.lisp 8 May 2003 16:17:59 -0000 1.14
@@ -63,8 +63,7 @@
(define-vop (set)
(:args (symbol :scs (descriptor-reg))
(value :scs (descriptor-reg any-reg)))
- (:translate sb!kernel:%set-symbol-value)
- (:temporary (:sc descriptor-reg ) tls)
+ (:temporary (:sc descriptor-reg) tls)
;;(:policy :fast-safe)
(:generator 4
(let ((global-val (gen-label))
|