0.6.11.10:

[sbcl.git] / src / code / signal.lisp

diff --git a/src/code/signal.lisp b/src/code/signal.lisp
index 5978b25..ddaf73f 100644 (file)
--- a/src/code/signal.lisp
+++ b/src/code/signal.lisp
@@ -104,7 +104,8 @@
 ;;;; utilities for dealing with signal names and numbers
 
 (defstruct (unix-signal
-           (:constructor make-unix-signal (%name %number %description)))
+           (:constructor make-unix-signal (%name %number %description))
+           (:copier nil))
   %name                                    ; signal keyword
   (%number nil :type integer)       ; UNIX signal number
   (%description nil :type string))  ; documentation