X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-array.lisp;h=e0925e5a862648dd362250a03666fb5fd6430468;hb=45bc305be4e269d2e1a477c8e0ae9a64df1ccd1c;hp=ba48b3dd4462790077197097001581070c70c4b2;hpb=f1ffbf976aaa50b7b22f126b97e34afe06a91210;p=sbcl.git

diff --git a/src/compiler/generic/vm-array.lisp b/src/compiler/generic/vm-array.lisp
index ba48b3d..e0925e5 100644
--- a/src/compiler/generic/vm-array.lisp
+++ b/src/compiler/generic/vm-array.lisp
@@ -179,3 +179,9 @@
   #!+sb-doc
   "An alist for mapping simple array element types to their
 corresponding primitive types.")
+
+(in-package "SB!C")
+
+(defun find-saetp (element-type)
+  (find element-type sb!vm:*specialized-array-element-type-properties*
+        :key #'sb!vm:saetp-specifier :test #'equal))