From ab01e4bf4d0fa0609e50a82f8bb9fa510634c1d6 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 24 Aug 1990 18:02:21 +0000
Subject: [PATCH] Merged MIPS branch onto trunk.

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

diff --git a/code/struct.lisp b/code/struct.lisp
index 9488ab772..de5719767 100644
--- a/code/struct.lisp
+++ b/code/struct.lisp
@@ -16,6 +16,14 @@
 
 (in-package 'c)
 
+#+new-compiler
+(proclaim '(inline structurify))
+#+new-compiler
+(defun structurify (structure)
+  "Frobs a vector to turn it into a named structure.  Returns the vector."
+  (set-header-data structure vm:vector-structure-subtype))
+
+
 (defstruct (defstruct-description
              (:conc-name dd-)
              (:print-function print-defstruct-description))
@@ -106,10 +114,7 @@
 	       (declare (ignore s d))
 	       (format stream "#<Alien stack info>"))))
   type
-  size
-  head
-  current
-  grow)
+  size)
 
 
 (defstruct enumeration-info
-- 
GitLab