From 18dc0069cd514c976042766ab9a785c970fe1603 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Mon, 18 Nov 2013 14:07:48 +0000 Subject: [PATCH] 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 --- src/code/defstruct.lisp | 1 - 1 file changed, 1 deletion(-) 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) -- 1.7.10.4