Mercurial > emacs
diff lisp/emacs-lisp/cl-macs.el @ 53873:43366e9eb88a
(defstruct): Remove extra format string
argument.
(cl-struct-setf-expander): Likewise.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 08 Feb 2004 22:41:39 +0000 |
| parents | 695cf19ef79e |
| children | a0ba84563db6 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el Sun Feb 08 22:41:18 2004 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Sun Feb 08 22:41:39 2004 +0000 @@ -1,6 +1,6 @@ ;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*- -;; Copyright (C) 1993, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1993, 2003, 2004 Free Software Foundation, Inc. ;; Author: Dave Gillespie <daveg@synaptics.com> ;; Version: 2.02 @@ -2261,8 +2261,7 @@ (list (list 'or pred-check (list 'error (format "%s accessing a non-%s" - accessor name) - 'cl-x)))) + accessor name))))) (list (if (eq type 'vector) (list 'aref 'cl-x pos) (if (= pos 0) '(car cl-x) (list 'nth pos 'cl-x)))))) forms) @@ -2340,8 +2339,7 @@ (list (list 'or (subst temp 'cl-x pred-form) (list 'error (format - "%s storing a non-%s" accessor name) - temp)))) + "%s storing a non-%s" accessor name))))) (list (if (eq (car (get name 'cl-struct-type)) 'vector) (list 'aset temp pos store) (list 'setcar