diff options
| -rw-r--r-- | Lisp/internal-reader-syntax.lisp | 15 |
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))))) +||# |