From: LeonardoBizzoni <leo2002714@gmail.com>
Date: Sun, 31 Dec 2023 09:38:33 +0000 (+0100)
Subject: Version più figa di `is-class`
X-Git-Url: http://git.leonardobizzoni.com/?a=commitdiff_plain;h=c962e2a2540f2e586eba4d0ed156fcc272e3f247;p=ObjectOriented-Prolog-Lisp

Version più figa di `is-class`
---

diff --git a/Lisp/README.org b/Lisp/README.org
index c6b53a7..5b361c2 100644
--- a/Lisp/README.org
+++ b/Lisp/README.org
@@ -139,5 +139,5 @@
 ** Stabilire se un simbolo è una classe
 #+begin_src lisp :tangle ool.lisp
 (defun is-class (name)
-  (if (class-spec name) t nil))
+  (class-spec name))
 #+end_src
diff --git a/Lisp/ool.lisp b/Lisp/ool.lisp
index 00830ad..b913d28 100644
--- a/Lisp/ool.lisp
+++ b/Lisp/ool.lisp
@@ -79,4 +79,4 @@
           (field-name-exists name (rest fields)))))
 
 (defun is-class (name)
-  (if (class-spec name) t nil))
+  (class-spec name))