diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-13 18:11:12 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-13 18:11:12 +0100 |
commit | 4f294ea0c5f54751e90fa27860613b017c050698 (patch) | |
tree | 1b67c688353000e4404bc2804158f984ec37199d /Lisp/constant-data.lisp | |
parent | 77a40a1b44afddde7bdb15278a199584e8670b95 (diff) |
Use the new type declaration reader macro in Objective-CL code.
darcs-hash:ba8b3023e541d9e723704583e3f6ffb7a9b3898a
Diffstat (limited to 'Lisp/constant-data.lisp')
-rw-r--r-- | Lisp/constant-data.lisp | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/Lisp/constant-data.lisp b/Lisp/constant-data.lisp index 7829554..ab1e6f0 100644 --- a/Lisp/constant-data.lisp +++ b/Lisp/constant-data.lisp @@ -16,6 +16,7 @@ ;;;; <http://www.gnu.org/licenses/>. (in-package #:mulk.objective-cl) +#.(enable-type-declaration-syntax) ;;;; (@* "Allocation Parameters") @@ -151,22 +152,27 @@ ;;;; (@* "Constant accessors") -(declaim (ftype (function (*) symbol) lisp-value->type-name)) +#? * -> symbol (defun lisp-value->type-name (value) (car (rassoc-if #'(lambda (type) (typep value type)) *objcl-type-map*))) -(declaim (ftype (function (symbol) string) type-name->type-id)) +#? symbol -> string (defun type-name->type-id (type-name) (string (cdr (assoc type-name *objcl-api-type-names*)))) -(declaim (ftype (function (symbol) symbol) type-name->c-type)) +#? symbol -> symbol (defun type-name->c-type (type-name) (cdr (assoc type-name *objcl-c-type-map*))) +#? symbol -> symbol (defun typespec-name->type-name (typespec-name) (cdr (assoc typespec-name *objcl-typespec-map*))) +#? symbol -> string (defun typespec-name->type-id (typespec-name) (type-name->type-id (typespec-name->type-name typespec-name))) + + +#.(disable-type-declaration-syntax) |