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

parent 330ee771
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment