0.7.8.53:

	new BUGS entry
	added draft of LIST-LENGTH-OR-DIE (commented out) since I was
		at one point thinking of actually addressing CSR's
		point about sequence function arg checking

diff --git a/BUGS b/BUGS
index 192db18..385b8a1 100644 (file)
--- a/BUGS
+++ b/BUGS
@@ -1347,6 +1347,13 @@ WORKAROUND:
      WARNING for calls with both :TEST and :TEST-NOT; possibly this
      latter should be WARNed about at execute-time too.
 
+216: "debugger confused by frames with invalid number of arguments"
+  In sbcl-0.7.8.51, executing e.g. (VECTOR-PUSH-EXTEND T), BACKTRACE, Q
+  leaves the system confused, enough so that (QUIT) no longer works.
+  It's as though the process of working with the uninitialized slot in
+  the bad VECTOR-PUSH-EXTEND frame causes GC problems, though that may
+  not be the actual problem. (CMU CL 18c doesn't have problems with this.)
+
 DEFUNCT CATEGORIES OF BUGS
   IR1-#:
     These labels were used for bugs related to the old IR1 interpreter.

diff --git a/src/code/late-extensions.lisp b/src/code/late-extensions.lisp
index 4f1ffd0..4b71114 100644 (file)
--- a/src/code/late-extensions.lisp
+++ b/src/code/late-extensions.lisp
@@ -19,3 +19,19 @@
 ;;; not improper and which is not circular?
 (defun list-with-length-p (x)
   (values (ignore-errors (list-length x))))
+
+;;; not used in 0.7.8, but possibly useful for defensive programming 
+;;; in e.g. (COERCE ... 'VECTOR)
+;;;(defun list-length-or-die (x)
+;;;  (or (list-length x)
+;;;      ;; not clear how to do this best:
+;;;      ;;   * Should this be a TYPE-ERROR? Colloquially that'd make 
+;;;      ;;     lots of sense, but since I'm not sure how to express
+;;;      ;;     "noncircular list" as a Lisp type expression, coding
+;;;      ;;     it seems awkward.
+;;;      ;;   * Should the ERROR object include the offending value?
+;;;      ;;     Ordinarily that's helpful, but if the user doesn't have
+;;;      ;;     his printer set up to deal with cyclicity, we might not
+;;;      ;;     be doing him a favor by printing the object here.
+;;;      ;; -- WHN 2002-10-19
+;;;      (error "can't calculate length of cyclic list")))

diff --git a/version.lisp-expr b/version.lisp-expr
index 6fc150c..b66d2ba 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.8.52"
+"0.7.8.53"