From 947f0ecbdeb98e4b5f53c68cb62e7d9cfcf03c60 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Tue, 8 Jul 2008 15:48:56 +0200
Subject: Replace SET-CAR and SET-CDR with RPLACA and RPLACD.

---
 MLKPackage.m | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'MLKPackage.m')

diff --git a/MLKPackage.m b/MLKPackage.m
index 00d6344..cae3416 100644
--- a/MLKPackage.m
+++ b/MLKPackage.m
@@ -90,8 +90,8 @@ static NSMutableDictionary *packages = nil;
   
   [sys export:[sys intern:@"CAR"]];
   [sys export:[sys intern:@"CDR"]];
-  [sys export:[sys intern:@"SET-CAR"]];
-  [sys export:[sys intern:@"SET-CDR"]];
+  [sys export:[sys intern:@"RPLACA"]];
+  [sys export:[sys intern:@"RPLACD"]];
   [sys export:[sys intern:@"CONS"]];
   [sys export:[sys intern:@"LOAD"]];
   [sys export:[sys intern:@"EQ"]];
-- 
cgit v1.2.3