dev-lisp/gentoo-init/files/gentoo-init-1.lisp


1
2
3
4
5
6
7
8
9
10
11

(in-package #:cl-user)

(let ((*compile-print* nil)
      (*compile-verbose* nil)
      #+cmu (ext:*gc-verbose* nil))
  (handler-bind ((warning #'muffle-warning))
    (load #p"/usr/share/common-lisp/source/asdf/asdf.lisp"
          :print nil :verbose nil)
    #+ecl
    (load #p"/usr/share/common-lisp/source/asdf/asdf-ecl.lisp"
          :print nil :verbose nil)))