package
Lisp::Vector;
use
strict;
require
Exporter;
*import
= \
&Exporter::import
;
@EXPORT_OK
=
qw(vector vectorp)
;
sub
vector
{
Lisp::Vector->new(
@_
);
}
sub
vectorp
{
UNIVERSAL::isa(
$_
[0],
"Lisp::Vector"
);
}
sub
new
{
my
$class
=
shift
;
bless
[
@_
],
$class
;
}
1;