From 43dd4b50fa68d042ecea80affd4c558ed7dfcf4a Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 17 Oct 2010 16:49:45 +0200 Subject: [PATCH] In C-INLINE forms, ## is replaced with a single hash # character. --- src/cmp/cmpffi.lsp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp index 321c1916f..cf1b1bb8e 100644 --- a/src/cmp/cmpffi.lsp +++ b/src/cmp/cmpffi.lsp @@ -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*))))))