From: Christophe R. <cr...@us...> - 2003-05-08 16:18:32
|
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 --- |