darcs - qt.core

repos / qt.core / annotate_shade

initial import

Annotate for file test.lisp

2009-04-05       tobias  #!/usr/bin/sbcl --script
17:56:16              '  
                      '  (load "/home/tobias/software/mudballs/boot.lisp")
                      '  
                      '  (in-package :sysdef-user)
                      '  
                      '  (defmacro with-extra-search-dir (path &body body)
                      '    "Executes BODY with PATH as additional search directory for Mudball systems."
                      '    `(let ((*custom-search-modules*
                      '            (pushnew (wildcard-searcher
                      '                      (make-pathname :name :wild
                      '                                     :type "mbd"
                      '                                     :defaults ,path))
                      '                     *custom-search-modules*)))
                      '       ,@body))
                      '  
                      '  (with-extra-search-dir *default-pathname-defaults*
                      '   (mb:clean :qt)
                      '   (mb:test :qt))
                      '  
                      '  (sb-ext:quit)

Crece desde el pueblo el futuro / crece desde el pie

RSS