+(setf *compile-print* nil)
(require 'asdf)
-(setf asdf:*central-registry* (list #p"deps/"))
-(asdf:load-system :cl-nl)
-(cl-nl:run)
+(asdf:initialize-source-registry `(:source-registry (:tree ,(car (directory "."))) :INHERIT-CONFIGURATION))
+(asdf:load-system :clnl)
+(clnl:run)