Changed error message for c-inline

This commit is contained in:
Juan Jose Garcia Ripoll 2012-06-02 09:50:20 +02:00
parent 06d474e33b
commit be2136dca2

View file

@ -507,8 +507,8 @@
(unless (and (listp arguments)
(listp arg-types)
(stringp c-expression))
(cmperr "C-INLINE: wrong type of arguments ~S"
arguments arg-types c-expression))
(cmperr "C-INLINE: syntax error in ~S"
(list* 'c-inline args)))
(do ((processed-arguments '())
(processed-arg-types '()))
((and (endp arguments) (endp arg-types))