From: David Vázquez <davazp@gmail.com>
Date: Thu, 6 Jun 2013 11:44:16 +0000 (+0100)
Subject: #j macrocharacter as synonymous of #J
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=93bd506fb137f058bf353678223ce8d48a66e3dc;p=jscl.git

#j macrocharacter as synonymous of #J
---

diff --git a/src/read.lisp b/src/read.lisp
index e8ca5eb..1d057bd 100644
--- a/src/read.lisp
+++ b/src/read.lisp
@@ -247,7 +247,7 @@
              (ls-read stream eof-error-p eof-value t)
              (prog2 (ls-read stream)
                  (ls-read stream eof-error-p eof-value t)))))
-      (#\J
+      ((#\J #\j)
        (unless (char= (%peek-char stream) #\:)
          (error "FFI descriptor must start with a semicolon."))
        (let ((descriptor (subseq (read-until stream #'terminalp) 1))