0.6.11.10:

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

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 7c1f63d..1cf9b43 100644 (file)
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -215,9 +215,9 @@
 ;;;; we don't need to do horrible things like hand-copying the
 ;;;; direntry struct slot types into an alien struct.
 
-;;; FIXME: DIRECTORY is an external symbol of package CL, so we should use some
-;;; other name for this low-level implementation type.
-(defstruct directory
+;;; FIXME: DIRECTORY is an external symbol of package CL, so we should
+;;; use some other name for this low-level implementation type.
+(defstruct (directory (:copier nil))
   name
   (dir-struct (required-argument) :type system-area-pointer))
 (/show0 "unix.lisp 304")