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

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index 2c78ce0..af0fbf7 100644
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -217,8 +217,8 @@
 ;;; The basic interval type. It can handle open and closed intervals.
 ;;; A bound is open if it is a list containing a number, just like
 ;;; Lisp says. NIL means unbounded.
-(defstruct (interval
-	     (:constructor %make-interval))
+(defstruct (interval (:constructor %make-interval)
+		     (:copier nil))
   low high)
 
 (defun make-interval (&key low high)