package Lisp::Vector;
use strict;
use vars qw(@EXPORT_OK);
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;