0.8.10.1:

        New bug.

diff --git a/BUGS b/BUGS
index be0ddb7..1c30bdd 100644 (file)
--- a/BUGS
+++ b/BUGS
@@ -1387,3 +1387,17 @@ WORKAROUND:
       (list (foo y) (if (> y 1) (funcall (if (> y 0) #'foo #'identity) y))))
 
   (probably related to the bug 280.)
+
+313: "source-transforms are Lisp-1"
+  (reported by Antonio Menezes Leitao on cll)
+
+  PROPAGATE-FUN-CHANGE when checking, whether source transform is
+  applicable, does not check variable/function original position of the
+  COMBINATION-FUN. So the following functions are miscompiled:
+
+    (defun foo (cadr) (if (functionp cadr) (funcall cadr 1) nil))
+
+    (defvar cadr)
+    (defun foo (cadr) (funcall (truly-the function cadr) 1))
+
+  (check with (FOO #'IDENTITY))

diff --git a/version.lisp-expr b/version.lisp-expr
index 3fa37b8..540f76e 100644 (file)
--- 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.10"
+"0.8.10.1"