From 19a3dc32e4fdc1743f0317cacf8c80acbd71d4ae Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 13 Mar 2008 21:34:18 +0100
Subject: Add a simple example use case for the type declaration reader macro.

darcs-hash:9c106c264ce3bd412038f9271cd6957ebd50c155
---
 Lisp/internal-reader-syntax.lisp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/Lisp/internal-reader-syntax.lisp b/Lisp/internal-reader-syntax.lisp
index b637f85..fd2ec5f 100644
--- a/Lisp/internal-reader-syntax.lisp
+++ b/Lisp/internal-reader-syntax.lisp
@@ -126,3 +126,18 @@
                          collect `(type ,type ,arg-name)))
              (the ,return-type
                ,@real-body))))))))
+
+
+;; Quick test.
+#||
+\(progn
+   #.(disable-type-declaration-syntax)
+   #.(enable-type-declaration-syntax)
+   (pprint
+    '#? symbol t * &rest list ->
+    (defun typespec-name->type-id (typespec-name x y &rest rest)
+      "abc"
+      (declare foo)
+      "mulk"
+      (type-name->type-id (typespec-name->type-name typespec-name)))))
+||#
-- 
cgit v1.2.3