Mercurial > hg > xemacs-beta

comparison lisp/oobr/br-clos-ft.el @ 171:929b76928fce r20-3b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b12
author cvs
date Mon, 13 Aug 2007 09:47:52 +0200
parents 4be1180a9e89
children
comparison
equal deleted inserted replaced
170:98a42ee61975 171:929b76928fce
236 (car (cdr aliased-function)))) 236 (car (cdr aliased-function))))
237 ((funcall (if (fboundp 'compiled-function-p) 237 ((funcall (if (fboundp 'compiled-function-p)
238 'compiled-function-p 238 'compiled-function-p
239 'byte-code-function-p) 239 'byte-code-function-p)
240 aliased-function) 240 aliased-function)
241 ;; Turn into a list for extraction 241 (if (fboundp 'compiled-function-arglist)
242 (car (cdr (cons nil (append aliased-function nil))))))) 242 (compiled-function-arglist aliased-function)
243 ;; Turn into a list for extraction
244 (car (cdr (cons nil (append aliased-function nil))))))))
243 (if arg-list (prin1-to-string arg-list)))))) 245 (if arg-list (prin1-to-string arg-list))))))
244 246
245 (defun clos-sort-features (feature-list) 247 (defun clos-sort-features (feature-list)
246 (sort feature-list 'clos-feature-lessp)) 248 (sort feature-list 'clos-feature-lessp))
247 249