Skip to content
Snippets Groups Projects
Commit 81fe990c authored by wlott's avatar wlott
Browse files

Changed structurify to be a magic function.

parent 9ee5c342
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment