diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-15 23:52:00 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-15 23:52:00 +0200 |
commit | d9ac18064cf40f6fbbb09ec8ca74de212c012326 (patch) | |
tree | d76e3158d597d7df2b0f53bd8ce7d97c8898b1c6 /Lisp/constant-data.lisp | |
parent | 73ca06d6c103bae75e837e2966c757a42d3a7969 (diff) |
Reimplement PRIMITIVE-INVOKE and rename the old version UNSAFE-PRIMITIVE-INVOKE.
darcs-hash:a941bade2677db3d5773c20ffda171c7c9721a98
Diffstat (limited to 'Lisp/constant-data.lisp')
-rw-r--r-- | Lisp/constant-data.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Lisp/constant-data.lisp b/Lisp/constant-data.lisp index 29169de..efda456 100644 --- a/Lisp/constant-data.lisp +++ b/Lisp/constant-data.lisp @@ -108,6 +108,10 @@ (typep value type)) *objcl-type-map*))) +(declaim (ftype (function (symbol) symbol) lisp-type->type-name)) +(defun lisp-type->type-name (lisp-type) + (cdr (rassoc lisp-type *objcl-type-map*))) + (declaim (ftype (function (symbol) symbol) type-name->lisp-type)) (defun type-name->lisp-type (type-name) (cdr (assoc type-name *objcl-type-map*))) |