X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsset.lisp;h=aa5f39399074d82603d2f7786b26c22b76fa72f1;hb=0b5610d8a220a4b20cbeac958953ca4d67c00038;hp=6beb85faebc4f9cabfc37cdf95113e9b5b54eb28;hpb=8624c52d7620e8a4d3de23c363e843a10815f4f4;p=sbcl.git

diff --git a/src/compiler/sset.lisp b/src/compiler/sset.lisp
index 6beb85f..aa5f393 100644
--- a/src/compiler/sset.lisp
+++ b/src/compiler/sset.lisp
@@ -19,11 +19,11 @@
 ;;; 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))
+(defstruct (sset-element (:constructor nil)
+			 (:copier nil))
   (number nil :type (or index null)))
 
-(defstruct (sset (:constructor make-sset ())
-		 (:copier nil))
+(defstruct (sset (:constructor make-sset ()))
   (elements (list nil) :type list))
 (defprinter (sset)
   (elements :prin1 (cdr elements)))