From 3684f6c8e23ad3484cb3bb39a75f52bdda7a503d Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 5 Sep 2008 00:03:57 +0200 Subject: [PATCH] Fixed typo --- src/cmp/cmpffi.lsp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp index fd4845201..7db92f033 100644 --- a/src/cmp/cmpffi.lsp +++ b/src/cmp/cmpffi.lsp @@ -343,7 +343,8 @@ ((>= ndx (length c-expression))) (let ((c (char c-expression ndx))) (when (eq c #\;) - (setf c-expression (subseq c-expression (1+ c)))) + (setf c-expression (subseq c-expression (1+ ndx))) + (return)) (unless (alphanumericp c) (setf args-to-be-saved nil) (return))