Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b9b14938
Commit
b9b14938
authored
Dec 11, 2006
by
Richard M. Stallman
Browse files
(defstruct): Suppress warnings about calls to cl-struct-setf-expander.
parent
b4249115
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
4 deletions
+9
-4
lisp/emacs-lisp/cl-macs.el
lisp/emacs-lisp/cl-macs.el
+9
-4
No files found.
lisp/emacs-lisp/cl-macs.el
View file @
b9b14938
...
...
@@ -2292,10 +2292,15 @@ copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors.
(
if
(
cadr
(
memq
:read-only
(
cddr
desc
)))
(
list
'error
(
format
"%s is a read-only slot"
accessor
))
(
list
'cl-struct-setf-expander
'cl-x
(
list
'quote
name
)
(
list
'quote
accessor
)
(
and
pred-check
(
list
'quote
pred-check
))
pos
)))
;; If cl is loaded only for compilation,
;; the call to cl-struct-setf-expander would
;; cause a warning because it may not be
;; defined at run time. Suppress that warning.
(
list
'with-no-warnings
(
list
'cl-struct-setf-expander
'cl-x
(
list
'quote
name
)
(
list
'quote
accessor
)
(
and
pred-check
(
list
'quote
pred-check
))
pos
))))
forms
)
(
if
print-auto
(
nconc
print-func
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment