0.9.2.46:

[sbcl.git] / src / compiler / sset.lisp

diff --git a/src/compiler/sset.lisp b/src/compiler/sset.lisp
index cbf8f47..4f7f1eb 100644 (file)
--- a/src/compiler/sset.lisp
+++ b/src/compiler/sset.lisp
@@ -19,7 +19,7 @@
 ;;; SSET-ELEMENT structure. We allow an initial value of NIL to mean
 ;;; that no ordering has been assigned yet (although an ordering must
 ;;; be assigned before doing set operations.)
-(defstruct (sset-element (:constructor nil)
+(def!struct (sset-element (:constructor nil)
                         (:copier nil))
   (number nil :type (or index null)))