1.0.4.55: Optimized REPLACE and UB*-BASH-COPY routines

[sbcl.git] / src / compiler / generic / vm-array.lisp

diff --git a/src/compiler/generic/vm-array.lisp b/src/compiler/generic/vm-array.lisp
index ba48b3d..e0925e5 100644 (file)
--- 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))