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

Merged MIPS branch onto trunk.

parent d6aecd91
No related branches found
No related tags found
No related merge requests found
...@@ -16,6 +16,14 @@ ...@@ -16,6 +16,14 @@
(in-package 'c) (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 (defstruct (defstruct-description
(:conc-name dd-) (:conc-name dd-)
(:print-function print-defstruct-description)) (:print-function print-defstruct-description))
...@@ -106,10 +114,7 @@ ...@@ -106,10 +114,7 @@
(declare (ignore s d)) (declare (ignore s d))
(format stream "#<Alien stack info>")))) (format stream "#<Alien stack info>"))))
type type
size size)
head
current
grow)
(defstruct enumeration-info (defstruct enumeration-info
......
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