darcs - qt.examples

repos / qt.examples / annotate_shade

Testrun examples on commit

Annotate for file test.lisp

2009-05-24       tobias  #|
15:00:42              '  exec -a "$0" sbcl --noinform --noprint --disable-debugger --load $0 --end-toplevel-options "$@"
                      '  |#
                      '  
                      '  
                      '  (in-package :sysdef-user)
                      '  
                      '  (defun load-sysdef (pathname system)
                      '    (load pathname)
                      '    (setf (mb.sysdef::pathname-of (find-system system)) pathname))
                      '  
                      '  (defun load-sysdef-file (system-name)
                      '    "Loads a mbd file in the current directory."
                      '    (load-sysdef (make-pathname :defaults *default-pathname-defaults*
                      '                                   :name (string-downcase system-name)
                      '                                   :type "mbd")
                      '                 system-name))
                      '  
                      '  (load-sysdef-file :qt.examples)
                      '  (mb:clean :qt.examples)
                      '  (mb:test :qt.examples)
                      '  
                      '  (sb-ext:quit)

Crece desde el pueblo el futuro / crece desde el pie

RSS