/[emacs]/emacs/lisp/emacs-lisp/bytecomp.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/bytecomp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.108 by rms, Thu Jul 25 18:18:10 2002 UTC revision 2.109 by rms, Wed Jul 31 22:04:33 2002 UTC
# Line 1206  Each function's symbol gets marked with Line 1206  Each function's symbol gets marked with
1206  (defun byte-compile-find-cl-functions ()  (defun byte-compile-find-cl-functions ()
1207    (unless byte-compile-cl-functions    (unless byte-compile-cl-functions
1208      (dolist (elt load-history)      (dolist (elt load-history)
1209        (when (string-match "^cl\\>" (car elt))        (when (and (stringp (car elt))
1210                     (string-match "^cl\\>" (car elt)))
1211          (setq byte-compile-cl-functions          (setq byte-compile-cl-functions
1212                (append byte-compile-cl-functions                (append byte-compile-cl-functions
1213                        (cdr elt)))))                        (cdr elt)))))

Legend:
Removed from v.2.108  
changed lines
  Added in v.2.109

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26