Mercurial > emacs

comparison lisp/emacs-lisp/cl-macs.el @ 90133:4da4a09e8b1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-31 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 206-222) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 45-52) - Update from CVS - Update from CVS: texi Makefile.in CVS keyw cruft - Update from CVS: ChangeLog tweaks
author Miles Bader <miles@gnu.org>
date Thu, 31 Mar 2005 09:58:14 +0000
parents f2ebccfa87d4 42c42c6d71ed
children 62afea0771d8
comparison
equal deleted inserted replaced
90132:4080fe8b4f0f 90133:4da4a09e8b1b
1 ;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*- 1 ;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*-
2 2
3 ;; Copyright (C) 1993, 2003, 2004 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993, 2003, 2004, 2005 Free Software Foundation, Inc.
4 4
5 ;; Author: Dave Gillespie <daveg@synaptics.com> 5 ;; Author: Dave Gillespie <daveg@synaptics.com>
6 ;; Version: 2.02 6 ;; Version: 2.02
7 ;; Keywords: extensions 7 ;; Keywords: extensions
8 8
2217 forms) 2217 forms)
2218 (setq incl (get incl 'cl-struct-include))))) 2218 (setq incl (get incl 'cl-struct-include)))))
2219 (if type 2219 (if type
2220 (progn 2220 (progn
2221 (or (memq type '(vector list)) 2221 (or (memq type '(vector list))
2222 (error "Illegal :type specifier: %s" type)) 2222 (error "Invalid :type specifier: %s" type))
2223 (if named (setq tag name))) 2223 (if named (setq tag name)))
2224 (setq type 'vector named 'true))) 2224 (setq type 'vector named 'true)))
2225 (or named (setq descs (delq (assq 'cl-tag-slot descs) descs))) 2225 (or named (setq descs (delq (assq 'cl-tag-slot descs) descs)))
2226 (push (list 'defvar tag-symbol) forms) 2226 (push (list 'defvar tag-symbol) forms)
2227 (setq pred-form (and named 2227 (setq pred-form (and named