Zander671/glisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix gc bug and add condition classes

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-02-28 13:22:34 -08:00
parent 45f6d7a53d
commit d21a5726e0
8 changed files with 96 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/kernel.gl
View File

@ -1,3 +1,14 @@
;; -*- mode: lisp-data -*-
(print ((lambda (a b &rest r &key c &allow-other-keys) r) 1 2 :c 3 :d 4))
(put 'x 'condition-class t)
(put 'y 'condition-class 'x)
(print (condition-class-p 'x))
(print (condition-class-p 'y))
(print (condition-class-p 'z))
(print (condition-subclass-p 'y 'x))
(print (condition-subclass-p 'y t))
(print (condition-subclass-p 'x t))
(print (condition-subclass-p t t))
(print (condition-subclass-p 'z 'x))
(print (condition-subclass-p 'x 'y))