Skip to content

Commit

Permalink
0.9.18.64:
Browse files Browse the repository at this point in the history
        Add a REPLACE restart for the annoying "FOO already names an ordinary
        function or a macro" error for DEFGENERIC.
  • Loading branch information
jsnell committed Nov 20, 2006
1 parent cefe278 commit b354361
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 2 deletions.
7 changes: 6 additions & 1 deletion src/pcl/boot.lisp
Expand Up @@ -1603,7 +1603,12 @@ bootstrapping.
(if (and existing
(eq *boot-state* 'complete)
(null (generic-function-p existing)))
(generic-clobbers-function fun-name)
(restart-case
(generic-clobbers-function fun-name)
(replace ()
:report "Replace the function binding"
(fmakunbound fun-name)
(apply #'ensure-generic-function fun-name all-keys)))
(apply #'ensure-generic-function-using-class
existing fun-name all-keys))))

Expand Down
2 changes: 1 addition & 1 deletion version.lisp-expr
Expand Up @@ -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.18.63"
"0.9.18.64"

0 comments on commit b354361

Please sign in to comment.