procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(defstruct): Remove extra format string

Browse source 
argument.
(cl-struct-setf-expander): Likewise.
This commit is contained in:
Andreas Schwab 2004-02-08 22:41:39 +00:00
parent 0b762d9a53
commit c971696d04
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/cl-macs.el
View file

@ -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