package
Lisp::List;
use
strict;
require
Exporter;
*import
= \
&Exporter::import
;
@EXPORT_OK
=
qw(list)
;
sub
list
{
Lisp::List->new(
@_
);
}
sub
new
{
my
$class
=
shift
;
bless
[
@_
],
$class
;
}
sub
{
my
$self
=
shift
;
Lisp::Printer::lisp_print(
$self
);
}
sub
eval
{
my
$self
=
shift
;
Lisp::Interpreter::lisp_eval(
$self
);
}
1;