(let
 ( (compile-verbose-old *compile-verbose*)
   (compile-print-old *compile-print*)
   (load-verbose-old *load-verbose*)
   (asdf-root      "/home/david/applications/lisp/asdf/" )
   (aclcompat-root "/home/david/applications/lisp/acl-compat/" )
   (clppcre-root   "/home/david/applications/lisp/cl-ppcre-1.2.13/")
   (puri-root   "/home/david/applications/lisp/puri-1.4/")
   )
 
 (setq *compile-verbose* nil)
 (setq *compile-print* nil)
 (setq *load-verbose* nil)

 (load (concatenate 'string asdf-root "asdf") :verbose nil :print nil )
 (load (concatenate 'string clppcre-root "cl-ppcre.asd") :verbose nil :print nil )
 (load (concatenate 'string puri-root "puri.asd") :verbose nil :print nil )
 (load (concatenate 'string aclcompat-root "acl-compat.asd") :verbose nil :print nil )

 (setq *compile-verbose* compile-verbose-old)
 (setq *compile-print* compile-print-old)
 (setq *load-verbose* load-verbose-old)

)