From df944f6ec506d40cddb01d24465c19cee5f5e4a4 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 28 Nov 2003 09:20:05 +0000
Subject: [PATCH] support interactive interpreted functions

---
 cl-symbols.el | 33 ++++++++++++++++++++++++++++-----
 1 file changed, 28 insertions(+), 5 deletions(-)

diff --git a/cl-symbols.el b/cl-symbols.el
index 030e9af..14b4efc 100644
--- a/cl-symbols.el
+++ b/cl-symbols.el
@@ -66,22 +66,45 @@
   (unless (fboundp symbol)
     (ERROR 'UNDEFINED-FUNCTION (kw NAME) symbol))
   (let ((fn (symbol-function symbol)))
-    (if (and (consp fn) (consp (third fn)))
-	(let ((ifn (second (third fn))))
-	  (if (INTERPRETED-FUNCTION-P ifn) ifn fn))
-	fn)))
+    (cond
+      ((and (consp fn)
+	    (consp (third fn))
+	    (eq (first (third fn)) 'APPLY))
+       (let ((ifn (second (third fn))))
+	 (if (INTERPRETED-FUNCTION-P ifn) ifn fn)))
+      ((and (consp fn)
+	    (consp (fourth fn))
+	    (eq (first (fourth fn)) 'APPLY))
+       (let ((ifn (second (fourth fn))))
+	 (if (INTERPRETED-FUNCTION-P ifn) ifn fn)))
+      (t fn))))
 
 (defsetf SYMBOL-FUNCTION set-symbol-function)
 
 (DEFSETF SYMBOL-FUNCTION set-symbol-function)
 
+(defun interactive-stuff (forms)
+  (some (lambda (form)
+	  (and (consp form)
+	       (eq (car form) 'DECLARE)
+	       (consp (cdr form))
+	       (or (when (eq (cadr form) 'INTERACTIVE)
+		     '((interactive)))
+		   (when (and (consp (cadr form))
+			      (eq (caadr form) 'INTERACTIVE))
+		     `((interactive ,@(cdadr form)))))))
+	forms))
+
 (defun set-symbol-function (symbol fn)
   (unless (symbolp symbol)
     (type-error symbol 'SYMBOL))
   (fset symbol
 	(cond
 	  ((INTERPRETED-FUNCTION-P fn)
-	   `(lambda (&rest args) (APPLY ,fn args)))
+	   `(lambda (&rest args)
+	     ,@(interactive-stuff
+		(cddr (cl:values (FUNCTION-LAMBDA-EXPRESSION fn))))
+	     (APPLY ,fn args)))
 	  ((FUNCTIONP fn)
 	   fn)
 	  (t