[bknr-cvs] hans changed trunk/projects/quickhoney/src/pixel-pdf.lisp

[BKNR Commits]

Revision: 4150
Author: hans
URL: http://bknr.net/trac/changeset/4150

Remove functions that are called only once.

U   trunk/projects/quickhoney/src/pixel-pdf.lisp

Modified: trunk/projects/quickhoney/src/pixel-pdf.lisp
===================================================================
--- trunk/projects/quickhoney/src/pixel-pdf.lisp	2008-12-21 21:04:33 UTC (rev 4149)
+++ trunk/projects/quickhoney/src/pixel-pdf.lisp	2008-12-21 22:03:07 UTC (rev 4150)
@@ -104,12 +104,6 @@
          (:right
           (funcall fn (1+ x) (1+ y))))))))
 
-(defun can-turn-right ()
-  (look :right #'same-color))
-
-(defun can-go-forward ()
-  (look :forward #'same-color))
-
 (defun turn (direction)
   (turtle:turn direction)
   (setf (looking-in-direction *converter*)
@@ -171,9 +165,9 @@
       ((and (eql from-x (turtle:x))
             (eql from-y (turtle:y))))
     (cond
-      ((can-go-forward)
+      ((look :forward #'same-color)
        (cond
-         ((can-turn-right)
+         ((look :right #'same-color)
           (look :right #'move-to-pixel)
           (turn :right)
           (turtle:forward))