X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsset.lisp;h=4f7f1eb528ce1de7aa362ecbc5a9a6619a5ac4e1;hb=079ef9dad558ca07cb8178ef428bf738112174fa;hp=cbf8f47612ab0f9d2164581fa7a6232dcc90e16a;hpb=942e5de3f3e27e1cc6ae4aae69c040fa1dc7db00;p=sbcl.git

diff --git a/src/compiler/sset.lisp b/src/compiler/sset.lisp
index cbf8f47..4f7f1eb 100644
--- 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)))