Mercurial > emacs

comparison lisp/emacs-lisp/cl-extra.el @ 64684:eb2cbda455c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Require CL also when compiling.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 29 Jul 2005 20:51:34 +0000
parents 18a818a2ee7c
children 5b1a238fcbb4 edf295560b5a
comparison
equal deleted inserted replaced
64683:d8a052666f20 64684:eb2cbda455c6
1 ;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*- 1 ;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*-
2 2
3 ;; Copyright (C) 1993,2000,2003 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993, 2000, 2003, 2005 Free Software Foundation, Inc.
4 4
5 ;; Author: Dave Gillespie <daveg@synaptics.com> 5 ;; Author: Dave Gillespie <daveg@synaptics.com>
6 ;; Keywords: extensions 6 ;; Keywords: extensions
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
36 ;; This file contains portions of the Common Lisp extensions 36 ;; This file contains portions of the Common Lisp extensions
37 ;; package which are autoloaded since they are relatively obscure. 37 ;; package which are autoloaded since they are relatively obscure.
38 38
39 ;;; Code: 39 ;;; Code:
40 40
41 (or (memq 'cl-19 features) 41 (require 'cl)
42 (error "Tried to load `cl-extra' before `cl'!"))
43
44 42
45 ;;; Type coercion. 43 ;;; Type coercion.
46 44
47 (defun coerce (x type) 45 (defun coerce (x type)
48 "Coerce OBJECT to type TYPE. 46 "Coerce OBJECT to type TYPE.
761 759
762 760
763 761
764 (run-hooks 'cl-extra-load-hook) 762 (run-hooks 'cl-extra-load-hook)
765 763
766 ;;; arch-tag: bcd03437-0871-43fb-a8f1-ad0e0b5427ed 764 ;; arch-tag: bcd03437-0871-43fb-a8f1-ad0e0b5427ed
767 ;;; cl-extra.el ends here 765 ;;; cl-extra.el ends here