Changeset 3595

Show
Ignore:
Timestamp:
07/23/08 20:25:16 (4 months ago)
Author:
ksprotte
Message:

return-contract-m2s has to be a generic function (mistakenly changed that earlier)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3593 r3595  
    370370      (when m2s (return-from allocate-m2s-for-sale m2s))))) 
    371371 
    372 (defun return-contract-m2s (m2s) 
    373   "Mark the given square meters as free, so that they can be re-allocated." 
     372(defgeneric return-contract-m2s (m2s) 
     373  (:documentation "Mark the given square meters as free, so that 
     374    they can be re-allocated.")) 
     375 
     376(defmethod return-contract-m2s (m2s)   
    374377  (when m2s 
    375378    (loop for m2 in m2s 

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

    r3593 r3595  
    6767  (if (null (car queue)) 
    6868      (setf (cdr queue) (setf (car queue) (list x))) 
    69     (setf (cdr (cdr queue)) (list x) 
    70           (cdr queue) (cdr (cdr queue)))) 
     69      (setf (cdr (cdr queue)) (list x) 
     70            (cdr queue) (cdr (cdr queue)))) 
    7171  (caar queue)) 
    7272