$NetBSD: patch-ae,v 1.1 2008/10/11 19:25:53 uwe Exp $

--- ilisp-chs.el.orig	2002-08-20 15:36:41.000000000 +0400
+++ ilisp-chs.el
@@ -85,7 +85,7 @@
    ilisp-error-regexp
    "\\(ILISP:[^\"]*\\)\\|\\(\\*\\*[^\n]*\\)"
 
-   ilisp-reset "(sys::debug-unwind)"
+   ilisp-reset "(sys::debug-quit nil)"
    ilisp-block-command "(progn %s)"
    ilisp-find-source-command nil
    ilisp-callers-command nil
@@ -96,9 +96,9 @@
    ;; proper extension.  See file 'ilisp-cl.el'.
    ;; ilisp-binary-extension "fas"
 
-   comint-prompt-regexp "^\\([0-9]+\\. Break \\[[0-9]+\\]> \\|[^>]*> \\)"
-   comint-interrupt-regexp "\\(\\*\\*\\* - [A-Za-z]*: User break\\)"
-   comint-fix-error "(sys::debug-unwind)"
+   comint-prompt-regexp "^\\(Break [0-9]+ \\[[0-9]+\\]> \\|[^>]*> \\)"
+   comint-interrupt-regexp "\\(\\*\\*\\* - [-A-Za-z]*: User break\\)"
+   comint-fix-error "(sys::debug-unwind nil)"
    comint-continue "continue"
    comint-prompt-status
    (function
@@ -108,7 +108,7 @@
   ;; ILD Support. NIL values mean that more work is needed or that the
   ;; particular command is not available
 
-  (setq ild-abort-string "(sys::debug-unwind)"
+  (setq ild-abort-string "(sys::debug-unwind nil)"
 	ild-continue-string "continue"
 	ild-next-string "up"
 	ild-next-string-arg nil