0.8.3.55:

[sbcl.git] / src / compiler / early-c.lisp

diff --git a/src/compiler/early-c.lisp b/src/compiler/early-c.lisp
index 1faa6f8..6f2fe93 100644 (file)
--- a/src/compiler/early-c.lisp
+++ b/src/compiler/early-c.lisp
@@ -174,6 +174,7 @@ convention (names like *FOO*) for special variables" symbol))
 ;;; FIXME: This function seems to have a lot in common with
 ;;; STRINGIFY-FORM, and perhaps there's some way to merge the two
 ;;; functions.
+(declaim (ftype (sfunction (string &rest t) string) debug-namify))
 (defun debug-namify (format-string &rest format-arguments)
   (with-standard-io-syntax
    (let ((*print-readably* nil)