diff options
Diffstat (limited to 'Lisp')
| -rw-r--r-- | Lisp/constant-data.lisp | 5 | ||||
| -rw-r--r-- | Lisp/internal-reader-syntax.lisp | 6 | ||||
| -rw-r--r-- | Lisp/libobjcl.lisp | 5 |
3 files changed, 8 insertions, 8 deletions
diff --git a/Lisp/constant-data.lisp b/Lisp/constant-data.lisp index ab1e6f0..c6cffaf 100644 --- a/Lisp/constant-data.lisp +++ b/Lisp/constant-data.lisp @@ -16,7 +16,7 @@ ;;;; <http://www.gnu.org/licenses/>. (in-package #:mulk.objective-cl) -#.(enable-type-declaration-syntax) +#.(in-type-declaration-syntax) ;;;; (@* "Allocation Parameters") @@ -173,6 +173,3 @@ #? symbol -> string (defun typespec-name->type-id (typespec-name) (type-name->type-id (typespec-name->type-name typespec-name))) - - -#.(disable-type-declaration-syntax) diff --git a/Lisp/internal-reader-syntax.lisp b/Lisp/internal-reader-syntax.lisp index 2c38534..2586b10 100644 --- a/Lisp/internal-reader-syntax.lisp +++ b/Lisp/internal-reader-syntax.lisp @@ -33,6 +33,12 @@ (values)) +(defun in-type-declaration-syntax () + (setq *readtable* (copy-readtable *readtable*)) + (set-dispatch-macro-character #\# #\? #'read-type-declaration) + (values)) + + (defun enable-type-declaration-syntax () (save-readtable) (set-dispatch-macro-character #\# #\? #'read-type-declaration) diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index bcdcd27..e8b66f4 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -16,7 +16,7 @@ ;;;; <http://www.gnu.org/licenses/>. (in-package #:mulk.objective-cl) -#.(enable-type-declaration-syntax) +#.(in-type-declaration-syntax) (eval-when (:compile-toplevel :load-toplevel :execute) @@ -1016,6 +1016,3 @@ __enable-method-syntax__. #? (or id objective-c-class exception) -> t (defun objcl-object-backed-by-lisp-class-p (instance) (objcl-object-backed-by-lisp-class-p/pointer (pointer-to instance))) - - -#.(disable-type-declaration-syntax) |