diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 01:40:13 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 01:40:13 +0200 |
commit | 75c2ba4fc3f05d61beea196d64d85f5595864535 (patch) | |
tree | f0b8b3278a72d5daa07e242d110060f5d09d296f /Lisp/constant-data.lisp | |
parent | c9d12c3ac0b14ec509ab63ac8d915bcf33f5ae06 (diff) |
Remove even more code that has become obsolete through the new version of INVOKE-BY-NAME.
darcs-hash:06fc98c5e106ac3fc0fd07ac5cc226ea431d265d
Diffstat (limited to 'Lisp/constant-data.lisp')
-rw-r--r-- | Lisp/constant-data.lisp | 39 |
1 files changed, 1 insertions, 38 deletions
diff --git a/Lisp/constant-data.lisp b/Lisp/constant-data.lisp index 7922c4f..7d973b7 100644 --- a/Lisp/constant-data.lisp +++ b/Lisp/constant-data.lisp @@ -55,28 +55,6 @@ (complex . #\j))) -(defparameter *objcl-data-map* - '((id . id-val) - (class . class-val) - (exc . exc-val) - (sel . sel-val) - (chr . char-val) - (uchr . char-val) - (sht . short-val) - (usht . short-val) - (int . int-val) - (uint . int-val) - (lng . long-val) - (ulng . long-val) - (lng-lng . long-long-val) - (ulng-lng . long-long-val) - (flt . float-val) - (dbl . double-val) - (bool . bool-val) - (ptr . ptr-val) - (charptr . charptr-val))) - - (defparameter *objcl-type-map* '((id . id) (class . objc-class) @@ -97,6 +75,7 @@ (ptr . c-pointer) (charptr . string))) + (defparameter *objcl-c-type-map* '((id . :pointer) (class . :pointer) @@ -125,26 +104,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*))) - -(declaim (ftype (function (symbol) symbol) type-name->slot-name)) -(defun type-name->slot-name (type-name) - (cdr (assoc type-name *objcl-data-map*))) - (declaim (ftype (function (symbol) string) type-name->type-id)) (defun type-name->type-id (type-name) (string (cdr (assoc type-name *objcl-api-type-names*)))) -(declaim (ftype (function (string) symbol) type-id->type-name)) -(defun type-id->type-name (type-id) - (car (rassoc (char type-id 0) *objcl-api-type-names*))) - (declaim (ftype (function (symbol) symbol) type-name->c-type)) (defun type-name->c-type (type-name) (cdr (assoc type-name *objcl-c-type-map*))) |