diff --git a/general-info/release-20b.txt b/general-info/release-20b.txt index 7c076bd9d7d57748674b37eb8373d97d03648efa..6c2008926de2878c34c7cc09ade3580db5975dea 100644 --- a/general-info/release-20b.txt +++ b/general-info/release-20b.txt @@ -56,6 +56,8 @@ New in this release: DECLARATION. - The :METHOD-CLASS argument to ENSURE-GENERIC-FUNCTION can be a class object as well as a name. + - Recognize but ignore the :DECLARE argument to + ENSURE-GENERIC-FUNCTION. * Bugfixes: - On Unicode builds, printing of '|\|| and '|`| was incorrect diff --git a/pcl/boot.lisp b/pcl/boot.lisp index 7fea1003023c348c8250ce79fc89e04f8927a292..2b8ff9abed41b1fb6eb5b2f0544873f3c2e67290 100644 --- a/pcl/boot.lisp +++ b/pcl/boot.lisp @@ -25,7 +25,7 @@ ;;; ************************************************************************* (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.76 2010/04/17 18:31:42 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.77 2010/04/17 19:05:51 rtoy Exp $") (in-package :pcl) (intl:textdomain "cmucl") @@ -1891,6 +1891,7 @@ work during bootstrapping. :generic-function-class ,gf-class))) (remf ,all-keys :generic-function-class) (remf ,all-keys :environment) + (remf ,all-keys :declare) (let ((combin (getf ,all-keys :method-combination '.shes-not-there.))) (unless (eq combin '.shes-not-there.) (setf (getf ,all-keys :method-combination)