modernize asd files.

lisp/patch-quicklisp.lisp

@@ -1,4 +1,8 @@
 (roswell:include "util")
+(in-package :roswell)
+(defun asd-p (file)
+  (equal (pathname-type file) "asd"))
+(setf *load* (acons 'asd-p 'asdf:load-asd (remove 'asd-p *load* :key 'first)))
 (in-package :roswell.util)
 (defun fetch-via-roswell (url file &key (follow-redirects t) quietly (maximum-redirects 10))
   "Request URL and write the body of the response to FILE."

roswell-test.asd

@@ -1,10 +1,5 @@
-#-asdf
-(require :asdf)
-
-(in-package :cl-user)
-(defpackage roswell-test-asd
-  (:use :cl :asdf))
-(in-package :roswell-test-asd)
+#+(and ros.init clisp)
+(ros:asdf)
 
 (defsystem roswell-test
   :author "SANO Masatoshi"

roswell.asd

@@ -1,6 +1,3 @@
-#-asdf
-(require :asdf)
-
 #|
 
 This file is a stub.
@@ -8,12 +5,6 @@ roswell does not function without help of C codes.
 
 |#
 
-(in-package :cl-user)
-
-(defpackage roswell-asd
-  (:use :cl :asdf))
-(in-package :roswell-asd)
-
 (defsystem roswell
   :version "17.5.8.78"
   :author "SANO Masatoshi"