From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.bugs Subject: bug#17024: 24.3.50; eieio-compiled-function-arglist is broken Date: Tue, 18 Mar 2014 16:21:38 -0400 Message-ID: References: <861ty1m0iq.wl%%5253605f36527b613438407bc85287410830e04c@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1395174197 13763 80.91.229.3 (18 Mar 2014 20:23:17 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 18 Mar 2014 20:23:17 +0000 (UTC) Cc: 17024@debbugs.gnu.org To: OKAZAKI Tetsurou Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Mar 18 21:23:24 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1WQ0Xi-00027x-KM for geb-bug-gnu-emacs@m.gmane.org; Tue, 18 Mar 2014 21:23:22 +0100 Original-Received: from localhost ([::1]:37296 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WQ0Xh-0001ce-UZ for geb-bug-gnu-emacs@m.gmane.org; Tue, 18 Mar 2014 16:23:21 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:49545) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WQ0XX-0001bZ-2L for bug-gnu-emacs@gnu.org; Tue, 18 Mar 2014 16:23:19 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WQ0XO-0003U0-VS for bug-gnu-emacs@gnu.org; Tue, 18 Mar 2014 16:23:10 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:39223) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WQ0XO-0003TM-Ry for bug-gnu-emacs@gnu.org; Tue, 18 Mar 2014 16:23:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1WQ0XO-0003Y0-D9 for bug-gnu-emacs@gnu.org; Tue, 18 Mar 2014 16:23:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Stefan Monnier Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 18 Mar 2014 20:23:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 17024 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 17024-submit@debbugs.gnu.org id=B17024.139517412713554 (code B ref 17024); Tue, 18 Mar 2014 20:23:02 +0000 Original-Received: (at 17024) by debbugs.gnu.org; 18 Mar 2014 20:22:07 +0000 Original-Received: from localhost ([127.0.0.1]:40405 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WQ0WV-0003WY-6U for submit@debbugs.gnu.org; Tue, 18 Mar 2014 16:22:07 -0400 Original-Received: from mercure.iro.umontreal.ca ([132.204.24.67]:44688) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WQ0WS-0003WN-ER for 17024@debbugs.gnu.org; Tue, 18 Mar 2014 16:22:04 -0400 Original-Received: from hidalgo.iro.umontreal.ca (hidalgo.iro.umontreal.ca [132.204.27.50]) by mercure.iro.umontreal.ca (Postfix) with ESMTP id ECF2284C8C; Tue, 18 Mar 2014 16:22:03 -0400 (EDT) Original-Received: from lechon.iro.umontreal.ca (lechon.iro.umontreal.ca [132.204.27.242]) by hidalgo.iro.umontreal.ca (Postfix) with ESMTP id 8EF151E5B74; Tue, 18 Mar 2014 16:21:38 -0400 (EDT) Original-Received: by lechon.iro.umontreal.ca (Postfix, from userid 20848) id 6781BB4375; Tue, 18 Mar 2014 16:21:38 -0400 (EDT) In-Reply-To: <861ty1m0iq.wl%%5253605f36527b613438407bc85287410830e04c@gmail.com> (OKAZAKI Tetsurou's message of "Mon, 17 Mar 2014 22:13:01 +0900") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) X-DIRO-MailScanner-Information: Please contact the ISP for more information X-DIRO-MailScanner: Found to be clean X-DIRO-MailScanner-SpamCheck: n'est pas un polluriel, SpamAssassin (score=-2.82, requis 5, autolearn=not spam, ALL_TRUSTED -2.82, MC_TSTLAST 0.00) X-DIRO-MailScanner-From: monnier@iro.umontreal.ca X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:86941 Archived-At: > The library `emacs-lisp/eieio-core.el' defines the function > `eieio-compiled-function-arglist' for compatibility but > its implementation is broken. > In *scratch* buffer: > (eieio-compiled-function-arglist (symbol-function 'make-temp-file)) > => 769 > The function `help-function-arglist' does the right thing. > (help-function-arglist (symbol-function 'make-temp-file)) > => (arg1 &optional arg2 arg3) Does the patch below work for you? And could you explain in which circumstance you've bumped into this problem? Stefan === modified file 'lisp/emacs-lisp/eieio-core.el' --- lisp/emacs-lisp/eieio-core.el 2014-01-01 07:43:34 +0000 +++ lisp/emacs-lisp/eieio-core.el 2014-03-18 20:19:52 +0000 @@ -34,18 +34,11 @@ (eval-when-compile (require 'cl)) ;FIXME: Use cl-lib! ;; Compatibility -(if (fboundp 'compiled-function-arglist) - +(defalias 'eieio-compiled-function-arglist + (if (featurep 'xemacs) ;; XEmacs can only access a compiled functions arglist like this: - (defalias 'eieio-compiled-function-arglist 'compiled-function-arglist) - - ;; Emacs doesn't have this function, but since FUNC is a vector, we can just - ;; grab the appropriate element. - (defun eieio-compiled-function-arglist (func) - "Return the argument list for the compiled function FUNC." - (aref func 0)) - - ) + #'compiled-function-arglist + #'help-function-arglist)) (put 'eieio--defalias 'byte-hunk-handler #'byte-compile-file-form-defalias) ;;(get 'defalias 'byte-hunk-handler)