From 7274f62e79a2a93390eec96d253006a9745bf3fc Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 18 Dec 1990 20:41:44 +0000
Subject: [PATCH] Nuked defun of structurify.

---
 code/struct.lisp | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/code/struct.lisp b/code/struct.lisp
index d102553a2..f6042f268 100644
--- a/code/struct.lisp
+++ b/code/struct.lisp
@@ -16,13 +16,6 @@
 
 (in-package 'c)
 
-#+new-compiler
-(defun structurify (vec)
-  "Frobs a vector to turn it into a named structure.  Returns the vector."
-  (declare (simple-vector vec))
-  (structurify vec))
-
-
 (defstruct (defstruct-description
              (:conc-name dd-)
              (:print-function print-defstruct-description))
-- 
GitLab