From c6f219ba96b4342ebb1e65ebf7b34b48a749660c Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Fri, 19 Jul 2013 13:54:57 +0200
Subject: Remove debug-prints.

---
 sb-eval2.lisp | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

(limited to 'sb-eval2.lisp')

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 9f15ba7..57ab5ea 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -496,21 +496,16 @@
                                (vari 0)
                                (i 0))
                           (declare (fixnum restnum argi vari i))
-                          (print varspecs)
-                          (print my-default-values*)
                           (labels
                               ((iter ()
-                                 (print "ITER")
                                  (flet ((push-args (&rest values)
                                           ;; Push VALUES onto the
                                           ;; environment.
-                                          (format t "~&PUSH-ARG ~D" vari)
                                           (let ((dynvals (list))
                                                 (dynvars (list)))
                                             (dolist (value values)
                                               (incf i)
                                               (let ((varspec (pop my-varspecs)))
-                                                (format t "~&VARSPEC = ~S" varspec)
                                                 (if (eq varspec :lexical)
                                                     (progn
                                                       (setf
@@ -518,7 +513,8 @@
                                                        value)
                                                       (incf vari))
                                                     (progn
-                                                      (assert (eq :special (car varspec))
+                                                      (assert (eq :special
+                                                                  (car varspec))
                                                               (varspec))
                                                       (push (cdr varspec) dynvars)
                                                       (push value dynvals)))))
@@ -530,20 +526,17 @@
                                    (declare (inline push-args))
                                    (tagbody
                                     positional
-                                      (print "; positional")
                                       (when (>= argi (length ,args))
                                         (go missing-optionals))
                                       (when (>= argi (the fixnum (+ required-num optional-num)))
                                         (go keys))
                                       (if (>= argi required-num)
                                         (progn
-                                          (print "POP DEFAULT")
                                           (pop my-default-values*)
                                           (push-args (elt ,args (incff argi)) t))
                                         (push-args (elt ,args (incff argi))))
                                       (go positional)
                                     missing-optionals
-                                      (print "; missing-optionals")
                                       (unless (>= argi required-num)
                                         (error 'sb-int:simple-program-error
                                                :format-control "invalid number of arguments: ~D"
-- 
cgit v1.2.3