From 711f965c40c13172cbc4b4dd381e6f638a1d6c34 Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Thu, 19 Jun 2003 20:14:24 +0000 Subject: [PATCH] 0.8.0.82: new bug 258 also added some text to try to clarify bug 257 (and hopefully got it right) --- BUGS | 30 ++++++++++++++++++++++++++++++ version.lisp-expr | 2 +- 2 files changed, 31 insertions(+), 1 deletion(-) diff --git a/BUGS b/BUGS index 185c178..527b053 100644 --- a/BUGS +++ b/BUGS @@ -1060,6 +1060,36 @@ WORKAROUND: 257: Complex array type does not have corresponding type specifier. + This is a problem because the compiler emits optimization notes when + you use a non-simple array, and without a type specifier for hairy + array types, there's no good way to tell it you're doing it + intentionally so that it should shut up and just compile the code. + +258: "TYPE-ERROR when recursive LABELS function is declared INLINE" + The compiler does emit a helpful + ; note: couldn't inline expand because expansion calls this + ; LET-converted local function: + ; "LABELS COMMON-LISP-USER::C.FROB" + but still shouldn't fail with a TYPE-ERROR + The value NIL is not of type SB-C::NODE. + when compiling + (cl:in-package :cl-user) + (declaim (optimize (safety 3) (speed 2) (space 1))) + (defvar *foo*) + (defvar *bar*) + (defun u-b-sra (x r ad0 &optional ad1 &rest ad-list) + (labels ((c.frob (c0) + (let () + (when *foo* + (vector-push-extend c0 *bar*)))) + (ad.frob (ad) + (if *foo* + (map nil #'ad.frob (the (vector t) *bar*)) + (dolist (b *bar*) + (c.frob b))))) + (declare (inline c.frob ad.frob)) ; 'til DYNAMIC-EXTENT + (ad.frob ad0))) + DEFUNCT CATEGORIES OF BUGS IR1-#: These labels were used for bugs related to the old IR1 interpreter. diff --git a/version.lisp-expr b/version.lisp-expr index c8edac0..0d3551c 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -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.0.81" +"0.8.0.82" -- 1.7.10.4