From c762dea2e72a1fe87595494164384e5cae0c6aef Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 30 Jul 2011 12:21:33 +0200 Subject: [PATCH] Remove debug statements in cmpffi.lsp --- src/cmp/cmpffi.lsp | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp index 45b488dac..6d4318e2a 100644 --- a/src/cmp/cmpffi.lsp +++ b/src/cmp/cmpffi.lsp @@ -317,8 +317,6 @@ loc-type loc-rep-type dest-type dest-rep-type)) (ensure-valid-object-type (a-lisp-type) (when (subtypep `(AND ,loc-type ,a-lisp-type) NIL) - (print (list a-lisp-type loc-type loc-rep-type - dest-type dest-rep-type)) (coercion-error)))) (when (eq dest-rep-type loc-rep-type) (wt loc) @@ -648,8 +646,6 @@ ((< index (length coerced-arguments)) (wt (nth index coerced-arguments))) (t - (print k) - (print index) (cmperr "C-INLINE: Variable code exceeds number of arguments"))))) (otherwise (write-char c *compiler-output1*))))))