;;; -*- Mode: LISP -*-
(setf (logical-pathname-translations "coding")
      '(("**;*.*.*" #P"/home/mgr/daten/coding/lisp/**/*.*")))
(setf (logical-pathname-translations "sbcldir")
      '(("**;*.*.*" #P"/usr/src/lisp/sbcl/**/*.*")))
(setf (logical-pathname-translations "lispdir")
      '(("**;*.*.*" #P"/usr/src/lisp/**/*.*")))

;; (setf (logical-pathname-translations "lispdir")
;;       `(("lispdir:**;*.*.*"
;; 	 ,(make-pathname :directory
;; 			 '(:absolute "usr" "src" "lisp" :wild-inferiors)
;; 			 :name :wild :type :wild :version :wild))))

(require 'asdf)
(push #p"lispdir:systems;" asdf:*central-registry*)
(push #p"sbcldir:systems;" asdf:*central-registry*)
(push #p"coding:systems;" asdf:*central-registry*)

(require 'asdf-install)
(setf ASDF-INSTALL:*LOCATIONS*
      '((#p"coding:site;" #p"coding:systems;" "coding ASDF directory")
	(#p"lispdir:site;" #p"lispdir:systems;" "shared ASDF directory")
	(#p"sbcldir:site;" #p"sbcldir:systems;" "SBCL ASDF directory")))

;;(push #p"/usr/src/lisp/systems/" asdf::*central-registry*)

(setf mcclim-freetype:*freetype-font-path* #p"/usr/share/fonts/truetype/ttf-bitstream-vera/")

;; 2005-08-15, 17:00 < Xof>
(defmethod print-object :around ((o standard-object) s)
  (if (eq o (sb-mop:class-prototype (class-of o)))
      (print-unreadable-object (o s) 
        (format s "~S class prototype" (class-of o)))
      (call-next-method)))