Import Upstream version 5c3upstream/5c3

1 files changed, 15 insertions, 1 deletions

diff --git a/.gdbinit b/.gdbinit
index 6d39779..343b7f1 100644
--- a/.gdbinit
+++ b/.gdbinit
@@ -64,7 +64,7 @@ define scm
   call newline(sys_protects[2]),(void)0
 end
 
-define load
+define lload
   if (errjmp_bad)
     echo sorry, errjmp_bad\n
   else
@@ -94,3 +94,17 @@ end
 document cdr
 CDR of $
 end
+
+define disp
+  call iprin1($arg0, sys_protects[2], 0)
+  echo \n
+end
+
+define writ
+  call iprin1($arg0, sys_protects[2], 1)
+  echo \n
+end
+
+
+
+