From 81fe990c9d50f6003f883f9b99c70a00a73f738a Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 4 Oct 1990 23:03:51 +0000
Subject: [PATCH] Changed structurify to be a magic function.

---
 code/struct.lisp | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/code/struct.lisp b/code/struct.lisp
index de5719767..d102553a2 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
-- 
GitLab