Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6206/src/code
Modified Files:
defboot.lisp early-fasl.lisp
Log Message:
0.8.10.41:
Fix BUGS 280 and 312: no more bogus duplicate warning
definitions.
... it appears that one cannot distinguish between XEPs for the
various different purposes;
... and I don't propose to try to make it possible...
... so alternative strategy: make DEFUN check for it. Less
hi-tech, but also less broken.
... alter %COMPILER-DEFUN again to distinguish between
:COMPILE-TOPLEVEL uses and non-:CT.
... means another change in fasl file version.
... more test cases.
Index: defboot.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/defboot.lisp,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- defboot.lisp 18 May 2004 21:52:08 -0000 1.42
+++ defboot.lisp 20 May 2004 15:55:44 -0000 1.43
@@ -184,7 +184,7 @@
(cold-fset ,name ,lambda)
(eval-when (:compile-toplevel)
- (sb!c:%compiler-defun ',name ',inline-lambda))
+ (sb!c:%compiler-defun ',name ',inline-lambda t))
(eval-when (:load-toplevel :execute)
(%defun ',name
;; In normal compilation (not for cold load) this is
@@ -201,7 +201,7 @@
(declare (type function def))
(declare (type (or null simple-string) doc))
(aver (legal-fun-name-p name)) ; should've been checked by DEFMACRO DEFUN
- (sb!c:%compiler-defun name inline-lambda)
+ (sb!c:%compiler-defun name inline-lambda nil)
(when (fboundp name)
(/show0 "redefining NAME in %DEFUN")
(style-warn "redefining ~S in DEFUN" name))
Index: early-fasl.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/early-fasl.lisp,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- early-fasl.lisp 4 May 2004 17:25:58 -0000 1.44
+++ early-fasl.lisp 20 May 2004 15:55:49 -0000 1.45
@@ -76,7 +76,7 @@
;;; versions which break binary compatibility. But it certainly should
;;; be incremented for release versions which break binary
;;; compatibility.
-(def!constant +fasl-file-version+ 49)
+(def!constant +fasl-file-version+ 50)
;;; (record of versions before 2003 deleted in 2003-04-26/0.pre8.107 or so)
;;; 38: (2003-01-05) changed names of internal SORT machinery
;;; 39: (2003-02-20) in 0.7.12.1 a slot was added to
@@ -107,6 +107,7 @@
;;; microefficiency in sbcl-0.8.8.10
;;; 49: (2004-05-04) Changed implementation of DEFFOO macros and the
;;; functions they expand to.
+;;; 50: (2004-05-20) Changed %COMPILER-DEFUN signature again.
;;; the conventional file extension for our fasl files
(declaim (type simple-string *fasl-file-type*))
-------------------------------------------------------
This SF.Net email is sponsored by: Oracle 10g
Get certified on the hottest thing ever to hit the market... Oracle 10g.
Take an Oracle 10g class now, and we'll give you the exam FREE.
http://ads.osdn.com/?ad_id=3149&alloc_id=8166&op=click
|
