X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/b7657b86f85f575d5776dc6b626b1dc258d1fa47..8032a7fe4b6d2470476115b307c105b93c4100e5:/src/contextl-hacks.lisp?ds=sidebyside

diff --git a/src/contextl-hacks.lisp b/src/contextl-hacks.lisp
index b6af05e..5e568fa 100644
--- a/src/contextl-hacks.lisp
+++ b/src/contextl-hacks.lisp
@@ -1,7 +1,8 @@
 (in-package :contextl)
 
 
-
+(defmethod contextl:layer-name :around (layer)
+  (or (call-next-method) layer))
 
 ;;; HACK:
 ;;; Since i'm not using deflayer, ensure-layer etc, 
@@ -26,7 +27,7 @@
       (call-next-method)))
 
 
-;;; HACK: We are ending up with classes named NIL in the superclass list.
+;;; HACK: There are classes named NIL (partial classes) in the superclass list.
 ;;; These cannot be given the special object superclass when re-initializing
 ;;; is it will be in the subclasses superclasses AFTER this class, causing
 ;;; a confict.