diff --git a/code/struct.lisp b/code/struct.lisp index de5719767947e474411b01bd4cdff931f98d18b8..d102553a2538d16820f3e5252ea7edbf48054662 100644 --- a/code/struct.lisp +++ b/code/struct.lisp @@ -17,11 +17,10 @@ (in-package 'c) #+new-compiler -(proclaim '(inline structurify)) -#+new-compiler -(defun structurify (structure) +(defun structurify (vec) "Frobs a vector to turn it into a named structure. Returns the vector." - (set-header-data structure vm:vector-structure-subtype)) + (declare (simple-vector vec)) + (structurify vec)) (defstruct (defstruct-description