From 4dc359dcb83bf35b08853f6ebfcdc3b74ae6d8bb Mon Sep 17 00:00:00 2001 From: Alexey Dejneka Date: Fri, 30 Apr 2004 03:23:44 +0000 Subject: [PATCH] 0.8.10.1: New bug. --- BUGS | 14 ++++++++++++++ version.lisp-expr | 2 +- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/BUGS b/BUGS index be0ddb7..1c30bdd 100644 --- 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 --- 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" -- 1.7.10.4