]> git.leonardobizzoni.com Git - ObjectOriented-Prolog-Lisp/commitdiff
Version più figa di `is-class`
authorLeonardoBizzoni <leo2002714@gmail.com>
Sun, 31 Dec 2023 09:38:33 +0000 (10:38 +0100)
committerLeonardoBizzoni <leo2002714@gmail.com>
Sun, 31 Dec 2023 09:38:33 +0000 (10:38 +0100)
Lisp/README.org
Lisp/ool.lisp

index c6b53a7e8a610ebe2c35932cac213e9c212a29f5..5b361c25e889054ae1919df63b1869000b920696 100644 (file)
 ** 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
index 00830ad4ddb035ec1da5aee4cb273b6f90a138e1..b913d288b9f03b1451cc5ba0cceffebf3ee0b6a8 100644 (file)
@@ -79,4 +79,4 @@
           (field-name-exists name (rest fields)))))
 
 (defun is-class (name)
-  (if (class-spec name) t nil))
+  (class-spec name))