mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-06 17:30:41 -08:00
Code Issues Projects Releases Packages Wiki Activity

Forgot the case in which the generic function is modified using ENSURE-GENERIC-FUNCTION

Browse source
This commit is contained in:
jjgarcia 2005-12-20 15:03:02 +00:00
parent 63463381e7
commit 5722fa2b7c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/generic.lsp
View file

@ -235,7 +235,7 @@
(apply #'ensure-generic-function-using-class gfun name args)))
;; a generic function already exists
((si::instancep (or gfun (setf gfun (fdefinition name))))
gfun)
(apply #'reinitialize-instance gfun args))
((special-operator-p name)
(simple-program-error "The special operator ~A is not a valid name for a generic function" name))
((macro-function name)