Zulu-Inuoe/jzon

FLOAT-FEATURES is loaded in a really desperate manner

Closed this issue · 1 comments

phoe commented

(eval-when (:compile-toplevel :load-toplevel :execute)
(flet ((#1=#:|| (package)
(unless (find-package package)
(cond
((and (find-package '#:ql) (find-symbol (string '#:quickload) '#:ql))
(funcall (find-symbol (string '#:quickload) '#:ql) package))
((and (find-package '#:asdf) (find-symbol (string '#:load-system) '#:asdf))
(funcall (find-symbol (string '#:load-system) '#:asdf) package))
(t
(require package))))))
(#1# '#:float-features)))

This block of code is maybe superfluous because ASDF should take care of this: see the dependency at

#:float-features

FYI this just made it simpler for me when developing to test different optimization levels as I could single-load this file and float-features
It doesn't affect anything when the system's loaded through ASDF