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