Changeset 2838

Show
Ignore:
Timestamp:
03/31/08 16:47:58 (9 months ago)
Author:
ksprotte
Message:

some changes to with-rectangle

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/m2/geometry.lisp

    r2837 r2838  
    2626             (if suffix 
    2727                 (intern (format nil "~a-~a" (symbol-name symbol) (string-upcase suffix)) 
    28                          (symbol-package symbol)) 
    29                  symbol))) 
     28                         (symbol-package rectangle)) 
     29                 (intern (symbol-name symbol) (symbol-package rectangle))))) 
    3030      `(destructuring-bind (,(add-suffix 'left) 
    3131                            ,(add-suffix 'top) 

  • trunk/projects/bos/m2/packages.lisp

    r2836 r2838  
    44  (:use :cl :iterate :arnesi) 
    55  (:export #:with-points 
     6           #:with-rectangle 
    67           #:distance 
    78           #:dorect