From 83a96ea32f132597c70b314080d150235ef2944a Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 24 Aug 2005 20:49:39 +0000 Subject: [PATCH] 0.9.3.76: Restore buildability on cmucl ... make the FTYPE declaimed for %DEFKNOWN compatible with the definition --- src/compiler/knownfun.lisp | 3 ++- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/compiler/knownfun.lisp b/src/compiler/knownfun.lisp index 811b0be..cbe6892 100644 --- a/src/compiler/knownfun.lisp +++ b/src/compiler/knownfun.lisp @@ -186,7 +186,8 @@ ;;; and optimizers. (declaim (ftype (function (list list attributes &key (:derive-type (or function null)) - (:optimizer (or function null))) + (:optimizer (or function null)) + (:destroyed-constant-args (or function null))) *) %defknown)) (defun %defknown (names type attributes &key derive-type optimizer destroyed-constant-args) diff --git a/version.lisp-expr b/version.lisp-expr index 94a5938..98bd916 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.3.75" +"0.9.3.76" -- 1.7.10.4