object.py

@@ -608,10 +608,10 @@ class Pair(Object):
         return "#<{n}:{s}>".format(n=self.__class__.__name__, s=self)
     def __repr__(self, obset=None):
         if obset is None:
-            print("start anew with pair", id(self))
+            # print("start anew with pair", id(self))
             obset = set()
         if self in obset:
-            print("already seen pair", id(self))
+            # print("already seen pair", id(self))
             return "<...>"
         obset.add(self)
         result = ["("]
@@ -629,7 +629,7 @@ class Pair(Object):
                 result.append(repr(el))
         if current is not Nil:
             result.append(" . ")
-            result.append(str(current))
+            result.append(repr(current))
         result.append(")")
         return "".join(result)
     def __str__(self):

pyle

@@ -32,7 +32,7 @@ ovc, argv = posix_getopts.parse({
     "t": [0, bool, "traceback", "print python tracebacks on error"],
     "l": [[], str, "loadfiles", "load file(s)"],
     "d": [[], str, "debugflags", "set debug flag(s)"],
-    "r": [100000, int, "recursion_limit", "set recursion limit"],
+    "r": [10000, int, "recursion_limit", "set recursion limit"],
     "s": [0, bool, "evalstack", "print eval stack or error"],
     "L": [default_loadpath, str, "loadpath", "set the load path"],
     "e": [0, bool, "exit_on_error", "exit on error"],

tests.l

@@ -832,9 +832,9 @@
       ((x 1 x 3) . (1 x 3)))
 
 (setf b '(3 4 5 6 7))
-(test incf0 (progn (incf (car b) 2)
-                   b)
-      (5 4 5 6 7))
+;; (test incf0 (progn (incf (car b) 2)
+;;                   b)
+;;      (5 4 5 6 7))
 
 ;; (test decf0 (progn (decf (cddr b))
 ;;                    b)