mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-08 02:10:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Allow (SETF ...) function names to appear in proclamations

Browse source
This commit is contained in:
jjgarcia 2005-01-11 17:43:34 +00:00
parent 8ef48dd950
commit e4aa8f5df0
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/cmp/cmpenv.lsp
View file

@ -206,19 +206,19 @@
(t (cmpwarn "Bad function proclamation ~a" decl)))))
(INLINE
(dolist (fun (cdr decl))
(if (symbolp fun)
(rem-sysprop fun 'CMP-NOTINLINE)
(warn "The function name ~s is not a symbol." fun))))
(if (si::valid-function-name-p fun)
(rem-sysprop fun 'CMP-NOTINLINE)
(warn "Not a valid function name ~s" fun))))
(NOTINLINE
(dolist (fun (cdr decl))
(if (symbolp fun)
(put-sysprop fun 'CMP-NOTINLINE t)
(warn "The function name ~s is not a symbol." fun))))
(if (si::valid-function-name-p fun)
(put-sysprop fun 'CMP-NOTINLINE t)
(warn "Not a valid function name ~s" fun))))
((OBJECT IGNORE DYNAMIC-EXTENT IGNORABLE)
;; FIXME! IGNORED!
(dolist (var (cdr decl))
(unless (symbolp var)
(warn "The variable name ~s is not a symbol." var))))
(unless (si:.valid-function-name-p var)
(warn "Not a valid function name ~s" fun))))
(DECLARATION
(dolist (x (cdr decl))
(if (symbolp x)