在初始化文件里写上以下代码，就能方便地使用 (load-asdf 'some-package)这个函数来调用asdf库

;clozure (or openmcl)  ccl-init.lisp

(defvar*lisp-dirs*"F:/lispbox-0.7/ccl-1.5-windowsx86/""Root location of CL library installs")
(load(concatenate'string*lisp-dirs*"tools/asdf.lisp"))

(dolist(dir-candidate(directory(concatenate'string"F:/lispbox-0.7/""/contrib/*/")
                                  :directoriest))
  (let((asd-candidate(merge-pathnames"*.asd"dir-candidate)))
    (when(directoryasd-candidate)
     (pushnewdir-candidateasdf:*central-registry*))))
          
(defunload-asdf(asdf-name)
  (asdf:oos'asdf:load-opasdf-name))

; clisp 保存为  .clisprc.lisp
(defvar*lisp-dirs*"E:/programfiles/clisp-2.48/""Root location of CL library installs")
(load(concatenate'string*lisp-dirs*"asdf/asdf.fas"))

(dolist(dir-candidate(directory(concatenate'string*lisp-dirs*"/asdf/*/")))
  (let((asd-candidate(merge-pathnames"*.asd"dir-candidate)))
    (when(directoryasd-candidate)
     (pushdir-candidateasdf:*central-registry*))))
          
(defunload-asdf(asdf-name)
  (asdf:oos'asdf:load-opasdf-name))