From c41d75f1d2defd6234e644ef2b40440a5d1526c5 Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Tue, 22 Oct 2002 13:26:10 +0000 Subject: [PATCH] 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 --- BUGS | 7 +++++++ src/code/late-extensions.lisp | 16 ++++++++++++++++ version.lisp-expr | 2 +- 3 files changed, 24 insertions(+), 1 deletion(-) diff --git a/BUGS b/BUGS index 192db18..385b8a1 100644 --- 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 --- 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 --- 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" -- 1.7.10.4