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

Fix typo.

Browse source
This commit is contained in:
jjgarcia 2003-04-28 17:54:37 +00:00
parent de2176ff11
commit 04dcf81cc2
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/assignment.d
View file

@ -81,15 +81,15 @@ cl_fmakunbound(cl_object fname)
if (SYMBOLP(fname)) {
clear_compiler_properties(sym);
#ifdef PDE
cl_remprop(fname, @'defun');
si_rem_sysprop(fname, @'defun');
#endif
SYM_FUN(sym) = OBJNULL;
sym->symbol.mflag = FALSE;
} else {
cl_remprop(sym, @'si::setf-symbol');
cl_remprop(sym, @'si::setf-lambda');
cl_remprop(sym, @'si::setf-method');
cl_remprop(sym, @'si::setf-update');
si_rem_sysprop(sym, @'si::setf-symbol');
si_rem_sysprop(sym, @'si::setf-lambda');
si_rem_sysprop(sym, @'si::setf-method');
si_rem_sysprop(sym, @'si::setf-update');
}
@(return fname)
}