Ilisp for emacs-22

--azLHFNyN32YCQGCU
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

Ilisp folks,

Appended is a first diff that make SBCL in Ilisp snapshot work, after
a fashion.  It starts and evaluates fine, but the debugger is broken.
The debugger displays it's prompt twice, the cursor is left after the
first prompt.  Any attempt to enter things with the keyboard ends up
with a hung Lisp and the infamous 
"Abort commands before interrupting top level? (y or n)" when hitting
Control-C.  The session seems nonrecoverable.

The below is an example session, the last line is being displayed
after hitting Control-C (not shown):


Starting ,sbcl ...
:cl-user - Yes, Master? (+ 1 2)

3
:cl-user - Yes, Master? (+ 1 'foo)

debugger invoked on a SIMPLE-TYPE-ERROR in thread #<THREAD "initial thread" {10\
00018D21}>:
  Argument Y is not a NUMBER: FOO

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(SB-KERNEL:TWO-ARG-+ 1 FOO)
0] a
0] a
a
1

----:**-F1  *sbcl*         All L20    (ILISP :load)-----------------------------
Abort commands before interrupting top level? (y or n) 

-- 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Martin Cracauer <[email protected]>   http://www.cons.org/cracauer/
FreeBSD - where you want to go, today.      http://www.freebsd.org/

--azLHFNyN32YCQGCU
Content-Type: text/x-diff; charset=us-ascii
Content-Disposition: attachment;
	filename="ilisp-20021222-patch-for-emacs22_001.diff"

Only in ilisp-20021222-patched-for-emacs22: bridge.elc
Only in ilisp-20021222-patched-for-emacs22: comint-ipc.elc
Only in ilisp-20021222-patched-for-emacs22: completer.elc
Only in ilisp-20021222-patched-for-emacs22/extra: cltl2.elc
Only in ilisp-20021222-patched-for-emacs22/extra: hyperspec.elc
Only in ilisp-20021222-patched-for-emacs22: ilcompat.elc
Only in ilisp-20021222-patched-for-emacs22: ild.elc
diff -ru ilisp-20021222/ilfsf18.el ilisp-20021222-patched-for-emacs22/ilfsf18.el
--- ilisp-20021222/ilfsf18.el	2001-05-12 18:10:53.000000000 -0400
+++ ilisp-20021222-patched-for-emacs22/ilfsf18.el	2008-12-16 11:21:27.000000000 -0500
@@ -14,6 +14,9 @@
 ;;;============================================================================
 ;;; Prologue
 
+(unless (boundp 'comint-version) ;; be brutal
+  (defvar comint-version "2.03"))
+
 (if (string-match "2\.03" comint-version)
     (fset 'comint-mem 'member))
 
@@ -21,7 +24,16 @@
 ;;;============================================================================
 ;;; Functions
 
-(defun add-hook (hook function)
+;; cracauer addition for emacs-22 20081215
+(unless (fboundp 'full-copy-sparse-keymap)
+  (defun full-copy-sparse-keymap (km)
+    "Recursively copy the sparse keymap KM."
+    (cond ((consp km)
+	      (cons (full-copy-sparse-keymap (car km))
+		     (full-copy-sparse-keymap (cdr km))))
+	    (t km))))
+
+(defun add-hook (hook function &optional ignore ignoretoo)
   " Add FUNCTION to HOOK's list.
 Arguments are HOOK and FUNCTION. FUNCTION is not added if it's already
 on the list."
@@ -38,7 +50,7 @@
 
 (defun ilisp-get-input-ring ()
   "Use instead of get-input-ring coming-input-ring or input-ring."
-  input-ring)
+  comint-input-ring)
 
 
 (defun ilisp-ring-insert (ring input)
@@ -63,22 +75,22 @@
 
 (defun ilisp-input-ring-index ()
   "See 'input-ring-index'."
-  input-ring-index)
+  comint-input-ring-index)
 
 
 (defun set-ilisp-input-ring-index (n)
   "See 'input-ring-index' set function."
-  (setq input-ring-index n))
+  (setq comint-input-ring-index n))
 
 
 (defun ilisp-input-ring-size ()
   "See 'input-ring-size'."
-  input-ring-size)
+  comint-input-ring-size)
 
 
 (defun set-ilisp-input-ring-size (n)
   "See 'input-ring-size' set function."
-  (setq input-ring-size n))
+  (setq comint-input-ring-size n))
 
 
 ;;;============================================================================
Only in ilisp-20021222-patched-for-emacs22: ilfsf18.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-acl.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-aut.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-ccl.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-chs.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-cl-easy-menu.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-cl.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-cmp.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-cmt.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-cmu.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-def.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-dia.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-doc.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-ext.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-hi.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-hlw.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-hnd.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-imenu.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-ind.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-inp.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-kcl.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-key.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-kil.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-low.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-luc.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-mnb.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-mod.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-mov.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-openmcl.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-out.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-prc.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-prn.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-rng.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-sbcl.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-sch.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-scheme-easy-menu.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-snd.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-sym.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-utl.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-val.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-xfr.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp-xls.elc
Only in ilisp-20021222-patched-for-emacs22: ilisp.elc

--azLHFNyN32YCQGCU
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

------------------------------------------------------------------------------
SF.Net email is Sponsored by MIX09, March 18-20, 2009 in Las Vegas, Nevada.
The future of the web can't happen without you.  Join us at MIX09 to help
pave the way to the Next Web now. Learn more and register at
http://ad.doubleclick.net/clk;208669438;13503038;i?http://2009.visitmix.com/
--azLHFNyN32YCQGCU
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
Ilisp-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/ilisp-devel

--azLHFNyN32YCQGCU--