(defparameter *kowey-lispdir* "/Volumes/Data/Users/kow/opt/common-lisp/")

(load (concatenate 'string *kowey-lispdir* "asdf.lisp"))

(setf *central-registry*
  '(*default-pathname-defaults*
    ;; I would like to refactor this to use *kowey-lispdir* above
    #p"/Volumes/Data/Users/kow/opt/common-lisp/systems/"))