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