;;;; -*- Mode: Lisp -*-

;;;; This is the .sbclrc init file of Jean-Philippe Paradis (Hexstream).
;;;; (SBCL is the Common Lisp implementation I use. See: http://www.sbcl.org/)

;;;; I have not yet documented and cleaned this so it's very raw.
;;;; There's a lot of old stuff I don't even use and should delete...

(require :asdf)

(declaim (optimize debug))
;;; If the fasl was stale, try to recompile and load (once). Since only SBCL
;;; has a separate condition for bogus fasls we retry on any old error
;;; on other lisps. Actually, Allegro has a similar condition, but it's
;;; unexported.  Works nicely for the ACL7 upgrade, though.
;;; CMUCL has an invalid-fasl condition as of 19c.
(defmethod asdf:perform :around ((o asdf:load-op) (c asdf:cl-source-file))
  (handler-case (call-next-method o c)
    (#+sbcl sb-ext:invalid-fasl
     #+allegro excl::file-incompatible-fasl-error
     #+lispworks conditions:fasl-error
     #+cmu ext:invalid-fasl
     #-(or sbcl allegro lispworks cmu) error ()
     (asdf:perform (make-instance 'asdf:compile-op) c)
     (call-next-method))))

(sb-ext:set-sbcl-source-location "/home/hexstream/apps/sbcl-source/")

#-quicklisp
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
                                       (user-homedir-pathname))))
  (when (probe-file quicklisp-init)
    (load quicklisp-init)))