From 90e6023292e2bfe927bd633bac42fc355bb9f4d1 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 4 Aug 2008 18:18:41 +0200 Subject: Add support for fixnums. --- MLKPackage.m | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'MLKPackage.m') diff --git a/MLKPackage.m b/MLKPackage.m index cfe8932..1be467b 100644 --- a/MLKPackage.m +++ b/MLKPackage.m @@ -111,11 +111,16 @@ static NSMutableDictionary *packages = nil; [sys export:[sys intern:@"LISTP"]]; [sys export:[sys intern:@"CONSP"]]; [sys export:[sys intern:@"SYMBOLP"]]; + [sys export:[sys intern:@"FIXNUMP"]]; [sys export:[sys intern:@"NULL"]]; [sys export:[sys intern:@"ADD"]]; [sys export:[sys intern:@"SUBTRACT"]]; [sys export:[sys intern:@"MULTIPLY"]]; [sys export:[sys intern:@"DIVIDE"]]; + [sys export:[sys intern:@"ADD-FIXNUMS"]]; + [sys export:[sys intern:@"SUBTRACT-FIXNUMS"]]; + [sys export:[sys intern:@"MULTIPLY-FIXNUMS"]]; + [sys export:[sys intern:@"DIVIDE-FIXNUMS"]]; [sys export:[sys intern:@"LIST"]]; [sys export:[sys intern:@"MACROEXPAND-1"]]; [sys export:[sys intern:@"MACROEXPAND-ALL"]]; @@ -129,6 +134,7 @@ static NSMutableDictionary *packages = nil; [sys export:[sys intern:@"IMPORT"]]; [sys export:[sys intern:@"INTERN"]]; [sys export:[sys intern:@"SYMBOL-NAME"]]; + [sys export:[sys intern:@"FIXNUM-EQ"]]; [sys export:[sys intern:@"OBJC-CLASS-OF"]]; [sys export:[sys intern:@"OBJC-SUBCLASSP"]]; -- cgit v1.2.3