Невозможно вызвать метод, когда первый аргумент равен нулю?

(defmethod carpet-append ((this carpet) (rect image-rectangle))
  (destructuring-bind (rect-width . rect-height)
      (rectangle-size rect)
    (destructuring-bind (bitmap-width . bitmap-height)
        (carpet-size this)
      (if this
          (iter:iter
            (iter:with min-area = (* (+ bitmap-width rect-width)
                                     (+ bitmap-height rect-height)))
            (iter:with min-pos = nil)
            (iter:for pos in (awailable-positions this))
            (iter:for test-area = (try-fit rect pos (carpet-bitmap this)))
            (when (and test-area (< test-area min-area))
              (setf min-pos pos))
            (iter:finally
             (let ((new-carpet
                    (make-carpet
                     :bitmap (make-array
                              (list (+ (car min-pos) rect-width)
                                    (+ (cdr min-pos) rect-height))
                              :element-type 'bit)
                     :rectangles (cons rect (carpet-rectangles this)))))
               (copy-bitmap-state this new-carpet)
               (setf (rectangle-position rect) min-pos)
               (place-image new-carpet rect)
               (return new-carpet))))
          (make-carpet
           :bitmap (make-array
                    (list rect-width rect-height)
                    :element-type 'bit)
           :rectangles (list rect))))))

image-rectangle и carpet - это структуры.

Когда этот метод вызывается так:

(carpet-append
 nil
 #s(image-rectangle
    :position (0 . 0)
    :size (48 . 76)
    :file "/home/wvxvw/projects/spritesheet/test-images/test-0.png"))

Я получаю:

#<SIMPLE-ERROR "~@<There is no applicable method for the generic function ~2I~_~S~
 ~I~_when called with arguments ~2I~_~S.~:>"

Это должно быть так? Может быть, есть способ заставить его принять nil в качестве аргумента? Как мне указать, что применимы только аргументы типа nil и carpet?


oop lisp common-lisp clos
person Community    schedule 04.01.2013    source источник

Ответы (1)


arrow_upward
8
arrow_downward

Если у вас есть список аргументов с классами carpet и image-rectangle, лучше использовать аргументы этих классов или их подклассов. Вы не можете передать NIL, если ваш аргумент объявлен как принадлежащий к классу carpet.

Таким образом (if this не имеет смысла. Если вы пройдете мимо ковра и не сможете пройти ничего другого, тест this всегда будет верным.

Если вы хотите написать метод для объекта NIL и прямоугольника, вы можете использовать класс NULL .

(defmethod carpet-append ((this null) (rect image-rectangle))
   ...)

Поскольку CLOS не имеет комбинаторов классов, таких как OR или AND, вам нужно написать метод для каждого случая.

person Rainer Joswig    schedule 04.01.2013