Mercurial > hg > xemacs-beta

comparison lisp/bytecomp.el @ 298:70ad99077275 r21-0b47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b47
author cvs
date Mon, 13 Aug 2007 10:39:40 +0200
parents 558f606b08ae
children 182f72e8cd0d
comparison
equal deleted inserted replaced
297:deca3c1083ac 298:70ad99077275
3001 (let ((len (length form))) 3001 (let ((len (length form)))
3002 (cond ((= len 3) (byte-compile-three-args (append form '(nil)))) 3002 (cond ((= len 3) (byte-compile-three-args (append form '(nil))))
3003 ((= len 4) (byte-compile-three-args form)) 3003 ((= len 4) (byte-compile-three-args form))
3004 (t (byte-compile-subr-wrong-args form "2-3"))))) 3004 (t (byte-compile-subr-wrong-args form "2-3")))))
3005 3005
3006 ;; from Ben Wing <wing@666.com>: some inlined functions have extra 3006 ;; from Ben Wing <ben@xemacs.org>: some inlined functions have extra
3007 ;; optional args added to them in XEmacs 19.12. Changing the byte 3007 ;; optional args added to them in XEmacs 19.12. Changing the byte
3008 ;; interpreter to deal with these args would be wrong and cause 3008 ;; interpreter to deal with these args would be wrong and cause
3009 ;; incompatibility, so we generate non-inlined calls for those cases. 3009 ;; incompatibility, so we generate non-inlined calls for those cases.
3010 ;; Without the following functions, spurious warnings will be generated; 3010 ;; Without the following functions, spurious warnings will be generated;
3011 ;; however, they would still compile correctly because 3011 ;; however, they would still compile correctly because