Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv18532/src/code
Modified Files:
symbol.lisp
Removed Files:
late-symbol.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: symbol.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/symbol.lisp,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- symbol.lisp 2 Apr 2003 11:15:17 -0000 1.15
+++ symbol.lisp 8 May 2003 16:17:58 -0000 1.16
@@ -35,10 +35,8 @@
(about-to-modify-symbol-value symbol)
(%set-symbol-value symbol new-value))
-;;; can't do this yet, the appropriate vop only gets defined in
-;;; compiler/target/cell, 400 lines hence
-;;;(defun %set-symbol-value (symbol new-value)
-;;; (%set-symbol-value symbol new-value))
+(defun %set-symbol-value (symbol new-value)
+ (%set-symbol-value symbol new-value))
(defun makunbound (symbol)
#!+sb-doc
--- late-symbol.lisp DELETED ---
|