Skip to content
Snippets Groups Projects
Commit d59a6cef authored by rtoy's avatar rtoy
Browse files

pcl/boot.lisp:

o Recognize but ignore the :DECLARE argument to
  ENSURE-GENERIC-FUNCTION.

general-info/release-20b.txt:
o Update
parent f2ff9f9c
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment