Plaster
New
List
Login
common-lisp
default
shinmera
2019.02.14 14:45:58
(defvar *tmp*) (load (compile-file "/home/linus/a.lisp")) (print (list *tmp* (find-class 'bla) (eq *tmp* (find-class 'bla))))
Raw
Annotate
Repaste
Annotations
common-lisp
default
shinmera
2019.02.14 14:46:11
(defclass bla () ()) (macrolet ((m (&environment env) (setf *tmp* (find-class 'bla env)) NIL)) (m))
Raw
Repaste