diff options
Diffstat (limited to 'MLKLowLevelTests.m')
-rw-r--r-- | MLKLowLevelTests.m | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MLKLowLevelTests.m b/MLKLowLevelTests.m index 498369c..d3170fd 100644 --- a/MLKLowLevelTests.m +++ b/MLKLowLevelTests.m @@ -102,7 +102,7 @@ -(id) testInitialReadtable { MLKDynamicContext *ctx = [MLKDynamicContext currentContext]; - MLKReadtable *readtable = [ctx valueForBinding: + MLKReadtable *readtable = [ctx valueForSymbol: [[MLKPackage findPackage:@"COMMON-LISP"] intern:@"*READTABLE*"]]; UKTrue ([readtable characterHasCase:'a']); |