From: Christophe Rhodes <csr21@cantab.net>
Date: Mon, 18 Nov 2013 14:07:48 +0000 (+0000)
Subject: remove misplaced AVER
X-Git-Url: http://repo.macrolet.net/gitweb/?p=sbcl.git;a=commitdiff_plain;h=18dc0069cd514c976042766ab9a785c970fe1603

remove misplaced AVER

(defstruct nil x) is clearly never going to work, but doesn't
deserve the scary "probably a bug in SBCL itself" message
---

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)