1.0.47.30: sb-cltl2:function-information didn't work on setf-functions.

Change sb-cltl2:function-information ftype declaration from
(symbol ...) to ((or symbol cons) ...).

Fixes lp#769596.

diff --git a/contrib/sb-cltl2/env.lisp b/contrib/sb-cltl2/env.lisp
index 0bd6c1b..7b479c8 100644 (file)
--- a/contrib/sb-cltl2/env.lisp
+++ b/contrib/sb-cltl2/env.lisp
@@ -155,7 +155,7 @@
     nil))
 
 
-(declaim (ftype (sfunction (symbol &optional (or null lexenv))
+(declaim (ftype (sfunction ((or symbol cons) &optional (or null lexenv))
                            (values (member nil :function :macro :special-form)
                                    boolean
                                    list))

diff --git a/version.lisp-expr b/version.lisp-expr
index a27cdab..5231d6b 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -20,4 +20,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".)
-"1.0.47.29"
+"1.0.47.30"