mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

* emacs-lisp/cl-macs.el: Replace illegal' with invalid'.

Browse Source
This commit is contained in:
Werner LEMBERG 2005-03-25 08:27:58 +00:00
parent aaed846c01
commit 4920bd1ec4
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

@ -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 <monnier@iro.umontreal.ca>

4
lisp/emacs-lisp/cl-macs.el
View File

@ -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 <daveg@synaptics.com>
;; 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)))