Changeset 3199

Show
Ignore:
Timestamp:
05/28/08 12:42:09 (8 months ago)
Author:
ksprotte
Message:

stricter type declarations for geo-box

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3196 r3199  
    55  '(simple-array double-float (4))) 
    66 
    7 (macrolet ((frob (name index) 
     7(macrolet ((frob (name index &optional (type 'double-float)) 
    88             `(defmacro ,name (geo-box) 
    9                 `(the double-float (aref (the geo-box ,geo-box) ,',index))))) 
    10   (frob geo-box-west 0) 
    11   (frob geo-box-north 1) 
    12   (frob geo-box-east 2) 
    13   (frob geo-box-south 3)) 
     9                `(the ,',type (aref (the geo-box ,geo-box) ,',index))))) 
     10  (frob geo-box-west   0 (double-float -180d0 180d0)) 
     11  (frob geo-box-north 1 (double-float -90d0 90d0)) 
     12  (frob geo-box-east   2 (double-float -180d0 180d0)) 
     13  (frob geo-box-south 3 (double-float -90d0 90d0))) 
    1414 
    1515(defun make-geo-box (west north east south)