From 870cdd27c428348b0471210a4302b519b85d2eef Mon Sep 17 00:00:00 2001 From: LeonardoBizzoni Date: Mon, 8 Jan 2024 13:55:14 +0100 Subject: [PATCH] Rimosso controllo superfluo lunghezza argomenti metodi --- Lisp/README.org | 3 --- Lisp/ool.lisp | 3 --- 2 files changed, 6 deletions(-) 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)) -- 2.52.0