Changeset 3222

Show
Ignore:
Timestamp:
05/30/08 15:28:52 (7 months ago)
Author:
ksprotte
Message:

branches/bos-trunk-sat: put the simple queue implementation into a better place

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/bos-trunk-sat/projects/bos/web/quad-tree.lisp

    r3220 r3222  
    119119                                   117.02245623511905d0 -1.0920067364569994d0)) 
    120120 
     121;;; simple queue 
     122(defun make-queue () 
     123  (cons nil nil)) 
     124 
     125(defun queue-empty-p (queue) 
     126  (null (car queue))) 
     127 
     128(defun enqueue (x queue) 
     129  (if (null (car queue)) 
     130      (setf (cdr queue) (setf (car queue) (list x))) 
     131    (setf (cdr (cdr queue)) (list x) 
     132          (cdr queue) (cdr (cdr queue)))) 
     133  (car queue)) 
     134 
     135(defun dequeue (queue) 
     136  (pop (car queue))) 
     137 
    121138;;; quad-node 
    122139(defclass quad-node () 

  • branches/bos-trunk-sat/projects/bos/web/sat-tree.lisp

    r3221 r3222  
    161161                            (sat-image-tile-properties image geo-box (tile-geo-box node)))))) 
    162162    (let* ((nodes (remove-if-not #'pw-ph-large-enough (layer-quad-nodes))) 
    163            (max-scaling (max-scaling nodes))) 
    164       (make-object 'sat-layer :name name :geo-box geo-box) 
    165       (dolist (node nodes) 
     163           (max-scaling (max-scaling nodes)) 
     164           (layer (make-object 'sat-layer :name name :geo-box geo-box))) 
     165      (dolist (node nodes layer) 
    166166        (make-sat-image-tile image geo-box (quad-node node) 
    167167                             (tile-geo-box node) name max-scaling))))) 

  • branches/bos-trunk-sat/projects/bos/web/utils.lisp

    r3218 r3222  
    441441        finally (return result))) 
    442442 
    443 ;;; simple queue 
    444 (defun make-queue () 
    445   (cons nil nil)) 
    446  
    447 (defun queue-empty-p (queue) 
    448   (null (car queue))) 
    449  
    450 (defun enqueue (x queue) 
    451   (if (null (car queue)) 
    452       (setf (cdr queue) (setf (car queue) (list x))) 
    453     (setf (cdr (cdr queue)) (list x) 
    454           (cdr queue) (cdr (cdr queue)))) 
    455   (car queue)) 
    456  
    457 (defun dequeue (queue) 
    458   (pop (car queue))) 
    459