Version più figa di `is-class`

diff --git a/Lisp/README.org b/Lisp/README.org
index c6b53a7e8a610ebe2c35932cac213e9c212a29f5..5b361c25e889054ae1919df63b1869000b920696 100644 (file)
--- 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 00830ad4ddb035ec1da5aee4cb273b6f90a138e1..b913d288b9f03b1451cc5ba0cceffebf3ee0b6a8 100644 (file)
--- 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))