From: Werner LEMBERG Date: Fri, 25 Mar 2005 08:27:58 +0000 (+0000) Subject: * emacs-lisp/cl-macs.el: Replace `illegal' with `invalid'. X-Git-Tag: ttn-vms-21-2-B4~1549 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4920bd1ec414afb7acb3e3d8f057f78abe4a9fa6;p=emacs.git * emacs-lisp/cl-macs.el: Replace `illegal' with `invalid'. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 38e38f2500a..d568d7d0ca4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,7 @@ * calc/calc-forms.el, calc/calc-sel: Replace `illegal' with `invalid'. * midnight.el, vc-cvs.el: Replace `illegal' with `invalid'. + * emacs-lisp/cl-macs.el: Replace `illegal' with `invalid'. 2005-03-24 Stefan Monnier diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 6a801703815..4a46801763a 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -1,6 +1,6 @@ ;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*- -;; Copyright (C) 1993, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1993, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Dave Gillespie ;; Version: 2.02 @@ -2219,7 +2219,7 @@ copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors. (if type (progn (or (memq type '(vector list)) - (error "Illegal :type specifier: %s" type)) + (error "Invalid :type specifier: %s" type)) (if named (setq tag name))) (setq type 'vector named 'true))) (or named (setq descs (delq (assq 'cl-tag-slot descs) descs)))