/usr/local/CPAN/perl-lisp/Lisp/Vector.pm

• package Lisp::Vector
  • vector
  • vectorp
  • new
• EOF

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;