Re: Some libraries does (require 'cl)

[Reiner Steib]

On Fri, May 18 2007, Lennart Borgman (gmail) wrote:

> Lennart Borgman (gmail) wrote:
>>   (require 'cl)
>>
>> without (eval-when-compile ...). Is not that incorrect?
[...]
> More files doing this:
[...]

For the file from lisp/gnus/, these forms are no-ops in Emacs 21 and
up.  (In the development version of Gnus, we have removed these forms
because we o longer support Emacs < 21 there.)

>   gnus-registry.el

,----[ gnus-registry.el ]
| (eval-when-compile (require 'cl))
| [...]
| ;; Function(s) missing in Emacs 20
| (when (memq nil (mapcar 'fboundp '(puthash)))
|   (require 'cl)
|   (unless (fboundp 'puthash)
|     ;; alias puthash is missing from Emacs 20 cl-extra.el
|     (defalias 'puthash 'cl-puthash)))
`----

>   spam-stat.el

,----[ spam-stat.el ]
| ;; Functions missing in Emacs 20
| 
| (when (memq nil (mapcar 'fboundp
|                       '(gethash hash-table-count make-hash-table
|                                 mapc puthash)))
|   (require 'cl)
|   (unless (fboundp 'puthash)
|     ;; alias puthash is missing from Emacs 20 cl-extra.el
|     (defalias 'puthash 'cl-puthash)))
`----

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/