make '!' reader macro non-breaking

lisp · Aug 4, 2010 · 94ee717 · 94ee717
1 parent c81ba4e
commit 94ee717
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/data.lisp b/src/core/data.lisp
@@ -401,7 +401,7 @@
       (unresolved-node (read-using *name-reader* stream t))))
 
   (defun enable-node-shorthand ()
-    (set-macro-character #\! #'inline-node-reader))
+    (set-macro-character #\! #'inline-node-reader t))
 
   (enable-node-shorthand))