blob: f1db7e6d23390d3742dc37a368ec7be690366dbf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
/* -*- mode: objc; coding: utf-8 -*- */
/* Copyright 2008, Matthias Benkard. */
#import "MLKCons.h"
@implementation MLKCons
+(MLKCons*) cons:(id)car with:(id)cdr
{
return AUTORELEASE ([[MLKCons alloc] initWithCar:car cdr:cdr]);
}
-(MLKCons*) initWithCar:(id)car cdr:(id)cdr
{
ASSIGN (_car, car);
ASSIGN (_cdr, cdr);
return self;
}
-(id) car
{
return _car;
}
-(id) cdr
{
return _cdr;
}
-(void) setCar:(id)value
{
ASSIGN (_car, value);
}
-(void) setCdr:(id)value
{
ASSIGN (_cdr, value);
}
-(void) dealloc
{
RELEASE (_car);
RELEASE (_cdr);
[super dealloc];
}
@end
|
