1.0.28.19: faster ARRAY-DIMENSION for non-vectors

[sbcl.git] / src / compiler / generic / objdef.lisp

diff --git a/src/compiler/generic/objdef.lisp b/src/compiler/generic/objdef.lisp
index 09c331f..9869837 100644 (file)
--- a/src/compiler/generic/objdef.lisp
+++ b/src/compiler/generic/objdef.lisp
@@ -131,6 +131,13 @@
                :ref-known (flushable foldable)
                :set-trans (setf %array-displaced-p)
                :set-known (unsafe))
+  (displaced-from :type list
+                  :ref-trans %array-displaced-from
+                  :ref-known (flushable)
+                  :set-trans (setf %array-displaced-from)
+                  :set-known (unsafe)
+                  :cas-trans %compare-and-swap-array-displaced-from
+                  :cas-known (unsafe))
   (dimensions :rest-p t))
 
 (define-primitive-object (vector :type vector