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

Typo in COPY-SYMBOL, prevented proper type checking of input argument

Browse source
This commit is contained in:
jgarcia 2007-05-19 16:35:23 +00:00
parent 3673c503f8
commit 45111e04bd
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/symbol.d
View file

@ -240,7 +240,7 @@ cl_symbol_name(cl_object x)
@(defun copy_symbol (sym &optional cp &aux x)
@
x = ecl_check_cl_type(@'copy-symbol', x, t_symbol);
sym = ecl_check_cl_type(@'copy-symbol', sym, t_symbol);
x = cl_make_symbol(sym->symbol.name);
if (Null(cp))
@(return x)