Written the constructor for exceptions; in the process, added a
metadata slot as a first class slot of exceptions.
This commit is contained in:
parent
f915a9993f
commit
83537391a6
11 changed files with 85 additions and 20 deletions
|
|
@ -64,9 +64,9 @@ struct pso_pointer c_reverse( struct pso_pointer sequence ) {
|
|||
break;
|
||||
default:
|
||||
result =
|
||||
make_exception( c_string_to_lisp_string
|
||||
( L"Invalid object in sequence" ), nil,
|
||||
nil );
|
||||
make_exception( c_cons( c_string_to_lisp_string
|
||||
( L"Invalid object in sequence" ), cursor), nil,
|
||||
nil , nil);
|
||||
goto exit;
|
||||
break;
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue