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 @@ ...@@ -3,6 +3,7 @@
* calc/calc-forms.el, calc/calc-sel: Replace `illegal' with * calc/calc-forms.el, calc/calc-sel: Replace `illegal' with
`invalid'. `invalid'.
* midnight.el, vc-cvs.el: 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> 2005-03-24 Stefan Monnier <monnier@iro.umontreal.ca>
   
......
;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*- ;;; 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> ;; Author: Dave Gillespie <daveg@synaptics.com>
;; Version: 2.02 ;; Version: 2.02
...@@ -2219,7 +2219,7 @@ copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors. ...@@ -2219,7 +2219,7 @@ copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors.
(if type (if type
(progn (progn
(or (memq type '(vector list)) (or (memq type '(vector list))
(error "Illegal :type specifier: %s" type)) (error "Invalid :type specifier: %s" type))
(if named (setq tag name))) (if named (setq tag name)))
(setq type 'vector named 'true))) (setq type 'vector named 'true)))
(or named (setq descs (delq (assq 'cl-tag-slot descs) descs))) (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