Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1:/tmp/cvs-serv8040
Modified Files:
BUGS version.lisp-expr
Log Message:
0.8.3.73:
* DELETE-LAMBDA: delete also contained lambdas.
Index: BUGS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/BUGS,v
retrieving revision 1.349
retrieving revision 1.350
diff -u -d -r1.349 -r1.350
--- BUGS 16 Sep 2003 07:45:06 -0000 1.349
+++ BUGS 17 Sep 2003 06:45:45 -0000 1.350
@@ -1256,36 +1256,14 @@
the control word; however, this clobbers any change the user might
have made.
-291: "bugs in deletion of embedded functions"
-
- Python fails to compile (simplified version of the problem reported
- by Nikodemus Siivola)
-
- (defstruct (line)
- (%chars ""))
-
- (defun update-window-imag (line)
- (tagbody
- TOP
- (if (null line)
- (go DONE)
- (go TOP))
- DONE
- (unless (eq current the-sentinel)
- (let* ((cc (car current))
- (old-line (dis-line-line cc)))
- (if (eq old-line line)
- (do ((chars (line-%chars line) nil)) ; <LET>
- (())
- (let* ()
- (multiple-value-call
- #'(lambda (&optional g2740 g2741 &rest g2742)
- (declare (ignore g2742))
- (catch 'foo ; <CLEANUP>
- (values (setq string g2740) (setq underhang g2741))))
- (foo)))
- (setf (dis-line-old-chars cc) chars)))))))
-
- Compiler deletes unreachable BIND node of <LET>, but its body,
- including reference to the variable CHARS, remains reachable through
- NLX from <CLEANUP>.
+292:
+ (COMPILE NIL
+ `(LAMBDA (C)
+ (DECLARE (TYPE (INTEGER -5945502333 12668542) C)
+ (OPTIMIZE (SPEED 3)))
+ (LET ((V2 (* C 12)))
+ (- (MAX (IF (/= 109335113 V2) -26479 V2)
+ (DEPOSIT-FIELD 311
+ (BYTE 14 28)
+ (MIN (MAX 521326 C) -51)))))))
+ causes compiler failure (reported by Paul Dietz).
Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.1257
retrieving revision 1.1258
diff -u -d -r1.1257 -r1.1258
--- version.lisp-expr 16 Sep 2003 12:07:39 -0000 1.1257
+++ version.lisp-expr 17 Sep 2003 06:45:45 -0000 1.1258
@@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.3.72"
+"0.8.3.73"
|