X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefstruct.lisp;h=f42de7b711fc36d01638016670d7a67e53734d26;hb=18dc0069cd514c976042766ab9a785c970fe1603;hp=49e66bacae7f4aae461243bc7ee3a85655b98e2c;hpb=792668aff416a047bb3df218d448d8660303d1db;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 49e66ba..f42de7b 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -624,7 +624,6 @@
 ;;; Given name and options, return a DD holding that info.
 (defun parse-defstruct-name-and-options (name-and-options)
   (destructuring-bind (name &rest options) name-and-options
-    (aver name) ; A null name doesn't seem to make sense here.
     (let ((dd (make-defstruct-description name))
           (predicate-named-p nil))
       (dolist (option options)