shithub: sl

Info  •  Files  •  Log  •  Branches

boot: don't redefine *properties*

--- a/system.lsp

+++ b/system.lsp

@@ -9,7 +9,8 @@

 ;;

 ;; The assumption here is that keys will most likely be the same across multiple symbols

 ;; so it makes more sense to reduce the number of subtables for the *properties* table.

-(define *properties* (table))

+(unless (bound? '*properties*)

+  (define *properties* (table)))

 (define (void . rest) #.(void))

 (define (void? x) (eq? x #.(void)))