diff options
| author | Andreas Schwab <schwab@suse.de> | 2004-02-08 22:41:39 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2004-02-08 22:41:39 +0000 |
| commit | c971696d040d9d7411a1ceeaf57e7c8e0ba490bf (patch) | |
| tree | 90a6335254d881388e70330adb9480c0232e906c | |
| parent | 0b762d9a539981b74159a2ba7243cf8acf39c3d7 (diff) | |
| download | emacs-c971696d040d9d7411a1ceeaf57e7c8e0ba490bf.tar.gz | |
(defstruct): Remove extra format string
argument.
(cl-struct-setf-expander): Likewise.
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 038786bb944..6a6b006c2ba 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -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 @@ copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors. (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 @@ copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors. (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 |