X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fc-call.lisp;h=32c8f1d68c50584003a84b90a608765d01657287;hb=9998e72f95991aeefd8191bfaf206cd305873f5d;hp=06004e7c3b1e7bab3d49c47c36717fd41c536afc;hpb=14e6b397a2e33ba61a752ed908d398d30fbd4ed9;p=sbcl.git

diff --git a/src/compiler/mips/c-call.lisp b/src/compiler/mips/c-call.lisp
index 06004e7..32c8f1d 100644
--- a/src/compiler/mips/c-call.lisp
+++ b/src/compiler/mips/c-call.lisp
@@ -315,6 +315,7 @@
 ;;; callback wrapper
 #-sb-xc-host
 (defun alien-callback-assembler-wrapper (index result-type argument-types)
+  #!+sb-doc
   "Cons up a piece of code which calls enter-alien-callback with INDEX
 and a pointer to the arguments."
   (flet ((make-gpr (n)