X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-misc.lisp;h=1753e34996c685c11bca39a1d83ec6878ada3f72;hb=6e60dc9f79037ab84f5bfd8568979c24291c9922;hp=4503861fd58d25740de1c499285117cd1e7b250d;hpb=b71b8da241791687e7752f917ca032d937ba2bbf;p=sbcl.git

diff --git a/src/code/cross-misc.lisp b/src/code/cross-misc.lisp
index 4503861..1753e34 100644
--- a/src/code/cross-misc.lisp
+++ b/src/code/cross-misc.lisp
@@ -126,7 +126,8 @@
 ;;; the host Lisp, this is only used at cold load time, and we don't
 ;;; care as much about efficiency, so it's fine to treat the host
 ;;; Lisp's INTERN as primitive and implement INTERN* in terms of it.
-(defun intern* (nameoid length package)
+(defun intern* (nameoid length package &key no-copy)
+  (declare (ignore no-copy))
   (intern (replace (make-string length) nameoid :end2 length) package))
 
 ;;; In the target Lisp this is implemented by reading a fixed slot in