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

In C-INLINE forms, ## is replaced with a single hash # character.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-10-17 16:49:45 +02:00
parent 24b9f04161
commit 43dd4b50fa
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmpffi.lsp
View file

@ -609,11 +609,15 @@
(let* ((k (read-char s))
(next-char (peek-char nil s nil nil))
(index (digit-char-p k 36)))
(cond ((or (null index) (and next-char (alphanumericp next-char)))
(cond ((eq k #\#)
(wt #\#))
((or (null index) (and next-char (alphanumericp next-char)))
(wt #\# k))
((< index (length coerced-arguments))
(wt (nth index coerced-arguments)))
(t
(print k)
(print index)
(cmperr "C-INLINE: Variable code exceeds number of arguments")))))
(otherwise
(write-char c *compiler-output1*))))))