 (defun alisp-ac-prefix ()
   ""
   "")
+
+(defun lisp-arglist-minibuffer (string)
+  "see fi:lisp-arglist, always use minibufer"
+  (interactive (fi::get-default-symbol "Arglist for" t t))
+  (fi::make-request (lep::arglist-session :fspec string)
+    ;; Normal continuation
+    (() (what arglist)
+     (progn
+       (message "%s's arglist: %s" what arglist)
+       (fi::note-background-reply)))
+    ;; Error continuation
+    ((string) (error)
+     (progn
+       (message "Cannot get the arglist of %s: %s" string error)
+       (fi::note-background-reply)))))
+
 
 (defun alisp-function-ac-action()
   ;; TODO : insert the symbol when needed

;;;; (:require-patch "")
;;;; HISTORY :
;;;; $Log$
;;;; Revision 3.6  2015/05/06 13:36:07  troche
;;;; * show arglist on completion
;;;;

			 (format "%s:" package))
	    (insert package)
	    (insert "::"))
	  (lisp-arglist-minibuffer full-candidate))))))

;; see eli/fi-lep.el in allegro lisp install directory
(defun alisp-functions-ac-candidates ()
