From 04dcf81cc294101564bbe534c3fcbf19584687f0 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Mon, 28 Apr 2003 17:54:37 +0000 Subject: [PATCH] Fix typo. --- src/c/assignment.d | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/c/assignment.d b/src/c/assignment.d index 2d930eed6..25dbfa46f 100644 --- a/src/c/assignment.d +++ b/src/c/assignment.d @@ -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) }