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

Allo (declare (notinline (setf ...))) (A. Gavrilov)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-07-11 12:35:00 +02:00
parent 330ee771d8
commit 905475f954
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpenv-fun.lsp
View file

@ -133,7 +133,7 @@
collect (cons name t))))
(defun declare-notinline (fname-list &optional (env *cmp-env*))
(unless (every #'symbolp fname-list)
(unless (every #'si::valid-function-name-p fname-list)
(cmperr "Not a valid argument to NOTINLINE declaration~%~4I~A"
fname-list))
(cmp-env-extend-declaration 'INLINE