X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefstruct.lisp;h=84d841879900969447317f9204bc88053a5a5041;hb=b1a4f6376799a402903e75d111ef29bdc25e0582;hp=a3dbf1e2a48aa384d168e11aa5b77706a4b5306e;hpb=60702dcb5f09605c1728397a8961388386bcac70;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index a3dbf1e..84d8418 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -1725,4 +1725,12 @@
          (inherits (inherits-for-structure dd)))
     (%compiler-defstruct dd inherits)))
 
+;;; finding these beasts
+(defun find-defstruct-description (name &optional (errorp t))
+  (let ((info (layout-info (classoid-layout (find-classoid name errorp)))))
+    (if (defstruct-description-p info)
+        info
+        (when errorp
+          (error "No DEFSTRUCT-DESCRIPTION for ~S." name)))))
+
 (/show0 "code/defstruct.lisp end of file")