Small SBCL patch

I've had this lying around in my personal ILSIP tree for a while; I
don't think I've sent it upstream before.

It may not apply cleanly due to whitespace munging.  Should be pretty
obvious what to change anyway, though.

Index: ilisp-sbcl.el
===================================================================
RCS file: /cvsroot/ilisp/ILISP/ilisp-sbcl.el,v
retrieving revision 1.19
diff -u -r1.19 ilisp-sbcl.el
--- ilisp-sbcl.el       2 Apr 2003 01:56:20 -0000       1.19
+++ ilisp-sbcl.el       4 Oct 2003 20:42:52 -0000
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Emacs-Lisp -*-
 
 ;;; ilisp-sbcl.el --
-;;; ILISP SB Common Lisp dialect definition
+;;; ILISP Steel Bank Common Lisp dialect definition
 ;;;
 ;;; This file is part of ILISP.
 ;;; Please refer to the file COPYING for copyrights and licensing
@@ -27,9 +27,7 @@
   nil)
 
 ;;; sbcl-check-prompt function for SBCL-0.6.x or earlier.
-;;;
-;;; WHN threatens to change the format of the break prompt one day soon, 
-;;; but as of 0.6.12.21 this hasn't happened yet
+
 (defun sbcl-check-prompt-sbcl<07 (old new)
   "Compare the break level printed at the beginning of the prompt."
   (let* ((was-in-break (and old (string-match "]+" old)))
@@ -182,8 +180,8 @@
        ild-bottom-string ":top"
        ild-backtrace-string ":backtrace"
        ild-locals-string ":l"
-       ild-local-string-arg "(debug:arg %s)"
-       ild-return-string nil           ; needs work (debug:debug-return x)
+       ild-local-string-arg "(sb-debug:arg %s)"
+       ild-return-string ":return %s"
        ild-retry-string nil            ; needs work
        ild-trap-on-exit-string nil     ; needs work
        )



-dan

-- 

   http://www.cliki.net/ - Link farm for free CL-on-Unix resources

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.3 (GNU/Linux)

iD8DBQA/fzLaHDK5ZnWQiRMRAuTmAJ9j/v8CQVHDC0MWO+tDNTHvedp+bACcDpQj
XmVlH7d3wJkgkv8NjAvHkPw=
=8kiU
-----END PGP SIGNATURE-----