From 93bd506fb137f058bf353678223ce8d48a66e3dc Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Thu, 6 Jun 2013 12:44:16 +0100 Subject: [PATCH] #j macrocharacter as synonymous of #J --- src/read.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 1.7.10.4