1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00

(toplevel): Require `cl' when compiling.

This commit is contained in:
Colin Walters 2002-01-16 06:33:20 +00:00
parent 7f551e47f1
commit 0033265602

View File

@ -1,11 +1,9 @@
;;; ibuf-macs.el --- macros for ibuffer
;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.
;; Author: Colin Walters <walters@verbum.org>
;; Created: 6 Dec 2001
;; X-RCS: $Id: ibuf-macs.el,v 1.6 2001/12/11 22:47:09 walters Exp $
;; URL: http://cvs.verbum.org/ibuffer
;; Keywords: buffer, convenience
;; This file is not currently part of GNU Emacs.
@ -27,6 +25,9 @@
;;; Code:
(eval-when-compile
(require 'cl))
;; From Paul Graham's "ANSI Common Lisp", adapted for Emacs Lisp here.
(defmacro ibuffer-aif (test true-body &rest false-body)
"Evaluate TRUE-BODY or FALSE-BODY depending on value of TEST.