From: Juho Snellman <jsnell@iki.fi>
Date: Sun, 16 Jul 2006 21:51:01 +0000 (+0000)
Subject: 0.9.14.19:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=017a0b4491fd9f211d6563909b42dc10d925a1d2;p=sbcl.git

0.9.14.19:
	FOPCOMPILABLE-P wasn't checking whether the CADR of a LOCALLY form
        was fopcompilable.
---

diff --git a/src/compiler/fopcompile.lisp b/src/compiler/fopcompile.lisp
index 42cff0f..7427217 100644
--- a/src/compiler/fopcompile.lisp
+++ b/src/compiler/fopcompile.lisp
@@ -108,7 +108,7 @@
                            (every #'fopcompilable-p (cdr args))))
                      ;; Likewise for LOCALLY
                      ((locally)
-                      (every #'fopcompilable-p (cdr args)))
+                      (every #'fopcompilable-p args))
                      (otherwise
                       ;; ordinary function calls
                       (and (symbolp operator)
diff --git a/tests/compiler.impure-cload.lisp b/tests/compiler.impure-cload.lisp
index a673601..302f5f9 100644
--- a/tests/compiler.impure-cload.lisp
+++ b/tests/compiler.impure-cload.lisp
@@ -490,3 +490,12 @@
         (add-prime candidate))))
   ;;
   (init-table))
+
+;;; Bug in the fopcompiler's handling of LOCALLY pre-0.9.14.8
+
+(defvar *a* 1)
+
+(setf *a*
+      (locally
+          (declare)
+        2))
diff --git a/version.lisp-expr b/version.lisp-expr
index fffa055..bd3f593 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.9.14.18"
+"0.9.14.19"