From 5e32727b7b2929f5cebc81f66c9006610abfa86b Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Sat, 6 Dec 2014 14:58:47 -0500 Subject: [PATCH] Remove inadvertent piece of prior change. --- src/compiler/proclaim.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/compiler/proclaim.lisp b/src/compiler/proclaim.lisp index 6ba74d73d..f8f79c34c 100644 --- a/src/compiler/proclaim.lisp +++ b/src/compiler/proclaim.lisp @@ -274,10 +274,8 @@ decl-spec)))) (defun sb!xc:proclaim (raw-form) - #+sb-xc - (progn #!-win32 (progn (write `(proclaiming ,raw-form)) (terpri)) - #!+win32 (progn (/show0 "entering PROCLAIM, RAW-FORM=..") - (/hexstr raw-form))) + #+sb-xc (/show0 "entering PROCLAIM, RAW-FORM=..") + #+sb-xc (/hexstr raw-form) (destructuring-bind (&whole form &optional kind &rest args) (canonized-decl-spec raw-form) (labels ((map-names (names function &rest extra-args) -- 2.11.4.GIT