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))