summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/internal-reader-syntax.lisp15
1 files changed, 15 insertions, 0 deletions
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)))))
+||#