Commit 4920bd1e authored by Werner LEMBERG's avatar Werner LEMBERG
Browse files

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

parent aaed846c
......@@ -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>
 
......
;;; 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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment