From bfb6e2cef7ec2409e87da4d174dcf18af7bd9215 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 13 Jul 2009 23:49:26 +0200 Subject: [PATCH] Remove debug statement --- src/cmp/cmptype.lsp | 1 - 1 file changed, 1 deletion(-) diff --git a/src/cmp/cmptype.lsp b/src/cmp/cmptype.lsp index d9efba2ea..8ec00daff 100644 --- a/src/cmp/cmptype.lsp +++ b/src/cmp/cmptype.lsp @@ -226,7 +226,6 @@ (eq i2 '&rest) (eq i2 '&optional)) (nreverse output) nil)) - (print (list i1 i2 t1 t2 phase1 phase2 phase3 output)) (cond ((eq i1 '&optional) (when phase1 (type-error t1-orig)) (setf phase1 '&optional)