remove misplaced AVER
authorChristophe Rhodes <csr21@cantab.net>
Mon, 18 Nov 2013 14:07:48 +0000 (14:07 +0000)
committerChristophe Rhodes <csr21@cantab.net>
Mon, 18 Nov 2013 14:11:58 +0000 (14:11 +0000)
(defstruct nil x) is clearly never going to work, but doesn't
deserve the scary "probably a bug in SBCL itself" message

src/code/defstruct.lisp

index 49e66ba..f42de7b 100644 (file)
 ;;; 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)