From: LeonardoBizzoni <leo2002714@gmail.com>
Date: Mon, 8 Jan 2024 12:55:14 +0000 (+0100)
Subject: Rimosso controllo superfluo lunghezza argomenti metodi
X-Git-Url: http://git.leonardobizzoni.com/?a=commitdiff_plain;h=870cdd27c428348b0471210a4302b519b85d2eef;p=ObjectOriented-Prolog-Lisp

Rimosso controllo superfluo lunghezza argomenti metodi
---

diff --git a/Lisp/README.org b/Lisp/README.org
index ad68801..3dbd1bb 100644
--- a/Lisp/README.org
+++ b/Lisp/README.org
@@ -204,9 +204,6 @@
                  (error "~A non è un'istanza" this))
                (unless (get-method (getf this :methods) (first method))
                  (error "~A non ha un metodo ~A" (getf this :classname) (first method)))
-               (unless (eq (length args)
-                           (length (second (get-method (getf this :methods) (first method)))))
-                 (error "~A numero di argomenti errato" (first method)))
 	       (apply (get-body this (first method)) (append (list this) args)))))
    methods))
 
diff --git a/Lisp/ool.lisp b/Lisp/ool.lisp
index cd40cf5..dcfbd28 100644
--- a/Lisp/ool.lisp
+++ b/Lisp/ool.lisp
@@ -130,9 +130,6 @@
                  (error "~A non è un'istanza" this))
                (unless (get-method (getf this :methods) (first method))
                  (error "~A non ha un metodo ~A" (getf this :classname) (first method)))
-               (unless (eq (length args)
-                           (length (second (get-method (getf this :methods) (first method)))))
-                 (error "~A numero di argomenti errato" (first method)))
 	       (apply (get-body this (first method)) (append (list this) args)))))
    methods))