From 84597fcf74fc74672fe664456e62ec6be5f2b066 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Tue, 2 Sep 2008 11:59:47 +0200 Subject: Add classes MLKNoSuchSymbolError, MLKStreamError, and MLKUnboundVariableError. --- MLKNoSuchSymbolError.m | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 MLKNoSuchSymbolError.m (limited to 'MLKNoSuchSymbolError.m') diff --git a/MLKNoSuchSymbolError.m b/MLKNoSuchSymbolError.m new file mode 100644 index 0000000..1df60ef --- /dev/null +++ b/MLKNoSuchSymbolError.m @@ -0,0 +1,45 @@ +/* -*- mode: objc; coding: utf-8 -*- */ +/* Toilet Lisp, a Common Lisp subset for the Étoilé runtime. + * Copyright (C) 2008 Matthias Andreas Benkard. + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or (at + * your option) any later version. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#import "MLKNoSuchSymbolError.h" +#import "runtime-compatibility.h" +#import "util.h" + + +@implementation MLKNoSuchSymbolError +-(id) initWithPackage:(MLKPackage *)package + symbolName:(NSString *)name +{ + self = [super initWithName:@"MLKNoSuchSymbolError" + reason:[NSString stringWithFormat: + @"The package %@ does not contain a symbol named %@.", + self, + name] + userInfo:nil]; + LASSIGN (_symbolName, name); + LASSIGN (_package, package); + return self; +} + +-(void) dealloc +{ + LDESTROY (_symbolName); + LDESTROY (_package); + [super dealloc]; +} +@end -- cgit v1.2.3